VBA Microsoft Outlook邮件处理-添加其他案例

在“ThisOutlookSession”中，我有一个sub，它捕捉到一个特定的附件。如何添加另一个条件，即提取另一个特定邮件项目和附件

Private Sub Items_ItemAdd(ByVal item As Object)

    On Error GoTo ErrorHandler

    'Only act if it's a MailItem
    Dim Msg As Outlook.MailItem
    If TypeName(item) = "MailItem" Then
        Set Msg = item

        'Change variables to match need. Comment or delete any part unnecessary.
        If (Msg.SenderName = "Sender") And _
            (Msg.Subject = "Sub") And _
            (Msg.Attachments.Count >= 1) Then

            'Set folder to save in.
            Dim olDestFldr As Outlook.MAPIFolder
            Dim myAttachments As Outlook.Attachments
            Dim Att As String

            'location to save in.  Can be root drive or mapped network drive.
            Const attPath As String = "Z:\Folder\Folder\"

            ' save attachment
            Set myAttachments = item.Attachments
            Att = myAttachments.item(1).DisplayName
            myAttachments.item(1).SaveAsFile attPath & Att

            ' mark as read
            Msg.UnRead = False
        End If

    End If

ProgramExit:
    Exit Sub

ErrorHandler:
    MsgBox Err.Number & " - " & Err.Description
    Resume ProgramExit
End Sub

可以使用或在VBA代码中执行条件分支。下面提供了前面MSDN链接中的示例

If-Then-Else语句 如果dayW=星期三，那么 如果小时=14或小时=15，则 返回真值 其他的 返回错误 如果结束 ElseIf dayW=星期四，那么 如果小时=12，则 返回真值 其他的 返回错误 如果结束 其他的 返回错误 如果结束 案例陈述 选择案例编号 案例1至5 Debug.writeLineBeween 1和5，包括 '以下是计算结果为True的唯一Case子句。案例6、7、8 Debug.writeLineBeween 6和8，包括 案例9至10 Debug.WriteLineEqual等于9或10 其他情况 Debug.writelineno不在1和10之间（含1和10） 结束选择 如果您的计算机未打开，则您的VBA代码将永远不会执行。

您可以使用或在VBA代码中执行条件分支。下面提供了前面MSDN链接中的示例

If-Then-Else语句 如果dayW=星期三，那么 如果小时=14或小时=15，则 返回真值 其他的 返回错误 如果结束 ElseIf dayW=星期四，那么 如果小时=12，则 返回真值 其他的 返回错误 如果结束 其他的 返回错误 如果结束 案例陈述 选择案例编号 案例1至5 Debug.writeLineBeween 1和5，包括 '以下是计算结果为True的唯一Case子句。案例6、7、8 Debug.writeLineBeween 6和8，包括 案例9至10 Debug.WriteLineEqual等于9或10 其他情况 Debug.writelineno不在1和10之间（含1和10） 结束选择

---

如果您的计算机未处于开机状态，则您的VBA代码将永远不会执行。

+1是关于计算机开机状态的重要说明。最有效的编码时间是在断电和我的笔记本电脑电池耗尽的情况下…+1是关于计算机开机状态的重要说明。最有效的编码时间是在待机状态下我的笔记本电脑断电，电池没电了。。。