Email mit Signatur
22.03.2018 15:58:48
Josef
nach stundenlangen googeln bin ich zu dem Entschluss gekommen selbst eine Anfrage zu senden.
Ich benötige in meinem Code einen Befehl der mir eine meiner Signaturen einfügt.
Im Internet stoße ich immer wieder auf .getinspector etc. dieser bringt mich an keiner Stelle weiter!
Hier mein aktuell super funktionierender Code ohne Signatur
Sub TestMail()
Dim olApp As Object ', AktMail As Object,
Dim myAnswer As Object
Set olApp = CreateObject("Outlook.Application")
If Not olApp.ActiveInspector Is Nothing Then
With olApp.ActiveInspector.CurrentItem()
Set myAnswer = .ReplyAll
End With
With myAnswer
.htmlbody = "" & Range("E5") & "," & "" & "
" & Range("J9") & "
" & Range("P14") & "
" & "
" & Range("P23") & "
" & _
olOldBody & .htmlbody
.Display
End With
Else
MsgBox "Bitte zuerst die angebots E-Mail öffnen"
End If
Set myAnswer = Nothing
Set olApp = Nothing
End Sub
Vielen Dank für eure Hilfen.
Bitte spart euch Kommentare bezüglich der Bedeutung von Suchfunktionen oder Google... Ich habe es versucht!
Grüße euch Josef