Office: per Makro eMail versenden mit Text einfügen

Hallo Guten Morgen, habe folgendes Problem im Makro... es übernimmt den Text nicht in die Email... was ist falsch wer kann mir helfen... schon mal Danke!!!!

Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strMailBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'** Pfad für temporäre Zwischenspeicherung angeben
strPfad = "C:Temp" 'entsprechend anpassen
'** Aktuelles aktives Blatt in neue Arbeitsmappe kopieren
strBlatt = ActiveSheet.Name
'** Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "" & ActiveSheet.Name
'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName
'** Body-Text festlegen
With Mail '** Mail erzeugen
.To = "eMail Adresse"
.CC = "eMail Adresse"
.Subject = "Wochenausgang" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
strMailBodyText = _
"Mit freundlichen Grüßen" & Chr(13) & Chr(13) & _
"Adam...." & Chr(13) & _
"Firma..... , Sulzdorfer Strasse , ...." & Chr(13) & _
"Wochenausgang" & Chr(13) & _
.Body = strMailBodyText 'Bodytext / Signatur
End With
'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close
'** Erzeugte Datei wieder löschen
Kill (strDatei)
'** E-Mail anzeigen
Mail.Display
End Sub

:)

 

Hallo,

nimm den rot markierten Teil raus, sons glaubt VBA, dass der .Body-Teil noch zur Variablen strMailBodyText gehört. Bzw. fehlt wahrscheinlich eher noch etwas an Text für den Body hätte ich jetzt mal vermutet.

Code:

Und bitte verwende Codetags, das ist für die Helfer wesentlich angenehmer zu lesen!

 

Dankeschön jetzt geht's...
Grüße aus Oberfranken... Wiesenfeld