vba在发送邮件前将正文的字体改变

在VBA中，你可以使用Outlook对象模型来发送电子邮件，并通过宏操作修改邮件正文的字体。以下是一个简单的示例，展示如何在发送邮件之前更改正文的字体：

Sub ChangeFontAndSendEmail()
    Dim olApp As Outlook.Application
    Dim olMail As Object '代表一封邮件
    Dim olBody As Object '代表邮件的正文

    Set olApp = New Outlook.Application '创建Outlook应用实例
    Set olMail = olApp.CreateItem(0) '创建一封新邮件 (0表示邮件)

    '假设你想将字体改为"Arial"，字号设为12
    With olMail.Body.Font
        .Name = "Arial"
        .Size = 12 '单位是点（pt）
    End With

    '设置其他邮件属性（如收件人、主题等），这里省略
    '... '添加收件人、设置主题、插入附件等

    '发送邮件
    olMail.Send

    '释放对象的引用
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

在这个例子中，你需要替换`Set olMail = olApp.CreateItem(0)`后的代码以设置发件人、收件人、主题等信息。运行这个宏之前，请确保已经安装了Office并启用了宏。