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