E-Mail Signatur von Outlokk automatisch einfügen

 

    Set objOutlook = CreateObject("Outlook.Application")

    Set objMail = objOutlook.CreateItem(0)

    

    With objMail

        .To = " " & Range("A5") & ""

        .Subject = "Vertragsobjekt:"

        .body = "Sehr geehrte/r ," & vbCrLf & vbCrLf & hier steht normaler Text" & vbCrLf & "hier soll auch Text rein " & vbCrLf & vbCrLf & und hier dann die Signatur aus Outlook 

        .Display

    End With

End Sub