Outlook Email generieren

Antworten
Benutzeravatar
Jet0JLH
Administrator
Beiträge: 28
Registriert: So 11. Okt 2015, 21:37

Outlook Email generieren

Beitrag von Jet0JLH »

Um in Outlook eine Email für den User zu generieren wird zuerst ein Outlook Application Objekt benötigt:

Code: Alles auswählen

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
Antworten