在 Outlook 尚未打开时发送邮件

Question

我的情况：

我正在尝试在 Outlook 未打开时发送电子邮件。如果 Outlook 正在运行，此代码将起作用。如果 Outlook 已关闭，代码将创建一个不可见的进程，您可以在任务管理器中看到该进程正在运行。

代码在.Send 期间遇到错误。它返回运行时错误 287。

根据我的经验，某些 VBA 方法仅在对象可见或活动时才有效。

我的解决方法是在调用.Send 之前使用.Display(False)。

调用.Send 后，它会立即终止 Outlook 进程。 （为什么请指出正确的方向。）然后电子邮件卡在发件箱中。

我必须通过调用另一个CreateObject("Outlook.Application") 并循环通过发件箱While Outbox.Items.Count > 0 来应用另一个解决方法

或

循环通过SyncObjects 并手动调用.Start 以在发件箱上运行发送/接收。

我的问题：

有没有办法直接使用.Send 方法而不是使用变通方法，同时也不必打开 Outlook。

我的代码：

Sub emailer()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .to = "f@r.com"
    .CC = ""
    .BCC = ""
    .Subject = "This is the Subject line"
    .Body = "Hi there"
    .Send   'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Answer 1

可以通过更改发送/接收的设置来解决关闭 Outlook 的 .send 问题的解决方法。转到文件-> 选项-> 高级-> 找到Send/Receive... 并按下它。在“为组“所有帐户”设置下是Perform an automatic send/receive when exiting 的复选框。选中此选项，它可能会解决“卡在您遇到的发件箱问题”。

这是截图：

试试这个，希望对你有帮助。

Answer 2

使用Namespace.SendAndReceive。请记住，发送/接收是异步的，您需要等待同步完成。您可以使用Namespace.SyncObjects 集合，使用SyncObject.Start 开始同步，然后等待SyncObject.SyncEnd 事件。

要防止 Outlook 关闭，您需要保留对 Outlook Explorer 或 Inspector 对象的实时引用。您可以使用Namespace.GetDefaultFolder 检索收件箱文件夹，然后使用MAPIFolder.GetExplorer 方法获取指向资源管理器对象的指针。

更新：

您可能还需要确保在创建和发送消息之前登录到 MAPI 配置文件。在 CreateObject 行之后，尝试添加以下内容

set NS = OutApp.GetNamespace("MAPI") 
NS.Logon