Hallo zusammen,
ich habe einen Button erstellt mit dem ich per Mausklick auf eine Schaltfläche eine E-Mail generiere, bei der ich dann im Outlook noch den Textinhalt anpassen kann. Ich möchte aber noch, dass dabei "Zur Nachverfolgung" aktiviert wird und zwar mit "Kein Datum". Hat jemand eine Idee wie das gehen könnte?
Hier meine bisheriger Code:
Sub Schaltfläche1_Klicken()
On Error GoTo ErrHandler
' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.to = "johannes@peter.de"
.Subject = "Beispiel"
.htmlBody = "Beispieltextblabla“
.Display
End With
' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing
ErrHandler:
End Sub
Danke für eure Hilfe!!
Gruß
Johannes
|