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 -
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.
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.
A voir également:
- Programation dossier de réception autre que le GetDefaultFolder
- Accusé de reception gmail - Guide
- Dossier appdata - Guide
- Problème de réception tv pas de signal aujourd' hui - Guide
- Impossible de supprimer un dossier - Guide
- Serveur de reception mail - Guide
1 réponse
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