Durchlaufen alle E-Mail-Elemente in einem bestimmten Outlook-Ordner

Wie kann ich in einem Outlook-VBA-makro Durchlaufen alle E-Mail-Elemente in einem bestimmten Outlook-Ordner (in diesem Fall der Ordner gehört nicht zu meinem persönlichen inbux aber ist ein sub-Ordner in den Posteingang des freigegebenen Postfachs.

Etwas wie dieses, aber ich habe noch einen Outlook makro...

For each email item in mailboxX.inbox.mySubfolder.items
// do this
next item

Habe ich versucht, dieses aber im Posteingang Unterordner nicht gefunden...

Private Sub Application_Startup()

Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Set objNS = GetNamespace("MAPI")
Set objFolder = objNS.Folders("myGroupMailbox")
Set objFolder = objFolder.Folders("Inbox\mySubFolder1\mySubFolder2")

  On Error GoTo ErrorHandler
  Dim Msg As Outlook.MailItem

For Each Item In objFolder.Items

  If TypeName(Item) = "MailItem" Then

    Set Msg = Item
    If new_msg.Subject Like "*myString*" Then
        strBody = myItem.Body
        Dim filePath As String
        filePath = "C:\myFolder\test.txt"
        Open filePath For Output As #2
        Write #2, strBody
        Close #2

    End If

  End If

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

Next Item

End Sub
Was ist der bit, die Sie mit zu kämpfen? Ist es "wie wählen Sie die richtige Unterordner"?
ja, aber ich habe noch nie getan, ein Outlook-makro und nur Durchlaufen diese Ordner mit einigen einfachen Aktionen, aber die Beispiele, die ich gefunden habe, scheinen ziemlich kompliziert. Gibt es etwas, was ich hinzufügen müssen, führen Sie die Schleife?
Bekommst du eine Fehlermeldung, oder es gerade nicht finden, etwas, das Sie wissen, ist es? So oder so denke ich, sollten Sie das next item Linie vor der ProgramExit label, derzeit verlassen Sie die sub bevor Sie es erreichen.

InformationsquelleAutor user3271332 | 2014-02-04

  1. 3

    Das format ist: 

    Set objFolder = objFolder.Folders("Inbox").Folders("mySubFolder1").Folders("mySubFolder2")

    Als riet in einem Kommentar "bewegen Sie die nächste Zeile an, bevor die ProgramExit label"

    InformationsquelleAutor niton

  2. 2

    In meinem Fall die folgenden gearbeitet:

    Sub ListMailsInFolder()

    Dim objNS As Outlook.NameSpace
    Dim objFolder As Outlook.MAPIFolder

    Set objNS = GetNamespace("MAPI")
    Set objFolder = objNS.Folders.GetFirst ' folders of your current account
    Set objFolder = objFolder.Folders("Foldername").Folders("Subfoldername")

    For Each Item In objFolder.Items
        If TypeName(Item) = "MailItem" Then
            ' ... do stuff here ...
            Debug.Print Item.ConversationTopic
        End If
    Next

End Sub

    Ebenso können Sie auch Durchlaufen Kalender Artikel:

    Private Sub ListCalendarItems()
        Set olApp = CreateObject("Outlook.Application")
        Set olNS = olApp.GetNamespace("MAPI")

        Set olRecItems = olNS.GetDefaultFolder(olFolderTasks)
        strFilter = "[DueDate] > '1/15/2009'"
        Set olFilterRecItems = olRecItems.Items.Restrict(strFilter)
        For Each Item In olFilterRecItems
        If TypeName(Item) = "TaskItem" Then
            Debug.Print Item.ConversationTopic
        End If
    Next
End Sub

    Hinweis, dass dieses Beispiel der Verwendung von filtern und auch .GetDefaultFolder(olFolderTasks) um die builtin-Ordner für Kalender-Elemente. Wenn Sie möchten, um Zugriff auf den Posteingang, zum Beispiel, verwenden Sie olFolderInbox.

    InformationsquelleAutor Matt

  3. 2
    Sub TheSub()

Dim objNS As Outlook.NameSpace
Dim fldrImAfter As Outlook.Folder
Dim Message As Outlook.MailItem

    'This gets a handle on your mailbox
    Set objNS = GetNamespace("MAPI")

    'Calls fldrGetFolder function to return desired folder object
    Set fldrImAfter = fldrGetFolder("Folder Name Here", objNS.Folders)

    For Each Message In fldrImAfter.Items
        MsgBox Message.Subject
    Next

End Sub

    Rekursive Funktion eine Schleife über alle Ordner bis auf den angegebenen Ordner-name gefunden wird....

    Function fldrGetFolder( _
                    strFolderName As String _
                    , objParentFolderCollection As Outlook.Folders _
                    ) As Outlook.Folder

Dim fldrSubFolder As Outlook.Folder

    For Each fldrGetFolder In objParentFolderCollection

        'MsgBox fldrGetFolder.Name

        If fldrGetFolder.Name = strFolderName Then
            Exit For
        End If

        If fldrGetFolder.Folders.Count > 0 Then
            Set fldrSubFolder = fldrGetFolder(strFolderName, 
fldrGetFolder.Folders)
            If Not fldrSubFolder Is Nothing Then
                Set fldrGetFolder = fldrSubFolder
                Exit For
            End If
        End If

    Next

End Function

    InformationsquelleAutor DonkeyKong

Schreibe einen Kommentar