0

办公室 365

word 中的 VBA 用于发送电子邮件。该代码已成功用于许多计算机,但对于使用CreateObject. 如果 Outlook 打开它可以正常工作,但关闭它会冻结,其他计算机在这两种情况下都可以正常工作。

Dim objOL          As Object
Dim objEmailItem   As Object

Set objOL = CreateObject("outlook.application")      '*** Freezing  ***
Set objEmailItem = objOL.createItem(varOlmailitem)

我尝试卸载并重新安装它,停止杀毒软件,重新启动。

谢谢。

4

1 回答 1

0

尝试使用早期绑定,首先需要设置对 Outlook 对象库的引用。使用 Visual Basic for Applications (VBA) 工具菜单上的引用命令设置对 Microsoft Outlook xx.x 对象库的引用,其中 xx.x 表示您正在使用的 Outlook 版本。然后,您可以使用以下语法启动 Outlook 会话。

Dim objOL as Outlook.Application 
Set objOL = New Outlook.Application

有关详细信息,请参阅从 Visual Basic 应用程序自动化 Outlook

于 2021-12-19T17:31:16.227 回答