Hallo,
ich habe mir ein Marko geschrieben, um einen bestimmten Bereich in eine E-Mail zu kopieren die ich über Excel starte.
Leider geht die Signatur dabei verloren.
Wo habe ich den Denkfehler in meinem Makro?
Vielen Dank schon mal im Voraus für eure Unterstützung. .


Sub E_mail()


Dim rngBereich As Range
Dim objDoc As Object
Dim lngZ As Long

Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem

Set oMail = oApp.CreateItem(olMailItem)

Set rngBereich = Tabelle1.Range("A2").CurrentRegion

With oMail
.BodyFormat = olFormatHTML
.Display
.HTMLBody = "Hallo Zusammen,
Bitte unten aufgeführte Direkt Lkws abrechnen.
"

Set objDoc = .GetInspector.WordEditor
rngBereich.Copy
lngZ = objDoc.Range.End - 1
objDoc.Range(lngZ).Paste
.To = Tabelle1.Range("D2").Value
.Subject = "Abrechnung "
End With




End Sub