VBA pour sélectionner la boîte aux lettres si un compte a plusieurs de la boîte aux lettres

Voici mon exigence.

- Je avoir plusieurs comptes dans mon OUTLOOK configuré.
1) [email protected] (une seule boîte aux lettres)
2) [email protected] (Plusieurs boîtes aux lettres sont là. ex: zone d'Unix, Windows, Mac case)

Voici mon 2ème compte de messagerie a sa propre boîte aux lettres et lié à de multiples boîtes aux lettres est comme UNIX, Windows, etc. Chaque Boîte aux lettres a ses propres boîte de réception et sous-dossiers.

Maintenant, j'ai besoin de sélectionner un dossier dans la zone d'Unix (boîte de réception) et exécuter le code pour faire quelque chose dans le dossier.

Voici ce que j'ai 

For Each oAccount In Application.Session.Accounts
If oaccount ="[email protected]" then
Set folder = ns.GetDefaultFolder(olFolderInbox) ' here it selects the inbox folder of account.
For each item in folder.items
Code goes here
next
end if
next

Cela fonctionne bien pour le seul compte de boîte aux lettres, mais quand je fais cela pour de multiples compte de boîte aux lettres , il ne fonctionne pas.

toute aide serait appréciée.

  • Comment les boîtes aux lettres liées apparaissent dans le profil? Sont-ils simplement des sous-dossiers de la boîte aux lettres principal? Quel est le chemin d'accès de l'emplacement exact que vous souhaitez sélectionner?
  • Ils apparaissent sous la forme de la boîte aux lettres. Mais le calme ne s'affiche pas dans l'onglet "comptes". ex: 1 compte([email protected]) a 4 lettres liées, 4 d'entre eux dispose de différents comptes, mais par le simple ajout de [email protected] dans les comptes je peux voir tous 5 de la boîte aux lettres dans outlook pas dans les comptes. Vous l'obtenir?
  • Pouvez-vous en boucle entre eux à l'aide d'un For Each sur le ns.Folders collection?
  • Quand je boucle en utilisant pour chacun des comptes-je obtenir les dossiers de la source compte que nous ajouter, pas pour les comptes liés.
InformationsquelleAutor Lokanadhan Karthik | 2015-11-27
  1. 2

    Expansion sur DanL a proposé de faire une boucle par ns.Les dossiers que je ne peux pas dire si vous l'avez compris.

    Option Explicit

Sub accTopFolder()

Dim oAccount As Account
Dim ns As Namespace
Dim fldr As folder
Dim item As Object
Dim inbx As folder

Set ns = GetNamespace("MAPI")

For Each oAccount In Session.Accounts

    Debug.Print vbCr & "oAccount: " & oAccount
    '
    For Each fldr In ns.Folders
    ' Shows all the names so you can replace "test"
        Debug.Print " top folder: " & fldr.name
        If fldr = "test" Then
            Set inbx = fldr.Folders("Inbox")
            'inbx.Display
            For Each item In inbx.Items
                Debug.Print "  item .Subject: " & item.subject
            Next
            Exit For
        End If
    Next
Next

Set inbx = Nothing
Set ns = Nothing

End Sub
    InformationsquelleAutor niton
  2. 1

    Vous pouvez utiliser le DeliveryStore propriété de la Account pour obtenir sa boîte de réception. Par exemple:

    Dim ns As NameSpace
Set ns = Application.Session

Dim acc As Account
Dim f As Folder

For Each acc In ns.Accounts
    ... Preconditions here ...
    Set f = acc.DeliveryStore.GetDefaultFolder(olFolderInbox)
    ... Now, do some looping ...
Next
    • Je vais essayer ça et vous le fait savoir. Merci
    • Il ne fonctionne pas. Permettez-moi de donner quelques informations supplémentaires. Voir mon post original, j'ai ajouté l'info. À l'aide de l'acc.deliverystore me fait les comptes de la boîte de réception et les dossiers, mais pas lié à la boîte aux lettres.
    InformationsquelleAutor DanL