vba OUTLOOK邮件正文字体和字号设置

在VBA (Visual Basic for Applications) 中，你可以通过宏操作来设置Outlook邮件正文的字体和字号。以下是一个简单的示例，展示如何创建一个函数来设置这些属性：

Function SetMailBodyFont(objMail As MailItem, strFontName As String, iFontSize As Integer)
    ' 获取邮件正文的Range对象
    Dim objRange As Range
    Set objRange = objMail.Body.TextRange
    
    ' 设置字体名和字号
    With objRange.Font
        .Name = strFontName ' 更改字体名称
        .Size = iFontSize ' 更改字体大小
    End With

    ' 设置完成后的消息
    SetMailBodyFont = True
End Function

你可以像这样使用这个函数：

Sub Example()
    Dim objMail As MailItem
    Set objMail = Application.CreateItem(olMailItem)
    
    ' 调用函数设置字体
    If SetMailBodyFont(objMail, "微软雅黑", 12) Then
        ' 发送邮件前确保设置成功
        objMail.Send
    Else
        MsgBox "无法设置字体!"
    End If
End Sub