Excel VBA自动发邮件需添加Microsoft Outlook 16.0对象库却找不到，求解决

方法1：手动注册Outlook类型库 #

如果Outlook的类型库未在系统中注册，就会出现在References里找不到的情况：

• 找到Outlook的OLB文件路径，默认路径：
  • 64位Office：C:\Program Files\Microsoft Office\root\Office16\MSOUTL.OLB
  • 32位Office（装在64位系统）：C:\Program Files (x86)\Microsoft Office\root\Office16\MSOUTL.OLB
• 以管理员身份打开命令提示符，执行注册命令：

  regsvr32 "你的OLB文件完整路径"
  

• 注册成功后重启Excel，再进入Tools→References查找对象库。

方法2：使用晚绑定替代早绑定 #

如果实在无法找到并添加引用，可以用晚绑定方式实现邮件发送，无需提前引用对象库：

Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")
Dim outlookMail As Object
Set outlookMail = outlookApp.CreateItem(0)

' 配置邮件内容
With outlookMail
    .To = "收件人邮箱地址"
    .Subject = "自动发送测试"
    .Body = "这是通过VBA自动发送的邮件"
    ' 如需添加附件，取消下面注释并替换路径
    '.Attachments.Add "C:\测试文件.txt"
    .Send
End With

' 释放对象
Set outlookMail = Nothing
Set outlookApp = Nothing

晚绑定的优势是兼容性更强，不受Office版本和位数限制。

方法3：修复Office安装 #

Office组件损坏可能导致对象库无法被识别：

• 打开控制面板→程序和功能，找到Microsoft Office套件
• 右键选择「更改」，先尝试「快速修复」；若无效，选择「联机修复」
• 修复完成后重启电脑，再检查References中的对象库。

方法4：检查Office位数匹配 #

Excel和Outlook必须为同一位数（均为32位或均为64位），否则无法在Excel的VBA引用中找到Outlook对象库：

• 在Excel中点击「文件→账户→关于Excel」查看位数
• 在Outlook中点击「文件→Office账户→关于Outlook」查看位数
• 若位数不一致，需重装Office统一为相同位数。

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