VBA Email Aufzählung

Hi zusammen,
hab mal eine Frage zu einem Code. In der durch den Code Erzeugten Mail möchte ich die Zeile & "Bitte beachten" & vbCr _ in Fettdruck haben.
Mail kreieren
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector ' sorgt für die Signatur
.Subject = "Frachtanfrage ' Betreff
.Body = "Sehr geehrte Damen und Herren," & vbCr & vbCr _
& "im Anhang erhalten Sie unsere Frachtanfrage." & vbCr _
& "Bitte beachten" & vbCr _
& "" & vbCr _
& "Punkt 1" & vbCr _
& "Punkt 2" & vbCr _
& "Punkt 3" & vbCr _
& "" & vbCr _
& "Gerne erwarten wir Ihr Angebot." & vbCr & vbCr _
Über Google habe ich rausgefunden, dass ich die Zeile so schreiben muss
& "Bitte beachten" & vbCr _ (Hab noch Leerzeichen vor und hinter die b gestellt, sonst macht er es hier einfach nur fett)
Und bei dieser Zeile HTML zufügen:
.HTMLBody = "Sehr geehrte Damen und Herren," & vbCr & vbCr _
Wenn ich das aber so mache, werden alle Zeilenumbrüche ignoriert und die Zeilen alle hintereinander geschrieben.
Kann mir jemand sagen, wie ich diese eine Zeile in Fett schreiben kann, ohne meine Formatierung zu verlieren?
Vielen Dank vorab
Gruß Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub send_Email(Pfad As String, strTo As String, strCc As String) Dim olApp As Object Dim mbody As String mbody = "Hallo PDFs wurden gerade neu erzeugt und liegen hier:" mbody = mbody & "&" & Pfad & "" mbody = mbody & "Gruß" Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) .Subject = "Listen " .To = strTo .Cc = strCc .htmlbody = mbody .Display End With Set olApp = Nothing End Sub

.HTMLBody = "Sehr geehrte Damen und Herren, &ltp&gt im Anhang erhalten Sie unsere Frachtanfrage. &ltbr&gt &ltb&gtBitte beachten&lt/b&gt &ltbr&gt-Punkt 1 &ltbr&gt-Punkt 2 &ltbr&gt" & .Worksheets("F.-Anfr.").Range("D16").Text

Hi Nepumuk,
Danke für deine Hilfe.
Jetzt gibt's leider einen Laufzeitfehler 438:
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Mein Code sieht aktuell so aus:


Public Sub Frachtanfrage()
Dim sDateiname As String, WSh As Worksheet
Set WSh = ThisWorkbook.Sheets("F.-Anfr.")
' PDF erzeugen
sDateiname = "X:\Vertrieb\5.1 Frachtanfragen\" & Worksheets("A 1").Range("C8") & " Ref. " & Worksheets("A 1").Range("D8").Value & ".pdf"
WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
Quality:=xlQualityStandard, OpenAfterPublish:=False
' Mail kreieren
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector                         ' sorgt für die Signatur
.Subject = "Frachtanfrage" & " Ref. " & Worksheets("A 1").Range("D8") & "_" & Worksheets("F.-Anfr.").Range("S16") & "_" & Worksheets("A 1").Range("C8")     ' Betreff
.HTMLBody = "Sehr geehrte Damen und Herren, &ltp&gt im Anhang erhalten Sie unsere Frachtanfrage. &ltbr&gt &ltb&gt Bitte beachten&lt/b&gt &ltbr&gt-Punkt1 &ltbr&gt-Punkt2 &ltbr&gt" & .Worksheets("F.-Anfr.").Range("D16").Text
'& vbCr & .Body                  ' Mailtext mit Signatur
If Dir$(sDateiname) &lt&gt "" Then .Attachments.Add sDateiname
.Display
End With
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread