如何为Outlook发送按钮添加自定义消息框（Macro与Userform场景）

没问题，我来帮你搞定这个自定义消息框的需求！既然你已经能成功调用Outlook发送邮件，那给按钮添加自定义提示和确认逻辑其实很简单，下面是具体的实现步骤和代码示例：

1. 基础发送前确认消息框 #

如果只是想防止误操作，在点击发送前弹出确认提示，直接用VBA的MsgBox函数就能实现。把这段代码加到你的Userform发送按钮的点击事件里：

Private Sub cmdSendEmail_Click()
    ' 弹出带确认选项的自定义对话框
    Dim userChoice As VbMsgBoxResult
    userChoice = MsgBox("确认要发送这封邮件吗？", vbYesNo + vbQuestion, "发送确认")
    
    ' 根据用户选择执行对应操作
    If userChoice = vbYes Then
        ' 这里放你已经写好的Outlook发送邮件代码
        Call YourSendEmailSubroutine ' 替换成你实际的发送子程序名称
        
        ' 发送成功后的提示
        MsgBox("邮件已成功发送！", vbInformation, "发送完成")
    Else
        ' 可选：用户取消发送时的提示
        MsgBox("发送已取消", vbExclamation, "操作取消")
    End If
End Sub

这里的几个参数说明：

• vbYesNo + vbQuestion：显示带问号图标和「是/否」按钮的对话框
• vbInformation：显示蓝色信息图标，适合成功提示
• vbExclamation：显示黄色感叹号图标，适合取消/警告提示

2. 带动态内容的个性化消息框 #

如果想让提示更贴心，比如显示收件人、邮件主题等信息，可以动态拼接提示文本：

Private Sub cmdSendEmail_Click()
    ' 假设你已经从Userform控件中获取了收件人和主题信息
    Dim targetRecipient As String
    Dim emailTitle As String
    targetRecipient = txtRecipient.Text ' 替换成你的收件人输入框控件名
    emailTitle = txtSubject.Text ' 替换成你的主题输入框控件名
    
    ' 生成带具体信息的提示文本
    Dim promptContent As String
    promptContent = "即将发送邮件至：" & targetRecipient & vbCrLf & _
                    "邮件主题：" & emailTitle & vbCrLf & vbCrLf & _
                    "确认发送吗？"
    
    Dim userChoice As VbMsgBoxResult
    userChoice = MsgBox(promptContent, vbYesNo + vbQuestion, "发送确认")
    
    If userChoice = vbYes Then
        ' 执行发送逻辑
        Call YourSendEmailSubroutine
        MsgBox("邮件已成功发送至 " & targetRecipient, vbInformation, "发送成功")
    End If
End Sub

3. 包含错误处理的完整版本 #

如果想在邮件发送失败时给用户明确的错误提示，可以加上错误捕获逻辑：

Private Sub cmdSendEmail_Click()
    Dim userChoice As VbMsgBoxResult
    userChoice = MsgBox("确认发送邮件？", vbYesNo + vbQuestion, "发送确认")
    
    If userChoice = vbYes Then
        On Error GoTo SendErrorHandler ' 启用错误捕获
        
        ' 你的Outlook发送邮件代码
        Call YourSendEmailSubroutine
        
        MsgBox("邮件发送成功！", vbInformation, "完成")
        Exit Sub
        
SendErrorHandler:
        ' 捕获到错误时弹出提示
        MsgBox("邮件发送失败：" & Err.Description, vbCritical, "发送错误")
    End If
End Sub

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