Office: (Office 2013) Outlook Signatur in Mail

Hallo Zusammen,

versende mit dem unten stehenden Code eine Datei direkt aus Excel mit Outlook.
Leider fehlt die Signatur welche bei Outlook gespeichert ist.
Gibt es eine Möglichkeit die Signatur aus Outlook in die Mail zu integrieren ? Also direkt aus Outlook .

Code:

Sub EmailDirektSenden()
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
   .To = "mail@mail.de"
   .Subject = "Informationen"
   .Body = "Hallo Test."
   .Attachments.Add ActiveWorkbook.FullName
   .Send        'Sendet die Email automatisch
End With

End Sub

 

ich habe mal im Internet gesucht
Outlook-Signatur in String speichern

 

Hallo Hajo,

danke für Deinen sehr hilfreichen Post. Wenn Du mal was suchen soltest was funktioniert hier der Code:

Code:

Sub per_Mail_versenden()
Dim olApp     As Object
Dim AWS       As String
Dim olOldbody As String
Application.ScreenUpdating = False
AWS = ActiveWorkbook.FullName

Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              .GetInspector.Display
              olOldbody = .htmlBody
              .To = "xxxxxxxxxxxxxxxxxxxxxxx"
              .Subject = "xxxxxxxxxxxxxxxxxxxxx"
              .htmlBody = "Hallo!<br><br>Anbei gewünschte Informationen.<br><br>" & _
                          "xxxxxxxxxxxxxxxxxx" & Range("A1") & _
                          "<br><br>Gruß,<br>Raimund<br><br>" & olOldbody
              .Attachments.Add ActiveWorkbook.FullName
              .send
    End With
Application.ScreenUpdating = True
End Sub