récupération mail boite aux lettres

**Gary_Stoupy** · 19/01/2007, 14h10

Bonjour,

Je reviens à la charge lol...
Je souhaite désespérément accéder à un dossier d'une boite aux lettres outlook ne se trouvant pas dans ma boite aux lettres par défaut.

Code :

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

1
2
3
4
5
6
'Création de l'objet Outlook
Set objoutlook = CreateObject("Outlook.application")
'Récupération de l'espace de nom d'outlook
Set olns = objoutlook.GetNamespace("MAPI")
'Récupération du répertoire "boite de réception" par défault
Set fld = olns.GetDefaultFolder(olFolderInbox)

Et c'est justement la dernière ligne qu'il me faudrait modifier.
J'ai beau chercher à droite à gauche, pas de solution en vue.
Après, j'arrive parfaitement à récupérer la pièce jointe en fonction de l'émetteur ou de l'objet du message...

Je vous serais hyper reconnaissant si vous pouviez ne serait-ce que me pousser dans la bonne direction...

Cdt,

**cafeine** · 19/01/2007, 15h18

Hello,

ceci par exemple te donne le nombre de mails dans un dossier particulier ...
je pense que ça peut te mettre sur la bonne voie ...

Code :

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

application.GetNamespace("MAPI").Folders("Dossiers personnels").folders("00 - A classer").items.count

**argyronet** · 19/01/2007, 15h27

Bonjour,

Ooops, je t'avais oublié...
Si j'ai bien compris ce que tu veux, tu peux exploiter ce bout de code...

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
 
Private Sub EnumerateMailboxFolders()
Dim strMailboxOwner As String
Dim strMailboxToCheck As String
Dim oOLK As Outlook.NameSpace
 
    Set oOLK = GetObject(vbNullString, _
      "Outlook.application").GetNamespace("MAPI")
    strMailboxOwner = "argyronet"
    strMailboxToCheck = "Éléments envoyés"
    If OutlookFolderExist(oOLK.Folders(strMailboxOwner), strMailboxToCheck) _
Then
      MsgBox "C'est trouvé, on farfouille dedans, alors...", 64
      '[Code d'exploration des items de ce dossier...]
    End If
    Set oOLK = Nothing
End Sub
 
Private Function OutlookFolderExist(ByVal AnyFolder As Outlook.MAPIFolder, _
  ByVal ExpectedFolder As String) As Boolean
Dim F As Integer
 
  OutlookFolderExist = False
  If AnyFolder.Folders.Count Then
      For F = 1 To AnyFolder.Folders.Count
          Debug.Print "Dossier trouvé : " & AnyFolder.Folders(F)
          If StrComp(AnyFolder.Folders(F), ExpectedFolder) = 0 Then
            OutlookFolderExist = True
            Exit For
          End If
      Next
  End If
End Function

Argy

**Gary_Stoupy** · 19/01/2007, 15h46

Mais c'est que tout ceci m'a l'air très très intéressant...
Un grand merci je vais me dépatouiller, c obligé que ca marche maintenant (enfin je pense ^^)

Merci beaucoup beaucoup

**Gary_Stoupy** · 22/01/2007, 10h31

C'est de nouveau moi

Alors j'ai tenté, et le code de argyronet et celui de cafeine, et à chaque fois, cela me renvoie la même erreur :
"Impossible d'exécuter l'opération. Impossible de trouver un objet.
Cela se produit à chaque fois sur la ligne où je me sers du "GetNameSpace". Pourtant mon objet outlook a l'air d'être bien défini...

Bref, merci de me re-venir en aide ^^

**micniv** · 22/01/2007, 10h57

Bonjour,
as-tu déclaré une référence sur Outlook ?
(dans l'éditeur VBA, sous Outils...)

**Gary_Stoupy** · 22/01/2007, 11h04

Oui oui...
Dans une autre fonction, j'utilise outlook afin d'envoyer un mail prédéfini donc le probleme ne vient pas de la...

**argyronet** · 22/01/2007, 11h13

Bonjour,

Quelle erreur est renvoyée ?
Sur quelle ligne l'instruction stoppe ?

Argy

**Gary_Stoupy** · 22/01/2007, 11h26

Alors l'erreur renvoyée est la suivante :

Erreur d'exécution '-2147221233 (8004010f)':

"Impossible d'exécuter l'opération. Impossible de trouver un objet."

Ca bloque sur la ligne

Code :

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

If OutlookFolderExist(oOLK.Folders(strMailboxOwner), strMailboxToCheck)

ou bien encore sur celle ci

Code :

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

MsgBox oOLK.Folders("Dossier Personnel").Items.Count

C'est-à-dire à chaque fois que je fais à appel à Folders (enfin je pense...)

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
Private Sub EnumerateMailboxFolders()
 
    'Application.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("00 - A classer").Items.Count
 
    Dim objoutlook As Outlook.Application
    Dim strMailboxOwner As String
    Dim strMailboxToCheck As String
    Dim oOLK As Outlook.NameSpace
 
   'objoutlook.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("00 - A classer").Items.Count
 
    Set oOLK = GetObject(vbNullString, "Outlook.application").GetNamespace("MAPI")
 
    'Set objoutlook = CreateObject("Outlook.application")
    'Set oOLK = objoutlook.GetNamespace("MAPI")
 
    'MsgBox objoutlook.GetNamespace("MAPI").Folders("Boîte de réception").Items.Count
    MsgBox oOLK.Folders("Dossier Personnel").Items.Count
 
    'MsgBox objoutlook.GetNamespace("MAPI").Folders("Dossiers personnels").Folders("Boîte de réception").Items.Count
    'strMailboxOwner = "CARTES CORPORATE CM-CIC"
    'strMailboxToCheck = "Éléments envoyés"
    'If OutlookFolderExist(oOLK.Folders("CARTES CORPORATE CM-CIC"), strMailboxToCheck) Then
    '    MsgBox ("1"), vbExclamation
    'Else
    '    strMailboxOwner = "Boîte aux lettres - CARTES CORPORATE CM-CIC"
    '    If OutlookFolderExist(oOLK.Folders(strMailboxOwner), strMailboxToCheck) Then
    '       MsgBox ("2"), vbExclamation
    '    Else
    '        MsgBox ("3"), vbExclamation
    '    End If
    'End If
    Set oOLK = Nothing
End Sub

J'ai testé plein de choses, d'où les nombreuses lignes de code en commentaires... Ca génère une erreur quoiqu'il arrive (MsgBox ou non...)

Merci

**argyronet** · 22/01/2007, 11h46

As-tu essayé mon code sans rien toucher excepté l'enrichissement de ton nom en guise du mien... ?

Code :

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

1
2
    strMailboxOwner = "Ton nom ici tel que défini dans Exchange ou ta config de messagerie"
    strMailboxToCheck = "Le dossier à trouver sur la racine"

Argy

**micniv** · 22/01/2007, 11h52

La ligne suivante marche ok chez moi :

Code :

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

Me.mapi = Outlook.Application.GetNamespace("MAPI").folders("Dossiers personnels").folders("Boîte de réception").Items.Count

**Gary_Stoupy** · 22/01/2007, 12h15

Bon, ben merci beaucoup à tous !
Ca fonctionne parfaitement... J'ai enlevé tout ce que j'avais fait, repris vos lignes de code et ca roule.
J'arrive donc à récupérer un mail se trouvant dans un sous-dossier d'un dossier ne se trouvant pas dans ma boite aux lettres par défaut (et oui tout ca...)

Bref a bientot et merci encore

récupération mail boite aux lettres

Access

Discussions similaires

Partager

Partager