☰

Outlook-Makro zum Ändern des „Stilsatzes“ beim Antworten

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010 formatting macros
Outlook-Makro zum Ändern des „Stilsatzes“ beim Antworten

Ich habe folgendes Problem: Wenn Sie mit Outlook 2010 – oder Outlook im Allgemeinen – auf eine E-Mail im HTML-Format antworten, werden einige Formatierungen aus der empfangenen E-Mail verwendet.

Oftmals weichen die Absatzeinstellungen von meiner Vorlage ab. Ich habe einen einfachen Weg gefunden, die Formatierung auf meine Standardeinstellungen zu ändern:

Wählen Sie in der geöffneten E-Mail im Menüband:
Registerkarte „Text formatieren“, klicken Sie rechts auf „Formatvorlagen ändern“, wählen Sie „Formatvorlagensatz“, wählen Sie „Word 2003“

Nun möchte ich ein Makro erstellen, das diese Aufgabe automatisch ausführt, wenn ich „Antworten“, „Allen antworten“ oder „Weiterleiten“ auswähle.

Leider verfügt Outlook nicht über einen Makrorecorder :( Ich habe etwas Ähnliches gefunden, aber es kommt überhaupt keine Reaktion:Outlook 2007: Beim Antworten und Weiterleiten wird die Standardformatierung nicht verwendet
Oder dieses Makro hier funktioniert nicht:http://www.codetwo.com/admins-blog/set-email-reply-format-automatically/

Wie würde der Makrocode lauten, um die obigen Schritte in der GUI auszuführen?

Antwort1

Sie können einfach den erforderlichen Stilsatz anwenden und dann auswählenAls Standard einstellenim Boden vonStile ändernSpeisekarte.

Oder Sie können Folgendes tun:

Public WithEvents OutlookInspectors As Outlook.Inspectors
Public WithEvents OutlookInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set OutlookInspectors = Application.Inspectors
End Sub

Private Sub OutlookInspectors_NewInspector(ByVal Inspector As Inspector)
    Set OutlookInspector = Inspector
End Sub

Private Sub OutlookInspector_Activate()
    On Error Resume Next
    Dim Item As MailItem

    If Not OutlookInspector Is Nothing Then
        Set Item = OutlookInspector.CurrentItem
        If Not Item Is Nothing And Item.Size = 0 Then
            OutlookInspector.WordEditor.ApplyQuickStyleSet "Word 2003"
        End If
    End If

    Set OutlookInspector = Nothing
End Sub

verwandte Informationen