如何用If语句判断Sub过程是否成功执行并触发邮件发送？

核心问题分析 #

你当前代码的关键问题是：Sub过程无法返回执行状态值。你试图用If Populate = True判断Sub的执行结果，但Sub没有返回值，这会导致编译错误或逻辑失效。必须将Populate改为Function类型，让它返回布尔值表示执行成功/失败。

步骤1：将Populate改为带返回值的Function #

修改你的Populate过程，让它在执行成功时返回True，出错或未完成目标时返回False，示例如下：

Function Populate() As Boolean
    On Error GoTo ErrorHandler ' 捕获执行过程中的错误
    
    ' --------------------------
    ' 这里保留你原来Populate Sub中的所有业务代码
    ' 比如：填充文档内容、验证数据等操作
    ' --------------------------
    
    ' 执行到此处说明无错误，标记为成功
    Populate = True
    Exit Function

ErrorHandler:
    ' 出错时返回False，可添加错误提示帮助排查
    MsgBox "Populate执行失败：" & Err.Description
    Populate = False
End Function

步骤2：修正SendButton_Click的逻辑 #

去掉重复调用Populate的冗余代码，直接调用Function并判断返回值，调整后的完整代码：

Private Sub SendButton_Click()
    Dim isPopulateSuccess As Boolean
    isPopulateSuccess = Populate ' 调用Function并获取执行结果
    
    If isPopulateSuccess Then
        Application.ScreenUpdating = False
        
        ' 显式声明所有变量，避免隐式错误
        Dim outlookApp As Object
        Dim mailItem As Object
        Dim activeDoc As Document
        
        Set outlookApp = CreateObject("Outlook.Application")
        Set mailItem = outlookApp.CreateItem(0) ' 用数字0替代olMailItem，兼容未引用Outlook库的情况
        Set activeDoc = ActiveDocument
        activeDoc.Save
        
        With mailItem
            .Subject = "New ePRF Available"
            .Body = "I have completed a new e-PRF"
            .To = "" ' 请填写收件人邮箱地址
            .Importance = 1 ' 用数字1替代olImportanceNormal
            .Attachments.Add activeDoc.FullName
            .Send
        End With
        
        Application.ScreenUpdating = True
        
        ' 释放对象，避免内存泄漏
        Set activeDoc = Nothing
        Set outlookApp = Nothing
        Set mailItem = Nothing
    Else
        MsgBox "Populate执行未完成，无法发送邮件。"
    End If
End Sub

额外优化建议 #

• 在模块顶部添加Option Explicit，强制所有变量必须显式声明，减少隐式变量错误
• 如果你的项目需要频繁操作Outlook，可以通过工具→引用勾选Microsoft Outlook XX.X Object Library，这样就能直接使用olMailItem、olImportanceNormal等枚举常量，不用再用数字替代
• 可以在Populate中添加业务逻辑判断（比如验证必填字段是否填写），如果不满足条件也返回False，确保只有完全符合要求才发送邮件

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