我有一个通过 VBA 创建电子邮件的函数。
我通过 Excel 2016 做到了这一点。当我的一些同事尝试使用它时,出现了缺少引用的错误(Outlook Library 16.0)。
我在互联网上寻找解决方案,发现最好的是后期绑定。我已经阅读过它,但我不明白如何使其在以下示例代码中工作。
Sub EscalateCase(what_address As String, subject_line As String, email_body As String)
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = what_address
olMail.Subject = subject_line
olMail.BodyFormat = olFormatHTML
olMail.HTMLBody = email_body
olMail.Send
End Sub
这是早期绑定:
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
这是后期绑定:
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
后期绑定不需要引用Outlook 库 16.0而早期绑定则可以。但是,请注意,后期绑定会慢一些,并且您不会获得该对象的智能感知。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)