Signatur Mail

Sub Mailversand()
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Dim Anhangzwei As String
Dim t As String
If Worksheets("Steuerungsblatt").Range("B8") = "Frau" Then
a = "Sehr geehrte Frau "
Else
a = "Sehr geehrter Herr "
End If
t = "Im Anhang finden Sie die unterzeichnete Kostenplanung sowie die Dienstwagenbestellung."
Anhang = Worksheets("Steuerungsblatt").Range("G7") & ActiveSheet.Range("E60") & "_" &  _
ActiveSheet.Range("M60") & "_Dienstwagenbestellung" & ".pdf"
Anhangzwei = Worksheets("Steuerungsblatt").Range("G9") & ActiveSheet.Range("E60") & "_" &  _
ActiveSheet.Range("M60") & "_Antrag" & ".pdf"
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = Worksheets("Steuerungsblatt").Range("B12")
.Subject = "Dienstwagenbestellung lt. Leasingantrag x-x-x-x "
.Body = a & Worksheets("Steuerungsblatt").Range("B10") & "," & vbLf & vbLf & "beiliegend die  _
erforderlichen Unterlagen für die Bestellung des Dienstwagens lt. Leasingvertrag xxxxxxx." &  _
vbLf & vbLf & vbLf & t & vbLf & vbLf & vbLf
.attachments.Add Anhang
.attachments.Add Anhangzwei
.Display
'.Mail.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub