E Mail Signatur einfügen?

Private Sub CommandButton6_Click()
Dim strEmailAdressePDF As String
Dim strEmailAnredePDF As String
Dim strEmailTextPDF As String
strEmailAdressePDF = Workbooks(strNameSteuerung).Sheets("INI").[B63]
strEmailAnredePDF = Workbooks(strNameSteuerung).Sheets("INI").[B64]
strEmailTextPDF = Workbooks(strNameSteuerung).Sheets("INI").[B65]
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.GetInspector
.to = strEmailAdressePDF                             ' "E-Mail Adresse einfügen
.Subject = "Erledigte Schärfaufträge Fa. Leitz Salzburg"   ' "Betreffzeile Header"
.attachments.Add strAttachment1                                     ' "Anhang einfügen"
If strAttachment2  "" Then
.attachments.Add strAttachment2
End If
If strAttachment3  "" Then
.attachments.Add strAttachment3
End If
If strAttachment4  "" Then
.attachments.Add strAttachment4
End If
If strAttachment5  "" Then
.attachments.Add strAttachment5
End If
If strAttachment6  "" Then
.attachments.Add strAttachment6
End If
.Body = strEmailAnredePDF & vbCrLf & vbCrLf & strEmailTextPDF     ' "Erste Textzeile"
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
'OutApp.Quit
'Set OutApp = Nothing
'Set Nachricht = Nothing
End Sub