Outlook VBA多个电子邮件选择

Question

我正试图从我的选择中获得信息，但我没有运气。下面是我的代码为一个单一的项目，但不能让它与我选择的项目工作:

    Function GetCurrentItem() As Object
   Dim objApp As Outlook.Application
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.currentItem
    End Select
    Set objApp = Nothing

    End Function

我该如何将其转换为使用电子邮件的选择?

下半场分界球:

Sub Process_Email(oMail As MailItem)
    Dim MailSubject$
    MailSubject = LCase(Trim(oMail.Subject))
    If MailSubject = "Subject 1" Then
        Call Extract_And_Export_1(oMail.Body)
    ElseIf MailSubject = "Subject 2" Then
        Call Extract_And_Export_2(oMail.Body)

    ElseIf InStr(1, oMail.Body, "Body Field One", vbTextCompare) > 0 Then
            Call Extract_And_Export_5(oMail.Body)
    End If
End Sub

Answer 1

您的函数被声明为返回单个项。你怎么能从它返回多个项目?

对于资源管理器，循环遍历选择集合中的所有项:

 Select Case TypeName(objApp.ActiveWindow)
    Case "Explorer"
        for each item in  objApp.ActiveExplorer.Selection
          MsgBox item.Subject
        next