Discussion :

[illight]

Bonjour,


Afin de pouvoir récupérer des informations de outlook sur une boite mail, j'ai trouvé cette fonction :

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
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 ou si vous pouvez me guider pour que j'arrive à mes fins

je vous remercie pour votre lecture, et votre aide

[illight]

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

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
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 :

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

.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 ?

[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 :

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

1
2
MsgBox O_MailItem.Object
    MsgBox O_MailItem.Email1Address

par:

Code :

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

1
2
MsgBox O_MailItem.subject
    MsgBox O_MailItem.from

[illight]

Ça marche effectivement mieux avec Subject Thanks

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 :

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
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é

[EngueEngue]

Je ne comprends pas bien ta question...

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

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
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

[illight]

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 ?

[EngueEngue]

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

Code :

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

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

[illight]

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

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

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
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ésolé pour le dérangement et merci à EngueEngue