如何修改这句vba代码可以调整邮件正文字休大小:.Body = “Dear All, " & vbCrLf & " This is the email and report generated by RPA!”

在VBA中，如果你想要调整邮件正文字体的大小，你需要先选择一个字体对象并设置其大小属性，然后再插入到`.Body`属性中。假设你想将字体设为Calibri，大小设为12点，你可以这样做：

Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim olFont As Outlook.Font

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail.Body
    .Text = "Dear All, " & vbCrLf & " This is the email and report generated by RPA!"
    
    ' 选择正文文本部分
    Set rng = .Range
    
    ' 创建一个新的字体对象，并设置大小为12
    Set olFont = rng.Font
    olFont.Name = "Calibri" ' 可替换为其他字体名
    olFont.Size = 12 ' 字体大小，单位默认为12磅
    
    ' 设置字体大小后应用到文本上
    rng.Font = olFont
End With

olMail.Send ' 发送邮件
Set olFont = Nothing
Set olMail = Nothing
Set olApp = Nothing

记得在实际运行代码前确认你的Outlook环境已经启动并且允许宏操作。