Vba 如何在outlook中使用宏发送邮件之前检查详细信息？

我必须给许多不同的团体发邮件，有时我发错了团体

---

我想创建VBA代码来检查主题标题的首两个字母，以及在发送邮件时邮件正文中是否存在相同的首两个字母。如果升级是正确的，则应发送邮件，否则代码将显示一些错误消息。

看起来您需要处理应用程序类的事件，该事件在用户通过检查器发送Microsoft Outlook项目时触发（在关闭检查器之前，但在用户单击“发送”按钮之后）或者在程序中使用Outlook项目（如MailItem）的发送方法时。请注意，传递给事件处理程序的Cancel参数允许取消该操作。如果事件过程将此参数设置为true，则发送操作未完成，并且检查器保持打开状态

Public WithEvents myOlApp As Outlook.Application  
Public Sub Initialize_handler()    
   Set myOlApp = Outlook.Application  
End Sub 

Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)  
  Dim prompt As String  
  prompt = "Are you sure you want to send " & Item.Subject & "?"  
  If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then  
    Cancel = True  
  End If  
End Sub

---

在代码中，您可以查看您需要的任何内容-主体、主体或HTMLBody值。

堆栈溢出不是一项代码编写服务。您迄今为止尝试了哪些内容？您遇到了哪些具体问题？如果您想创建宏，请显示您尝试了哪些内容。否则，您可能希望有人为您编写该宏。您可能会发现并使用.Edi问题是增加细节。如果不能补救，那么考虑删除这个问题。现在，它只能收集影响你提问的能力的下票。