Outlook Email generieren

Beitrag von **Jet0JLH** » 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:

Dim outl As Object
        outl = CreateObject("Outlook.Application")

Um nun die Email mit Leben zu füllen gibt es folgende Eigenschaften die verwendet werden können:

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