Programation dossier de réception autre que le GetDefaultFolder

Chrysostome Messages postés 121 Date d'inscription   Statut Membre Dernière intervention   -  
Chrysostome Messages postés 121 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
voilà un moment que je cherche sur le net, sans réel commencement de solution, donc je m'adresse à ceux qui savent et qui partagent, grand merci à eux!

Je fais un programme d'automation en VB6 (ou vba), où lors de la réception d'un mail ( fonctionne en vba Outlook 2007), je déclenche tout un tas d'actions.
Voilà l'exemple que j'ai trouvé en VB6 et qui fonctionne:

Dim folder As String
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
If myFolder.Items.Count = 0 Then

J'ai créé un compte IMAP qui fonctionne mais qui ne peut pas se mettre "par défaut" (seuls Boîte de réception et Archivage).

Donc, soit il faut changer le compte par defaut, soit il faut changer "GetDefaultFolder".

J'ai cherché du côté de "Folders" entre autres.

Merci de vos réponses éclairées et éclairantes.

1 réponse

  1.
    Chrysostome Messages postés 121 Date d'inscription   Statut Membre Dernière intervention   14
     

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI").Folders(3)
    Set myfolder = myNameSpace.Folders(1)
    If myfolder.Items.Count = 0 Then
    Set myNewFolder = myfolder.Folders(2)
    MsgBox ("le dossier boite de réception est vide")
    Else
    MsgBox myfolder.Items.Count
    End If


    Pour trouver l'index des folders:
    Nb de folders = Folders.Items.Count
    Nom du Folder = Folder(1 puis ...).Name
    0