Excel VBA If Else语句中断，CommandButton邮件发送功能故障求助

嘿，我看了你遇到的问题——设置了CommandButton想在E1、K2、K5都填好内容时发邮件，但代码跑不起来。从你贴的代码片段来看，主要是有几个小疏漏，我帮你整理修复后的完整代码，顺便讲清楚关键问题点：

先说说你代码里的明显问题 #

1. 你写的MsgBo...是没写完的，这会直接导致语法错误，程序根本跑不起来；
2. 错误处理的cleanup标签虽然提了，但后面没有对应的对象释放逻辑，容易造成内存泄漏；
3. 邮件发送的核心配置（收件人、主题、正文、发送动作）都缺失了，就算判断通过也没法发邮件；
4. 直接创建Outlook新实例的方式不够稳妥，最好优先调用已经打开的Outlook进程。

修复后的完整代码 #

Private Sub CommandButton1_Click()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim nameList As String
    
    ' 第一步：检查必填单元格是否为空
    With Sheets("Sheetname")
        If .Range("E1").Value = "" Or _
           .Range("K2").Value = "" Or _
           .Range("K5").Value = "" Then
            MsgBox "请先填完E1、K2、K5这几个必填单元格哦！", vbExclamation, "提示"
            Exit Sub ' 空值情况下直接退出，不执行后面的邮件代码
        End If
    End With
    
    ' 第二步：初始化Outlook对象（优先用已打开的实例）
    On Error Resume Next
    Set OutApp = GetObject(, "Outlook.Application")
    On Error GoTo cleanup ' 切换到错误捕获逻辑
    
    ' 如果Outlook没打开，再创建新实例
    If OutApp Is Nothing Then
        Set OutApp = CreateObject("Outlook.Application")
    End If
    
    ' 创建新邮件
    Set OutMail = OutApp.CreateItem(0)
    
    ' 第三步：配置邮件内容（根据你的实际需求修改！）
    With OutMail
        .To = "收件人邮箱@xxx.com" ' 替换成实际收件人邮箱
        .CC = "抄送人邮箱@xxx.com" ' 可选，不需要就删掉这行
        .BCC = "密送人邮箱@xxx.com" ' 可选，不需要就删掉这行
        .Subject = "邮件主题：" & Sheets("Sheetname").Range("E1").Value ' 用E1的内容当主题示例
        .Body = "您好：" & vbCrLf & vbCrLf & _
                "这是自动发送的邮件，相关信息如下：" & vbCrLf & _
                "E1内容：" & Sheets("Sheetname").Range("E1").Value & vbCrLf & _
                "K2内容：" & Sheets("Sheetname").Range("K2").Value & vbCrLf & _
                "K5内容：" & Sheets("Sheetname").Range("K5").Value
        ' 要是想用HTML格式邮件，把上面的.Body换成下面的.HTMLBody就行
        ' .HTMLBody = "<p>您好：</p><p>这是自动发送的邮件，相关信息如下：</p>" & _
        '             "<ul><li>E1内容：" & Sheets("Sheetname").Range("E1").Value & "</li>" & _
        '             "<li>K2内容：" & Sheets("Sheetname").Range("K2").Value & "</li>" & _
        '             "<li>K5内容：" & Sheets("Sheetname").Range("K5").Value & "</li></ul>"
        
        .Send ' 直接发送邮件，要是想先预览再发，就改成.Display
    End With
    
cleanup:
    ' 释放Outlook对象，避免内存泄漏
    Set OutMail = Nothing
    Set OutApp = Nothing
    ' 如果有错误，弹出提示告诉用户哪里出问题了
    If Err.Number <> 0 Then
        MsgBox "邮件发送失败：" & Err.Description, vbCritical, "错误提示"
    End If
End Sub

几个需要注意的点 #

• 一定要确认你的工作表名称是Sheetname，如果不是，把代码里的Sheets("Sheetname")改成实际的表名；
• 第一次运行时Outlook大概率会弹出安全提示，记得允许Excel访问Outlook，不然发不了邮件；
• 邮件的收件人、主题、正文这些都要根据你的实际需求修改，我写的只是示例；
• 要是调试的时候不想真发邮件，把.Send改成.Display，这样会弹出邮件窗口让你预览。

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