Outlook-Signatur verwenden? VBA
15.11.2021 09:26:21
MCO
Kann mir jemand mal bitte sagen, wie ich die automatisch gesetzte Signatur aus einer (neuen) email in ein Excel- bzw . Word-Dokument einfüge?
Hand: kopieren, einfügen FERTIG.
Aber per VBA?
Was ich bisher habe, fügt mir nur den Text ein, aber weder die Fomatierung noch die Grafik, die in der Signatur hinterlegt ist.
Sub Sign_eifüg()
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then Set wdApp = CreateObject("Word.Application")
On Error GoTo 0
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
MyMessage.Display
With wdApp
.Visible = True
.Documents.Add
.Selection.typetext MyMessage.body
End With
MyMessage.Close 0
End Sub
Wenn ich mit MyMessage.htmlbody arbeite, wird es sogar noch schlimmer :-(Ist die Einfügemethode "typetext" richtig? Eigentlich logisch, dass dann nur text kommt. Aber wie ist es richtig?
Auch wenn das jetzt ein WORD-Dokument ist, hoffe ich, den richtigen Anstoss hier zu bekommen...
Danke schön!
Gruß, MCO