[VBA-O]Comment parcourir les mails de la mailbox ? [FAQ] [Résolu]

[megapacman]

Bonjour,


dans outlook , j'ai plusieurs mailbox,

et je souhaiterai parcourir une mailbox mais le probleme est que par défaut il va dans ma mailbox inbox perso hors je veux parcourir une autre mailbox inbox


voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sub myothermail()
 
Dim appOl As New Outlook.Application
Dim SubFolder As MAPIFolder
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim Item As Object
Dim Atmt As Attachment
Dim FileName As String
 
Dim i As Integer
 
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
 
For Each Item In Inbox.Items
 
    MsgBox (Item)
 
Next Item
 
End Sub

je pense que ca un rapport avec :


Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)

merci pour votre aide

[killkool2001]

Bonjour,

Sur cette exemple, on parcourt toute les mail box, ca pourra peut etre t'aider :
http://vb.developpez.com/srcvba/?page=vbaPiloteOutlook

[megapacman]

salut,

merci , en effet ca m'a aidé

j'ai pu parcourir mes mailbox

voici mon code modifié (j'ai 6 mailboxes) :

Code :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Option Explicit
'------------------------------------------------------------------------
'Nécessite d'activer la référence Microsoft Outlook xx.xx Object Library
'------------------------------------------------------------------------
Dim x As Integer
'La boite de réception , la boite des éléments supprimés et tous leurs
'sous dossiers sont pris en compte.
Sub ExportePiecesJointes()
Dim Ol As New Outlook.Application
Dim Ns As Outlook.NameSpace
Dim Dossier As Outlook.MAPIFolder
Dim Dossier2 As Outlook.MAPIFolder
Dim i As Integer
 
Set Ns = Ol.GetNamespace("MAPI")
 
For i = 1 To 6
 
Set Dossier = Ns.Folders(i)
 
Debug.Print Dossier & " " & i
 
SearchFolders Dossier
 
Next i
 
x = 0
End Sub
Private Sub SearchFolders(ByVal Fld As Outlook.MAPIFolder)
Dim y As Integer
Dim OLmail 'As Outlook.MailItem
Dim pceJointe As Outlook.Attachment
Dim SousDossier As Outlook.MAPIFolder
Dim nbssdossier As Integer
 
For Each SousDossier In Fld.Folders
 
 
Debug.Print SousDossier
'Debug.Print Fld.Folders
 
nbssdossier = nbssdossier + 1
Debug.Print nbssdossier
 
    'If SousDossier.DefaultItemType = 0 Then
        'For Each OLmail In SousDossier.Items
 
        'Debug.Print OLmail
 
            'If Not OLmail.Attachments.Count = 0 Then
                'For y = 1 To OLmail.Attachments.Count
                     'Set pceJointe = OLmail.Attachments(y)
                     'x = x + 1
                     'pceJointe.SaveAsFile "C:\" & x & "_" & pceJointe
                    'Set pceJointe = Nothing
                'Next y
            'End If
        'Next OLmail
   ' End If
    SearchFolders SousDossier
Next SousDossier
 
End Sub

merci maintenant je comprends mieux le fonctionnement avec MAPIFOLDER

[killkool2001]

De rien je venais de l'apprendre pour moi