如何通过VBS脚本修改Outlook 2016默认字体为Montserrat

你的原脚本问题在于，直接对单个邮件项设置.DefaultFont是无效的——这个属性仅控制单封邮件的字体，而非Outlook全局默认配置。要修改全局默认字体，需要通过Outlook的Options对象来操作，它负责管理所有应用级别的设置。

以下是可直接运行的VBS脚本，会将新邮件、回复/转发邮件、纯文本邮件的默认字体全部设为Montserrat：

Set objOLApp = CreateObject("Outlook.Application")
Set objOLOptions = objOLApp.Options

' 设置新邮件的默认字体
Set objMailFont = objOLOptions.MailFont
objMailFont.Name = "Montserrat"
' 可选：设置字体大小，比如11号
objMailFont.Size = 11

' 设置回复/转发邮件的默认字体
Set objReplyFont = objOLOptions.ReplyFont
objReplyFont.Name = "Montserrat"
objReplyFont.Size = 11

' 设置纯文本邮件的默认字体
Set objPlainTextFont = objOLOptions.PlainTextFont
objPlainTextFont.Name = "Montserrat"
objPlainTextFont.Size = 11

' 保存设置（Outlook会自动保存，但显式确认更稳妥）
objOLApp.Session.Save

' 释放对象
Set objPlainTextFont = Nothing
Set objReplyFont = Nothing
Set objMailFont = Nothing
Set objOLOptions = Nothing
Set objOLApp = Nothing

' 弹出提示确认完成
MsgBox "Outlook默认字体已成功设置为Montserrat", vbInformation, "设置完成"

注意事项： #

• 确保系统已安装Montserrat字体，否则Outlook会自动 fallback到系统默认字体。
• 运行脚本时，Outlook可以处于打开或关闭状态，脚本会自动创建/连接Outlook实例。
• 若脚本执行无反应，检查是否有Outlook权限弹窗被拦截，或者以管理员身份运行脚本。

内容的提问来源于stack exchange，提问作者Hallow_Worlds