嗨阿曼达!
这是来自的 Ryan4 ExtendOffice. 感谢您发送您的电子邮件地址来帮助解决我的问题,自从发现您的精彩社区以来,我打算成为一名活跃的成员,所以我希望最终解决我的文件上传问题!
现在,请在此处查看附件。 我确实将代码更新为“Exit Sub”而不是“End if”,但是我仍然收到没有调试选项的错误。 你能建议吗? 也许这是我的结构或缩进。
再次感谢你的帮助!
瑞安
嗨莱恩,
已收到电子邮件。 由于可能有其他用户有同样的问题,我会在这里回复。
请尝试以下方法:
1。 打开
参考文献.
2。 检查
Microsoft Outlook 16.0 对象库.
注意:您可能有 16.0、15.0 等,而不是 14.0。
3.替换下面的代码
Dim xOutApp As Object
Dim xOutMail As Object
至
Dim xOutApp As Outlook.Application
Dim xOutMail As Outlook.MailItem
请尝试以上3个步骤。 由于您的 vba 在我们的计算机上运行良好,因此我们很难重现该问题。 希望这个方法能帮到你!
阿曼达