Как выбрать только почтовые элементы в общей папке в outlook

Question

Как мне автоматически выбрать только почтовые элементы в определенной общедоступной папке, скажем mypublicfolder, в активном окне обозревателя outlook?

Любые идеи приветствуются.

Dim objApp As Outlook.Application
Set objApp = Application

Dim oItems As Object
If oItems.Class = olMail Then
    ' How to select only mailitems in a mypublicfolder in outlook explorer
End if

Dim oSel As Outlook.Selection
Set oSel = objApp.ActiveExplorer.Selection

Answer 1

Вы можете заменить curFldr своим собственным кодом для ссылки на общую папку.

Private Sub SelectMailitems()

    Dim objExp As Explorer
    Dim curFldr As Folder
    Dim itm As Object

    Dim oItems As Object
    Dim oSel As Selection
    Dim i As Long

    Set objExp = ActiveExplorer

    ' Not valid in a conversation view
    objExp.ClearSelection

    Set curFldr = objExp.CurrentFolder
    Set oItems = curFldr.Items

    For Each itm In oItems
        If itm.Class = olmail Then
            objExp.AddToSelection itm
        End If
    Next

    Set oSel = ActiveExplorer.Selection
    Debug.Print "oSel.count: " & oSel.count

    For i = 1 To oSel.count
        Debug.Print oSel(i).Subject
    Next

End Sub

Answer 2

Попробуйте следующий код:

Application.Session.Folders. ("TheDelegateMialboxName@YourCompany.com"). Папки ("TheFolderName")

Для получения дополнительной информации см.Следующая ссылка:

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