Outlook与Excel间变量传递：如何判断邮件是否实际发送

这个需求是可以实现的，核心思路是通过Outlook的事件监听机制，绑定你创建的邮件项的Send事件，从而捕获用户的发送操作，再将状态传回Excel。具体实现步骤如下：

• 第一步：创建类模块绑定Outlook邮件的Send事件
  在Excel的VBA编辑器中，右键点击左侧的VBA项目→插入→类模块，将该类模块命名为clsOutlookMail，然后输入以下代码：

  Public WithEvents olMail As Outlook.MailItem
  Public mailSent As Boolean
  
  Private Sub olMail_Send(Cancel As Boolean)
      ' 用户点击发送按钮时触发此事件，标记为已发送
      mailSent = True
  End Sub
  

• 第二步：编写Excel主程序创建邮件并跟踪发送状态
  在标准模块中编写子程序，负责创建Outlook邮件、绑定跟踪类，并最终获取发送状态：

  Sub CreateAndTrackOutlookMail()
      Dim outlookApp As Outlook.Application
      Dim targetMail As Outlook.MailItem
      Dim mailTracker As clsOutlookMail
      Dim isMailSent As Boolean
      
      ' 初始化Outlook应用实例
      Set outlookApp = New Outlook.Application
      Set targetMail = outlookApp.CreateItem(olMailItem)
      
      ' 初始化邮件跟踪类，绑定目标邮件
      Set mailTracker = New clsOutlookMail
      Set mailTracker.olMail = targetMail
      
      ' 设置邮件基础内容（可根据你的需求修改）
      targetMail.Subject = "待编辑测试邮件"
      targetMail.Body = "请编辑内容后选择发送或关闭"
      ' 以模态方式显示邮件（用户必须处理完邮件才会继续执行后续代码）
      targetMail.Display True
      
      ' 获取最终的发送状态
      isMailSent = mailTracker.mailSent
      
      ' 这里可以将isMailSent赋值给你需要的变量，或直接使用该状态
      Debug.Print "邮件是否发送：" & isMailSent
      
      ' 释放对象，避免内存泄漏
      Set targetMail = Nothing
      Set outlookApp = Nothing
      Set mailTracker = Nothing
  End Sub
  

• 关键注意事项：

  1. 必须引用Outlook对象库：打开VBA编辑器后，点击「工具」→「引用」，勾选「Microsoft Outlook xx.x Object Library」（xx.x对应你的Outlook版本号）
  2. 使用targetMail.Display True的模态显示方式，能确保代码等待用户完成邮件操作（发送或关闭）后再继续执行；若需非模态显示，可改为targetMail.Display，但要添加循环等待逻辑：

     targetMail.Display ' 非模态显示邮件
     ' 循环等待邮件被发送或关闭
     Do While TypeName(targetMail) = "MailItem"
         DoEvents ' 让出系统资源，确保事件能被正常捕获
     Loop
     isMailSent = mailTracker.mailSent
     

  3. 无论用户选择立即发送还是延迟发送，只要点击了「Send」按钮，就会触发olMail_Send事件，mailSent会被设为True；若用户直接关闭邮件窗口，mailSent保持False

内容的提问来源于stack exchange，提问作者John Wilson