如何更改Active Outlook草稿的字体

问题描述

这就是我想要做的：

• 选择活动草稿的正文并更新为Times New Roman 12pt。
  • 整个主体，包括对话中的其他消息，都需要包含在选择中。
• 我可能正在回复或转发邮件，因此代码需要在当前草稿上起作用。

以下是我一直在玩的代码。任何建议将不胜感激：

Sub CantReadCalibri()
    Dim objApp As outlook.application
    Set objApp = Application
    
    a = TypeName(objApp.ActiveWindow)
    b = objApp.ActiveInspector.CurrentItem
       
    'Code to select message body???
    
        With Selection
            .Font.Name = "Times New Roman"
            .Font.Size = 12
        End With

    Set objApp = nothing
End Sub

解决方法

Option Explicit ' Consider this mandatory
' Tools | Options | Editor tab
' Require Variable Declaration
'
' If desperate declare as variant


Private Sub CantReadCalibri_WholeStory()

    Dim oObj As Object
    Dim oMailEd As Object
    Dim oWord As Object
    Dim oRng As Object
    
    Set oObj = ActiveInspector.CurrentItem
    Set oMailEd = oObj.GetInspector.WordEditor
    Set oWord = oMailEd.Application
    Set oRng = oWord.Selection
            
    oRng.WholeStory

    With oRng
        .Font.Name = "Times New Roman"
        .Font.Size = 12
    End With

End Sub


Sub CantReadCalibri_Selection()

    Dim sel As Variant
    
    Set sel = ActiveInspector.WordEditor.Application.Selection
    
    With sel
        .Font.Name = "Times New Roman"
        .Font.Size = 12
    End With

End Sub

此答案可能提供了一个解释https://stackoverflow.com/a/4368035/1571407