Hallo,
ich habe das Makro geschrieben und es läuft gut, außer die Fette Zeile, da wird die Datei angehängt.
Leider habe ich % Zeichen da wo eigentlich leerzeichen sind.
Ich finde leider keine Lösung.
Kannm ir einer von euch helfen?

Vielen Dank für euere Unterstützung.

Rainer





Sub E_Mail_NEU()

Dim Arbeitsblatt As String
Dim Datei As String
Dim Pfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String

Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)

Pfad = ThisWorkbook.Path
Arbeitsblatt = ActiveSheet.Name
Sheets(Arbeitsblatt).Copy
ActiveWorkbook.SaveAs Pfad & "\" & ActiveSheet.Name & Cells(1, 12)

Datei = ActiveWorkbook.FullName





Dim ws As Worksheet
Dim kw, Leer As String

Set ws = Sheets("Abrechnung")
kw = ws.Cells(16, 4)
Leer = ws.Cells(2, 2)


With Mail
.BodyFormat = olFormatHTML
.Display
.To = "Abrechnung@transfracht.com"
.CC = "Loubna.Ihadian@transfracht.com"
.Subject = "Abrechnung Transa" & Leer & kw 'Betreff
.Attachments.Add Datei 'Anhang
.HTMLBody = "Hallo Zusammen,
anbei die aktuelle Transa Abrechnung
" & .HTMLBody

End With


MsgBox "E-Mail ist versendet" & vbNewLine & Environ("USERNAME") & vbNewLine & "Bitte OK drücken um weiter zu arbeiten."

ActiveWorkbook.Close






End Sub