Möchte gerne meine MS Outlook Signatur übernehmen ins Mail.
Generiere per folgenden VBA Code ein Mail:
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
Normalerweise wird beim öffnen erstellen einer neuen Nachricht die Signatur eingeblendet. Wenn ich das mit diesem Code mache erfolgt das nicht.Was muß ich tun damit das funktioniert?
Was bedeutet .GetInspector im Code?
Bitte um Hilfe
Gruß
Leitz G.