Вопрос по outlook-vba, outlook-2010 – Ссылка на папку по имени

2

Мне нужно получить папку по имени, а не по количеству папок. Я пытался получить с помощью различных методов.

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")
Какой полный путь к папке? JimmyPena
Я написал подробное руководство по доступу к информации в Outlook, начиная с папок в ответ на предыдущий вопрос. Увидетьstackoverflow.com/a/8699250/973283. Tony Dallimore

Ваш Ответ

2   ответа
3

Скажем, под папкой «Входящие» была папка с именем «Клиенты», а под ней - папка «Виджай Басвал».

Установите objFolder = objNS.GetDefaultFolder (olFolderInbox) .Folders (& quot; Клиенты & quot;). Папки (& quot; Виджай Басвал & quot;)

Перечисление OlDefaultFoldershttp://msdn.microsoft.com/en-us/library/office/bb208072(v=office.12).aspx

Входящие - это olFolderInbox или 6. Похоже, что нет 37.

2

см. ниже фрагмент vba, чтобы проверить, как читать почту из определенной папки

 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

Похожие вопросы