récupération de mail outlook via Excel

Version imprimable

Bonjour,

Afin de pouvoir récupérer des informations de outlook sur une boite mail, j'ai trouvé cette fonction :
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 Public Sub test() Dim OutlookApp As Object Dim O_NomDomaine As Object Dim O_Dossier As Object Dim O_MailItem As Object Dim OutlookApp_Cree As Boolean Application.ScreenUpdating = False On Error Resume Next Set OutlookApp = GetObject(, "Outlook.Application") If OutlookApp Is Nothing Then Set OutlookApp = CreateObject("Outlook.Application") OutlookApp_Cree = True If OutlookApp Is Nothing Then MsgBox "Impossible d'ouvrir MS Outlook.", _ vbExclamation, "Erreur d'ouverture" Exit Sub End If End If On Error GoTo 0 Set O_NomDomaine = OutlookApp.GetNamespace("MAPI") Set O_Dossier = O_NomDomaine.GetDefaultFolder(6) For Each O_MailItem In O_Dossier.Items MsgBox O_MailItem.Object MsgBox O_MailItem.Email1Address MsgBox O_MailItem.Categories MsgBox O_MailItem.CreationTime Next If OutlookApp_Cree Then OutlookApp.Quit Application.ScreenUpdating = True Set O_Dossier = Nothing Set O_NomDomaine = Nothing Set OutlookApp = Nothing End Sub
Malheureusement, celle-ci plante sur la ligne 32-35 (tous les msgbox en fait).

J'ai cherché sur les FAQ et autre, mais je ne trouve pas l’information que je veux.

Pour vous expliquer un peu mon souci, j'ai besoin de récupérer des informations sur des mails dans une boite bien précise : l'expéditeur du message, l'objet, la date de réception et la catégorie.
Pour le moment, j'essaye de tester sur ma boite mail voir dans un premier temps si ça fonctionne, mais ce n'est malheureusement pas le cas.

Par ailleurs, mon but final et de pouvoir récupérer des mails reçus sur une boite publique sur un intervalle de date donné. Si quelqu'un à une piste pour pouvoir pointer sur une BAL spécifique, je suis preneur :mrgreen: ou si vous pouvez me guider pour que j'arrive à mes fins :)

je vous remercie pour votre lecture, et votre aide :)

Bon en fait j'ai trouvé. j'ai trouvé une autre macro :

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
Public Sub test()
 
    Dim olApp As Outlook.Application
    Dim dossierContacts As Outlook.MAPIFolder
    Dim Contact As Outlook.ContactItem
    Dim i As Integer, j As Integer
 
    Set olApp = New Outlook.Application
    Set BoiteR = olApp.GetNamespace("MAPI").GetDefaultFolder(6)
 
For Each O_MailItem In BoiteR.Items
    MsgBox O_MailItem.Subject
    MsgBox O_MailItem.SenderName
    MsgBox O_MailItem.Categories
    MsgBox O_MailItem.CreationTime
    MsgBox O_MailItem.SenderEmailAddress
 
Next
 
If OutlookApp_Cree Then OutlookApp.Quit
 
Application.ScreenUpdating = True
 
Set O_Dossier = Nothing
Set O_NomDomaine = Nothing
Set OutlookApp = Nothing
 
End Sub

Par contre, avec la commande :

Code:

.GetDefaultFolder(6)

ça pointe sur ma boite de réception : Comment puis-je faire pour la faire pointer sur une boite générique,ou une boite de dossiers publics de Outlook ?

28/11/2013, 14h40
EngueEngue
Pour la première tu ne peux pas la messageboxer... C'est un objet...
La deuxième propriété je ne la connais pas.

Remplace ces deux lignes
Code:

1 2 MsgBox O_MailItem.Object MsgBox O_MailItem.Email1Address
par:
Code:

1 2 MsgBox O_MailItem.subject MsgBox O_MailItem.from

Ça marche effectivement mieux avec Subject :mrgreen: Thanks :ccool:

Maintenant j'arrive à récupérer les infos de ma boite de réception. Maintenant, et comme je l'ai dit plus haut, je voudrait récupérer d'une boite générique, que j'ai sur mon poste. Pour cela, j'ai écrit ça (bouts de code récupérés ça et là) :
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 Public Sub test() Dim boiteR As Outlook.Namespace Dim olApp As Outlook.Application Dim objNomBoite As Recipient Dim objDossier As Outlook.MAPIFolder Set olApp = New Outlook.Application Set boiteR = olApp.GetNamespace("MAPI") Set objNomBoite = boiteR.CreateRecipient("nom_boite_commune") Set objDossier = Application.Session.GetSharedDefaultFolder(objNomBoite, olFolderInbox) For Each O_MailItem In boiteR.Items MsgBox O_MailItem.Subject MsgBox O_MailItem.SenderName MsgBox O_MailItem.Categories MsgBox O_MailItem.CreationTime MsgBox O_MailItem.SenderEmailAddress Next If OutlookApp_Cree Then OutlookApp.Quit Application.ScreenUpdating = True Set O_Dossier = Nothing Set O_NomDomaine = Nothing Set OutlookApp = Nothing End Sub
Malheureusement, ça plante sur la ligne 9, me disant "propriété ou méthode non géré par cet objet".

Je ne comprend pas, car en vérifiant les propriétés de la fonction, ça devrait marcher, car je veux effectivement récupérer les mails de ma boite commune, de la boite de réception.

Si quelqu'un à une idée, de toute façon je cherche de mon côté :)

Je ne comprends pas bien ta question...

Moi j'utilise cette fonction que j'avais pompé quelque part il y a quelques temps

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
Public Function GetFolder(strFolderPath As String) As Object 'MAPIFolder
' strFolderPath needs to be something like
'   "Public Folders\All Public Folders\Company\Sales" or
'   "Personal Folders\Inbox\My Folder" ''
 
Dim apOL As Object 'Outlook.Application '
Dim objNS As Object 'Outlook.NameSpace '
Dim colFolders As Object 'Outlook.Folders '
Dim objFolder As Object 'Outlook.MAPIFolder '
Dim arrFolders() As String
Dim I As Long
 
On Error GoTo TrapError
 
    strFolderPath = Replace(strFolderPath, "/", "\") 
    arrFolders() = Split(strFolderPath, "\")
 
    Set apOL = CreateObject("Outlook.Application")
    Set objNS = apOL.GetNamespace("MAPI")
 
 
    On Error Resume Next
 
    Set objFolder = objNS.Folders.Item(arrFolders(0))
 
    If Not objFolder Is Nothing Then
        For I = 1 To UBound(arrFolders)
            Set colFolders = objFolder.Folders
            Set objFolder = Nothing
            Set objFolder = colFolders.Item(arrFolders(I))
 
            If objFolder Is Nothing Then
                Exit For
            End If
        Next
    End If
 
    Set GetFolder = objFolder
    Set colFolders = Nothing
    Set objNS = Nothing
    Set apOL = Nothing
 
 
End Function

J'ai trouvé :mrgreen: A force de prendre des bout de code un peu partout, on s'en mélange les pinceaux :aie:

Donc voici le code (c'était une erreur sur les variables en fait) :

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
Public Sub test()
 Dim boiteR As Outlook.Namespace
    Dim olApp As Outlook.Application
    Dim objNomBoite As Recipient
    Dim objDossier As Outlook.MAPIFolder
    Set olApp = New Outlook.Application
    Set boiteR = olApp.GetNamespace("MAPI")
    Set objNomBoite = boiteR.CreateRecipient("nom_boite_commune")
    Set objDossier = olApp.Session.GetSharedDefaultFolder(objNomBoite, olFolderInbox)
 
 
For Each O_MailItem In boiteR.Items
    MsgBox O_MailItem.Subject
    MsgBox O_MailItem.SenderName
    MsgBox O_MailItem.Categories
    MsgBox O_MailItem.CreationTime
    MsgBox O_MailItem.SenderEmailAddress
 
Next
 
If OutlookApp_Cree Then OutlookApp.Quit
 
Application.ScreenUpdating = True
 
Set O_Dossier = Nothing
Set O_NomDomaine = Nothing
Set OutlookApp = Nothing
 
End Sub

Et là, je boucle bien sur mon dossier commun :D

Désolé pour le dérangement :mrgreen: et merci à EngueEngue ;)

28/11/2013, 15h18
illight

Citation:

Envoyé par EngueEngue

Je ne comprends pas bien ta question...

Moi j'utilise cette fonction que j'avais pompé quelque part il y a quelques temps

Intéressante. Si je comprend bien ta fonction prend tous les dossiers présents dans la boite que tu indiques dans ton argument de la fonction (strFolderPath) ?

Pourrais-tu me donner un exemple de son utilisation ? :)
Comment tu fais par la suite pour récupérer par exemple dans la boite de réception le nom de l'expéditeur, via ta fonction ?
28/11/2013, 15h22
EngueEngue

Non, elle récpère un objet MAPIFolder à partir d'un chemin d'accès.

Code:

Set objDossier = GetFolder("Personal Folders\Inbox\My Folder\nom_boite_commune")

Pour utiliser ta fonction, j'ai écrit ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub test() Dim objDossier As Outlook.MAPIFolder Set objDossier = GetFolder("Personal Folders\Inbox\My Folder\nom_boite_commune") For Each O_MailItem In objDossier.Items MsgBox O_MailItem.Subject MsgBox O_MailItem.SenderName MsgBox O_MailItem.Categories MsgBox O_MailItem.CreationTime MsgBox O_MailItem.SenderEmailAddress Next
mais ça plante quand il fait le "each" :? tu sais pourquoi ?

ça me dit "variable de bloc With non définie".
Quand je passe la souris sur la valeur de l'objet, il me dit Nothing. C'est pas normal je crois ?

PS : en passant, dans ta fonction tu as :

Code:

On Error GoTo TrapError

Sauf qu'il n'y a pas de TrapError : c'est normal ?

28/11/2013, 15h42
EngueEngue

tu as vérifié ton chemin ?

j'ai changé le trapperror par un resume next.. j'ai oublié de le virer
28/11/2013, 15h48
illight

Alors je vais te poser une question idiote : le chemin, tu le trouves comment dans outlook ? :mrgreen:
28/11/2013, 15h52
EngueEngue

Le monsieur qui s'occupe du MAPI de ta boite saura te dire :)

Et si tu utilisais un "explorateur de dossiers", est-ce que ça irait ?

ex:

Code:

1
2
3
4
5
6
    Dim boiteR As Namespace
    Dim strPath As String
 
    Set boiteR = olApp.GetNamespace("MAPI")
    strPath = boiteR.PickFolder.FolderPath
    MsgBox strPath

29/11/2013, 08h37
illight

Je pense pas, car je veux pointer que certaines BAL avec un nom bien spécifique :) enfin si je comprend bien ce à quoi tu fais référence (je t'avoue que je suis pas très calé au niveau du pilotage de Outlook pour le moment, mais j'y travaille :mrgreen:)
29/11/2013, 09h34
Oliv-
Salut,
cela dépend si ta boite commune est raccrochée à ton outlook ou pas (=tu la vois dans la liste des dossiers à gauche)

Code:

Set Les_fax = Application.GetNamespace("MAPI").Folders("Boîte aux lettres - FAX").Folders("Boîte de réception")

si tu mets un espion sur Dossiers
tu pourras voir les difféérentes boites
Code:

1 2 3 Set NS = Application.GetNamespace("MAPI") Dim dossiers As Folders Set dossiers = NS.Folders