Makros in MS Outlook bzw. Office

Computer: Software & Programmierung Visual Basic
1

Hallo zusammen.
Ich habe für Outlook folgendes Makro erstellt:

Sub EMail_erstellen()

On Error GoTo Fehler

Dim objMailItem As Outlook.MailItem
Set objMailItem = Application.CreateItem(olMailItem)

With objMailItem
.OriginatorDeliveryReportRequested = False’Übermittlungsbestätigung
.ReadReceiptRequested = True 'Lesebestätigung
.Subject = "Testnachricht " & Format(Date, „dd.mm.yyyy“)
.Body = „Das ist eine Testnachricht.“
.To = „E-Mail-Adresse“
.BodyFormat = olFormatPlain 'Nur Text; Für HTML-Mail den Wert olFormatHTML verwenden
.Display
End With
Exit Sub

Fehler:
MsgBox „Es ist ein Fehler aufgetreten.“

End Sub

Jetzt möchte ich, dass im Betreff: "Montagebeleg(e) KW (die aktuelle Kalenderwoche)steht.

Wie kann ich das machen?

Desweiteren möchte ich, dass im Text folgendes steht:
Anbei MontagebelegNr.„x“; „Y“; „z“ mit insgesamt „v“ Stunden.

Dieser Text ist immer gleich. Ich möchte lediglich in eine Art Formular x y z und v eingeben und dann mein fertiges E-Mail noch lesen können.

Vielen Dank für eure Hilfe

Lg

Stefan

2

Hi Stefan,

sorry in VBA bin ich nicht so fit.

Gruß
Fronk

3

Lieber Stefan, tut mir leid, aber da kann ich Dir leider nicht weiterhelfen!
lg Ulli

4

Moin Stefan,

zum ermitteln der KW findest Du beim googeln eine Menge Codes. Einfach nach „Kalenderwoche VBA“ suchen, allerdings alles recht komplex.
Ich würde mir die KW aus einer Excel-Mappe holen.
Dazu muss in Excel zuerst das AddIn Analyse-Funktionen aktiviert werden. Die Funktion =Heute() bringst Du z.B. in Zelle A1 unter dann ermittelst Du mit =Kalenderwoche(A1;2) die KW. Anstatt der „2“ geht auch „1“. 1 = Woche beginnt Sonntags, 2 = Woche beginnt Montags. Ich geb Dir hier noch mal einen interessanten link mit: http://www.excelformeln.de/formeln.html?welcher=7

Zu dem anderen Problem kann ich leider nichts sagen.

Grüße
Bert

5

Sorry, Outlook steht bei mir auf der schwarzen Liste der Programme, die ich nicht benutze. Mail geht hier über ein anderes System, auf welches ich keinen Einfluss habe.

Lutz

6

Hallo,
nein, bei Makros kann ich nicht weiter helfen, ich hoffe jemand anderes weis weiter.

Peter

7

Grüß Gott,

ja ich kenne das Beispiel aus dem Intenet.

VBA ist wie du weißt in jedem Office-Programm möglich. Daher sind auch alle Basis-VBA Befehle gleich.
Microsoft gibt dazu eine kleine Hilfe: http://support.microsoft.com/kb/506731/de

Hinsichtlich der Eingabe x y z empfehle ich die VBA - Funktion „Input“.

Grüße aus München
Wolfgang
(Netwolf)

8

da kann ich leider nicht weiterhelfen. Mein „Spezial“-Gebiet ist Excel.
Gruß und trotzdem viel Erfolg
Gerhard