Verweis auf einen Ordner mit Namen

Ich brauche, um einen Ordner nach name, nicht nach Ordner-Nummer zählt. Ich versuchte, mit verschiedenen Methoden.

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
'Dim OlFolder As Outlook.MAPIFolder
Dim objFolder As Outlook.Folder
Dim myolItems As Outlook.Items
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
'Set myOlItems = objNS.GetDefaultFolder(37).Folders("Vijay Baswal").Items
'Open the folder
Set objFolder = olApp.Session.GetDefaultFolder("Vijay Baswal")
Ich schrieb eine detaillierte Anleitung für den Zugriff auf Informationen in Outlook, beginnend mit dem Ordner in der Antwort auf eine frühere Frage. Siehe stackoverflow.com/a/8699250/973283.
Was ist der vollständige Pfad des Ordners?

InformationsquelleAutor Zelig | 2012-06-22

  1. 3

    Sagen, unter der Posteingang wurde ein Ordner mit dem Namen Kunden und unter, dass war ein Ordner mit dem Namen Vijay Baswal

    Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Ordner("Kunden").Ordner("Vijay Baswal")

    OlDefaultFolders Enumeration http://msdn.microsoft.com/en-us/library/office/bb208072(v=office.12).aspx

    Der Posteingang olFolderInbox oder 6. Angezeigt wird es ist keine 37.

    InformationsquelleAutor niton

  2. 2

    siehe unten vba-Schnipsel, um zu überprüfen, wie Lesen von E-Mails aus bestimmten Ordner

     Dim olApp As Outlook.Application
Dim olNs As Outlook.NameSpace
Dim olFldr As Outlook.MAPIFolder
Dim olItms As Outlook.Items
Dim olMail As Variant
Dim outFolder As Outlook.Folder

 Dim olItem As Outlook.MailItem


Dim i As Long

Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set olFldr = olNs.Folders("folder1").Folders("fol2")
Set olItms = olFldr.Items


olItms.Sort "Subject"

i = 1

For Each olItem In olItms
    'If InStr(olMail.Subject, "Criteria") > 0 Then

       Dim szVar As String
      szVar = olItem.Body
        szVar1 = olItem.Subject
        i = i + 1
    'End If
Next olItem

Set olFldr = Nothing
Set olNs = Nothing
Set olApp = Nothing

    InformationsquelleAutor koolprasad2003

Schreibe einen Kommentar