Hallo,

ich habe ein größeres Projekt, was ich auch zum Teil durch das Forum fertiggestellt habe.
Es läuft auch alles soweit, wie es soll, das einzige was mir noch fehlt ist das bei meiner Erzeugten E-Mail die Signatur von Outlook nicht eingefügt wird, die Signatur sollte natürlich nach dem Body text kommen.
Ich habe hier auch schon gesucht, nur die Lösungen die eine ist noch im Code fett funktionieren bei mir nicht.
Im voraus schon mal vielen Dank.

Viele Grüße
Achim

Ich verwende folgenden Code.

Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String


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

strPfad = "C:\Temp"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
strDatei = ActiveWorkbook.FullName

strBodyText = Range("l10") & vbCrLf & vbCrLf & Range("l11") _


'** Mail erzeugen

With Mail
.GetInspector.Display
.To = Range("L1")

.CC = "
.Subject = "test" & " " & Date & " " & "für" & " " & Range("b7") & " " & Range("b10")
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.body = strBodyText & vbCrLf & .body

End With