Outlook Email generieren
Verfasst: Fr 21. Dez 2018, 15:19
Um in Outlook eine Email für den User zu generieren wird zuerst ein Outlook Application Objekt benötigt:
Um nun die Email mit Leben zu füllen gibt es folgende Eigenschaften die verwendet werden können:
Code: Alles auswählen
Dim outl As Object
outl = CreateObject("Outlook.Application")Code: Alles auswählen
If outl IsNot Nothing Then
Dim omsg As Object
omsg = outl.CreateItem(0)
omsg.to = "Empfänger@email.com"
omsg.cc = "ccEmpfänger@email.com"
omsg.bcc = "bccEmpfänger@email.com"
omsg.subject = "Betreff"
omsg.htmlbody = "<body>Emailinhalt</body>"
'oder alternativ auch nur omsg.body für eine reine Textmail
omsg.ReplyRecipients.Add("antwortadresse@email.com") 'Hier können Mailadresse hinterlegt werden an die die Mail gesendet wird, wenn der Empfänger auf Antworten klickt.
omsg.Display(False) 'Wenn hier True eingetragen wird, friert Outlook und die Application ein bis das Mailfenster wieder geschlossen wurde.
Else
MsgBox("Fehler", MsgBoxStyle.Critical)
End If