Office: VBA E-Mail erstellen

Hallo alle miteinander,

ich komme hier nicht weiter.

Folgender Code soll verwendet werden:

Sub EMail_erstellen()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.To = "deinname@deinedomain.de"
.Subject = "Betreff"
.htmlBody = "Sehr geehrte Damen und Herren,

vielen Dank für Ihre Anfrage und das Interesse an unserem Produkt"
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

End Sub


Hauptsächlich geht es um die "htmlbody" Zeile.

Da hier ein längerer Text rein soll würde ich gerne im Code Zeilenumbrüche haben. Habe es mit Unterstrich probiert, bekomme aber immer einen Syntaxfehler.

any ideas?! Danke!!!

:)

 

Hallo,

teste mal:

Sub EMail_erstellen()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.To = "deinname@deinedomain.de"
.Subject = "Betreff"
.htmlBody = "Sehr geehrte Damen und Herren,<br><br>" & _
"vielen Dank für Ihre Anfrage und das Interesse an unserem Produkt"
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

Set objMail = Nothing
Set objOutlook = Nothing
End Sub

 

Tausend Dank!

Jetzt muss ich nur noch die Schriftart formatieren.

 

Hallo,

nie im Leben käme ich auf die Idee, .to, .subject und. htmlbody direkt im Makro zu definieren!!!!!!!!

Sinnvollerweise wird das auf eine Tabellenblatt ausgelagert und ist somit flexibel einsetzbar. Mit HTML-Codes kannst du dann auch direkt Schriftart, -farbe und -grösse beeinflussen.