Как получить MailItems из определенной папки в Outlook,

Question

Моя папка называется "Request Mailbox" в Outlook,

Как я могу получить список всех mailitems в этой папке

Answer 1

Чтобы получить список MailItems, вы можете просто сделать это

список MailItem будет отображаться Email

Option Explicit 
Sub MailItems() 
    Dim olNamespace As Outlook.NameSpace 
    Dim olFolder As Outlook.MAPIFolder 
    Dim olItem As Outlook.MailItem 

    Set olNamespace = Application.GetNamespace("MAPI") 
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox).Folders("Request Mailbox") 

    Set olItem = Application.CreateItem(olMailItem) ' Creat EMail 
    With olItem 
     For Each olItem In olFolder.Items 
      Debug.Print olItem.Subject ' Print to immediate window 
      .body = .body & olItem.Subject & vbCrLf ' Print to Email 
      Debug.Print olItem.SenderName 
      .body = .body & olItem.SenderName & vbCrLf 
      Debug.Print olItem.ReceivedTime 
      .body = .body & olItem.ReceivedTime & vbCrLf & vbCrLf 
     Next ' vbCrLf = vb: Visual Basic Cr: Carriage Return Lf: LineFeed 
     .Subject = "Mail Items" ' Subject 
     .Display ' Display Msg 
    End With 

End Sub 

Для общей папки Попробуйте

Option Explicit 
Sub ShareMailItems() 
    Dim olNamespace As Outlook.NameSpace 
    Dim olShareName As Outlook.Recipient 
    Dim olShareInbox As Outlook.Folder 
    Dim olItem As Outlook.MailItem 

    Set olNamespace = Application.GetNamespace("MAPI") 
    Set olShareName = olNamespace.CreateRecipient("0m3r@email.com") '// Owner's email address 
    Set olShareInbox = olNamespace.GetSharedDefaultFolder(_ 
       olShareName, olFolderInbox).Folders("Request Mailbox") '// FolderName 

    Set olItem = Application.CreateItem(olMailItem) ' Creat EMail 
    With olItem 
     For Each olItem In olShareInbox.Items 
      Debug.Print olItem.Subject ' Print to immediate window 
      .body = .body & olItem.Subject & vbCrLf ' Print to Email 
      Debug.Print olItem.SenderName 
      .body = .body & olItem.SenderName & vbCrLf 
      Debug.Print olItem.ReceivedTime 
      .body = .body & olItem.ReceivedTime & vbCrLf & vbCrLf 
     Next ' vbCrLf = vb: Visual Basic Cr: Carriage Return Lf: LineFeed 
     .Subject = "Mail Items" ' Subject 
     .Display ' Display 
    End With 
End Sub 

Answer 2

Для делегата почтового ящика уже открыт в Outlook, используйте Application.Session.Folders.("TheDelegateMialboxName@YourCompany.com").Folders("TheFolderName")