Discussion :

[Chrysostome]

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 Dossiers Personnels et Archivage le peuvent).

Pour pouvoir gérer l'arrivée des mails, il faudrait soit changer le compte par defaut, soit changer "GetDefaultFolder".

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

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

[Chrysostome]

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

Voilà en espérant contribuer petitement à votre grand édifice.

[Oliv-]

Salut,

Ton code n'est pas tout à fait correct, même s'il fonctionne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
'Si tu lances le code à partir d'Outlook  directement cette ligne n'est pas nécessaire.
'Set myOlApp = CreateObject("Outlook.Application")
 
'tu peux mettre pour lancer aussi bien de excel que de outlook 
    Dim myOlApp As Object
    If Application.Name = "Outlook" Then
        Set myOlApp = Application
    Else
        Set myOlApp = CreateObject("outlook.application")
    End If
 
    'Ta variable ci-dessous est censée contenir un Namespace, là tu lui affecte déjà un DOSSIER , mais comme par défaut elle est en variant ca marche
    Dim MyNameSpace As Outlook.Namespace
    ' avec cette syntaxe tu auras une erreur incompatibilité de type
    'Set MyNameSpace = myOlApp.GetNamespace("MAPI").Folders(3)
 
    Set MyNameSpace = myOlApp.GetNamespace("MAPI")
    Dim My_BAL As Outlook.Folder
 
' TU PEUX METTRE L'INDEX du dossier mais il pourrait changer lors de l'ajout d'un nouveau dossier
    'Set myfolder = My_BAL.Folders(1)
 
'avec son nom c'est plus simple
    Set My_BAL = MyNameSpace.Folders("boite toto")
 
 
    Dim myfolder As Outlook.Folder
'pareil pour le sous dossier
 
    Set myfolder = My_BAL.Folders("CLIENTS")
    If myfolder.Items.Count = 0 Then
        ' A quoi sert cette ligne ?
        'Set myNewFolder = myfolder.Folders(2)
 
        MsgBox ("le dossier boite de réception est vide")
    Else
        MsgBox myfolder.Items.Count
    End If

[Chrysostome]

Merci de ces précisions. J'en prends note.