Outlook 2016 VBA脚本IF ELSEIF失效：内外收件人发送确认弹窗需求

我来帮你搞定这个问题——你的代码里有两个关键逻辑错误，导致ElseIf分支完全没机会触发，咱们一步步修正：

问题分析 #

1. 判断结构嵌套错误：你把「同时有内部和外部收件人」的判断放在了「只有外部收件人」的If块内部，这意味着只要external=1成立，程序只会执行第一个弹窗，永远不会走到ElseIf分支。
2. 计数变量赋值不当：原来的代码遇到一个内部/外部收件人就直接把变量设为1，虽然单个收件人时没问题，但用累加的方式（internal = internal +1）会更严谨，能明确判断是否存在对应类型的收件人。

修复后的完整代码 #

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim recips As Outlook.Recipients
    Dim recip As Outlook.Recipient
    Dim pa As Outlook.PropertyAccessor
    Dim prompt As String
    Dim Address As String
    Dim lLen As Integer
    Dim strMyDomain As String
    Dim internal As Integer
    Dim external As Integer
    Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    
    ' 获取当前用户的域名
    Dim UserAddress As String
    UserAddress = Session.CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress
    lLen = Len(UserAddress) - InStrRev(UserAddress, "@")
    strMyDomain = Right(UserAddress, lLen)
    
    Set recips = Item.Recipients
    internal = 0
    external = 0
    
    For Each recip In recips
        Set pa = recip.PropertyAccessor
        Address = LCase(pa.GetProperty(PR_SMTP_ADDRESS))
        lLen = Len(Address) - InStrRev(Address, "@")
        Dim str1 As String
        str1 = Right(Address, lLen)
        
        ' 修正计数逻辑：累加而非直接赋值为1
        If str1 = strMyDomain Then
            internal = internal + 1
        Else
            external = external + 1
        End If
    Next
    
    ' 调整判断顺序和结构：先判断混合收件人，再判断纯外部收件人
    If internal > 0 And external > 0 Then
        prompt = "This email is being sent to Internal and External addresses. Do you still wish to send?"
        If MsgBox(prompt, vbYesNo + vbExclamation + vbMsgBoxSetForeground, "Check Address") = vbNo Then
            Cancel = True
        End If
    ElseIf external > 0 Then
        prompt = "This email is being sent to External addresses. Do you still wish to send?"
        If MsgBox(prompt, vbYesNo + vbExclamation + vbMsgBoxSetForeground, "Check Address") = vbNo Then
            Cancel = True
        End If
    End If
End Sub

关键修改点 #

• 计数逻辑优化：用internal = internal +1和external = external +1替代直接赋值为1，确保只要存在对应类型的收件人，变量值就会大于0。
• 判断顺序调整：先检查是否同时存在内部和外部收件人，再检查纯外部收件人，避免分支被覆盖。
• 结构修正：把两个判断分支放在同一层级，不再嵌套，确保每个条件都有机会被触发。

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