当VBA项目包含对Microsoft Outlook对象库的引用时，以下代码可以正常工作。否则，最后一行会产生Invalid procedure call or argument错误。
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.BodyFormat = olFormatHTML 'error here :-(
我认为我从未遇到过仅当我添加对该库的引用时属性或方法才可用的情况。
在Excel 2010/2013上会发生此问题。我没有在其他版本上测试过。
我认为您的问题仅仅是olFormatHTML没有引用就没有价值，因为它是Outlook枚举的一部分。尝试改用文字值：
olMail.BodyFormat = 2
或先声明一个常量：
Const olFormatHTML as Long = 2
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句