programation dossier de réception autre que le GetDefaultFolder Fermé

Question

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.


Configuration: Windows 7 / Firefox 43.0

Chrysostome · Answer

Set myOlApp = CreateObject("Outlook.Application")Set myNameSpace = myOlApp.GetNamespace("MAPI").Folders(3)Set myfolder = myNameSpace.Folders(1)If myfolder.Items.Count = 0 ThenSet myNewFolder = myfolder.Folders(2)MsgBox ("le dossier boite de réception est vide")ElseMsgBox myfolder.Items.CountEnd If

Pour trouver l'index des folders: 
Nb de folders = Folders.Items.Count
Nom du Folder = Folder(1 puis ...).Name

Programation dossier de réception autre que le GetDefaultFolder

1 réponse

Discussions similaires