Hallo zusammen,

ich habe eine Frage bezüglich eines VBA Makros an dem ich arbeite.

Zum Hintergrund:

Ich versuche einige VBA Makros in Outlook zu erstellen, welche automatisch zu einer markierten oder geöffneten E-Mail eine Antwort E-Mail aufsetzen mit einem bestimmten Text und einer bestimmten Signatur. Das Ganze soll über eine Makro Tastatur laufen, damit der Aufwand für den Bearbeiter möglichst minimal gehalten wird - ggfs. soll hier auch noch mehr automatisiert werden.

Derzeit sieht mein Makro so aus:

Sub Antworten_1()

Dim myItem As Object

Dim reply As MailItem

Dim text As String

Dim text2 As String

Dim objDoc As Object

Dim Signatur As Object

 

Set myItem = Application.ActiveExplorer.Selection.Item(1)

 

Set reply = myItem.reply

With reply

    .Display

    .BodyFormat = olFormatHTML

    On Error Resume Next

    Set objDoc = .GetInspector.WordEditor

    Set Signatur = objDoc.Bookmarks("_MailAutoSig")

    If Not Signatur Is Nothing Then

        'Signatur.Select

        'objDoc.Windows(1).Selection.Delete

        Signatur.Range.Delete

    End If

    On Error GoTo 0

    text = "Text1"

    text2 = "Text2"

    .HTMLBody = text & text2 & .HTMLBody

    .Display

End With

End Sub

Mein Problem: Das Makro funktioniert manchmal und manchmal nicht. Nach einigen Versuchen bin ich zu folgendem Schluss gekommen:

Bei E-Mails im HTML Format funktioniert das Makro. Bei E-Mails, welche als Text-Format ankommen, weil diese eben im Text Format verschickt wurden, wird der Text zwar ausgeworfen, allerdings wird die Signatur nicht entfernt.

Hat jemand einen Rat, wie ich die Signatur aus E-Mails im Text Format entfernen kann?

Vielen Dank im Voraus!

Gruß

Stefan