☰

Outlook 宏可更改回复中的“样式设置”

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2010 formatting macros
Outlook 宏可更改回复中的“样式设置”

我遇到了以下问题：使用 Outlook 2010（或一般 Outlook）时，当您回复 HTML 格式的电子邮件时，会使用收到的电子邮件中的某些格式。

段落设置通常与我的模板不同。我找到了一种将格式更改为标准设置的简单方法：

在打开的电子邮件中，在功能区上选择：
选项卡“设置文本格式”，单击右侧的“更改样式”，选择“样式集”，选择“Word 2003”

现在我想创建一个宏，当我选择“回复”、“全部回复”或“转发”时自动执行该任务。

不幸的是 Outlook 没有宏记录器 :( 我找到了类似的东西，但根本没有反应：Outlook 2007：答复和转发无法使用默认格式
或者这里的宏不起作用：http://www.codetwo.com/admins-blog/set-email-reply-format-automatically/

在 GUI 中执行上述步骤的宏代码是什么？

答案1

您只需应用所需的样式集，然后选择设为默认在底部改变风格菜单。

或者你可以这样做：

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

相关内容