Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

HTML MAil per VBA


Betrifft: HTML MAil per VBA von: vbaTrainee85
Geschrieben am: 26.06.2017 11:39:14

Hallo ich versuche mit foldendem Code in ACCESS mit VBA eine HTML Mail zu verschicken

Private Sub sendmail(mail)
Dim OutApp As Object
Dim objOLMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set objOLMail = OutApp.CreateItem(1)

            With objOLMail
               
                .To = "max.mustermann@mustermann.de"
                .CC = ""
                .BCC = ""
                .Sensitivity = 0
                .Importance = 2
                .Subject = "Test"
                .Body = mail
                .Send
                .Display
            
            End With
            
            Set objOLMail = Nothing
            Set OutApp = Nothing
            
    MsgBox "E-Mail wurde erfolgreich versand.", , "ERFOLGREICH"
End Sub
der Debugger meldet einen Fehler an der Stelle an der die Email Adresse eingebunden wird.

im .Body = mail wird eine Emailvorlage in HTML eingefügt

  

Betrifft: AW: HTML MAil per VBA von: mumpel
Geschrieben am: 26.06.2017 11:45:44

Hallo!

CreateItem muss für Eamils immer 0 sein, nicht 1. Also OutApp.CreateItem(0)

Gruß, René


  

Betrifft: Nachtrag von: mumpel
Geschrieben am: 26.06.2017 11:47:11

Und .htmlBody, nur dann bekommst Du eine HTML-Mail. .Body ist Nur-Text-Mail.