如果 Outlook 关闭，则从 C# OOM 发送的电子邮件将保留在发件箱中，直到下一次 Outlook 启动

Question

我正在尝试使用 Outlook 对象模型从 .NET 应用程序发送电子邮件。

我的应用程序显示 Outlook 消息窗口，因此用户可以看到我们发送的内容并首先对其进行编辑。当用户点击“发送”按钮时，Outlook 窗口将关闭，并发送消息。只要 Outlook 应用程序已经在运行，它就可以完美运行。

如果 Outlook 应用程序尚未运行，则邮件会卡在发件箱中，并且在我启动 Outlook 之前不会发送。当我启动 Outlook 时，我可以看到邮件在发件箱文件夹中停留了几秒钟，然后它就被发送了。 我需要向 Outlook 用户显示新邮件表单以选择收件人并可能在发送前编辑邮件。

注意：我知道这个问题已经在这里问过Email sent with Outlook Object Model stays in Outbox until I start Outlook 并且存在解决方案，但没有提供（仅提供小提示），不幸的是我无法要求澄清/代码示例，因为我没有足够的“声誉”。 我尝试编写自己的所提供提示的实现，但 仅 在 Outlook 已打开时触发 SyncEnd 事件（提醒一下，问题是关于此案的情况，然后 Outlook 已关闭）。 我的代码如下。怎么了？

using Microsoft.Office.Interop.Outlook;
using OutlookApp = Microsoft.Office.Interop.Outlook.Application;
class Mailer
{
  AutoResetEvent mailSentEvent = new AutoResetEvent(false);

  public void CreateMail()
  {
    OutlookApp outlookApp = null;
    MailItem mailItem = null;
    try
    {
      outlookApp = new OutlookApp();
      mailItem = outlookApp.CreateItem(OlItemType.olMailItem);

      mailItem.Subject = "Test Message";
      mailItem.Body = "This is the message.";
      string reportPath = @"C:\temp\aaaaa.pdf";
      mailItem.Attachments.Add(reportPath);
      mailItem.Display(true);

      StartSync(outlookApp);
      bool result = mailSentEvent.WaitOne();
     }
    catch (System.Exception)
    {
        throw;
    }
    finally
    {
      if (mailItem != null) Marshal.ReleaseComObject(mailItem);
      if (outlookApp != null) Marshal.ReleaseComObject(outlookApp);
    }
  }

  private static SyncObject _syncObject = null;

  private void StartSync(OutlookApp outlookApp)
  {
    var nameSpace = outlookApp.GetNamespace("MAPI");
    _syncObject = nameSpace.SyncObjects[1];
    _syncObject.SyncEnd += new Microsoft.Office.Interop.Outlook.SyncObjectEvents_SyncEndEventHandler(OnSyncEnd);
    _syncObject.Start();
}

  private void OnSyncEnd()
  {
    mailSentEvent.Set();
  }
}

Answer 1

仅当 Outlook 已打开时才会触发 SyncEnd 事件

那不是真的。 SyncObjects 集合包含所有发送\接收组。您需要遍历集合中的所有对象并调用Start 方法，例如：

  Set sycs = nsp.SyncObjects 
  For i = 1 To sycs.Count 
    Set syc = sycs.Item(i) 
    strPrompt = MsgBox("Do you wish to synchronize " &; syc.Name &;"?", vbYesNo) 
    If strPrompt = vbYes Then 
      syc.Start 
    End If 
  Next