Discussion :

[ivanG]

Bonjour à tous,

Je suis sous Outlook 2003.
J'aimerais via une macro sur Excel 2003 :
- pointer vers OutLook
- Puis balayer les mails de la boite de reception
- Si l'objet du mail = "TEST" et que le mail contient une pièce jointe,
- Alors enregistrer la pièce jointe dans le dossier C:\...

Pour eviter les problèmes de version Outlook, j'ai commencé à utiliser des déclarations tardives :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Extraire()
Dim OlApp As Object
Dim OLmail As Object
Dim pceJointe As Object
Dim x As Integer
Dim y As Integer
 
Set OlApp = CreateObject("Outlook.Application")
Set OLmail = OlApp.CreateItem(0)
Set pceJointe = ILmail.Attachment

Et ensuite j'ai trouvé ceci :

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
If Inbox.DefaultItemType = 0 Then
        For Each OLmail In Inbox.Items
            'If Not OLmail.Attachments.Count = 0 Then
              If Item.Subject = "TEST" Then
                For y = 1 To OLmail.Attachments.Count
                     Set pceJointe = OLmail.Attachments(y)
                        x = x + 1
                        pceJointe.SaveAsFile "C:\extraction\" & x & "_" & pceJointe.Filename
                    Set pceJointe = Nothing
               'End If
                Next y
            End If
        Next OLmail
    Else
        MsgBox (Inbox.DefaultItemType)
    End If
 
End Sub

J'ai donc quelques morceaux de code mais je n'arrive pas à assembler l'ensemble. Ca me donne pas mal d'erreur. Et je n'arrive pas à trop à avancer...

Auriez vous quelques pistes svp ?

Merci d'avance et bonne journée !

[kuchiky]

Bonjour,

Tu peux essayer ca:

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
Sub Extraire()
 
    Dim myOlApp As Outlook.Application
    Dim myFolder As folder
    Dim myNameSpace As NameSpace
    Dim Mail As Object
    Dim strID As Outlook.MailItem
    Dim PJ As Object
    Set myOlApp = Outlook.Application
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 
    'Boucle sur tous les mail dans la boite de reception
    For Each Mail In myFolder.Items
        If Mail.Subject = "TEST" And Mail.Attachment > 0 Then
            For Each PJ In Mail.Attachment
                PJ.SaveAsFile "Ton dossier"
            Next
        End If
    Next
 
    Set myOlApp = Nothing
    Set myNameSpace = Nothing
    Set myFolder = Nothing
 
End Sub

[ivanG]

En utilisant ton code, j'obtiens l'erreur suivante :
"Erreur compilation
Type défini par l'utilisateur non défini"

Je crois que l'erreur s'affiche parce que je suis sous Excel 2003. Visiblement sous Excel 2007 ton code fonctionnerait.

[parmi]

À quel endroit survient l'erreur ?

[ivanG]

Sur le

Code :

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

Dim myOlApp As Outlook.Application

D'après ce que j'ai pu lire à droite à gauche, il faut utiliser les déclarations tardives (Late Binding)

[kuchiky]

As-tu ajouté la Référence Microsoft Outlook XX.X Object Library?
Dans Outil → Référence

[parmi]

Dans ton premier message, tu utilises des objets

Code :

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

Dim OlApp As Object

Je ne vois de ...Dim myOlApp As Outlook.Application...

Si tu ne veux pas utiliser de références, ce qui est préférable pour la portabilité, déclare tes variables Outlook (Application, MailItem, Attachments,...) As Object et enlève les références à Outlook de la liste de choix.

[ivanG]

Lorsque j'utilise la référence ...Microsoft Outlook XX.X Object Library... et que j'utilise

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
Sub Extraireéé()
 
    Dim myOlApp As Outlook.Application
    Dim myFolder As Outlook.MAPIFolder
    Dim myNameSpace As NameSpace
    Dim Mail As Object
    Dim strID As Outlook.MailItem
    Dim PJ As Object
    Dim pceJointe As Outlook.Attachment
 
    Set myOlApp = Outlook.Application
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 
    'Boucle sur tous les mail dans la boite de reception
    For Each Mail In myFolder.Items
        If Mail.Subject = "TEST" And Mail.Attachment > 0 Then 'Erreur !!!
            For Each PJ In Mail.Attachment
                PJ.SaveAsFile "Ton dossier"
            Next
        End If
    Next
 
    Set myOlApp = Nothing
    Set myNameSpace = Nothing
    Set myFolder = Nothing
 
End Sub

L'erreur survient sur ...If Mail.Subject = "TEST" And Mail.Attachment > 0 Then...

[parmi]

Essaie

Code :

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

If Mail.Subject = "TEST" And Mail.Attachments(1) > 0 Then

Si tu peux avoir plusieurs fichiers attachés, il faudra alors boucler les Attachments

Code :

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

1
2
3
For i = 1 to Mail.Attachments.Count
   'vérification du Attachments(i)
Next

[kuchiky]

En effet, je m'étai un peu précipité.
Ca devrait marché avec:

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
Sub Extraireéé()
 
    Dim myOlApp As Outlook.Application
    Dim myFolder As Outlook.MAPIFolder
    Dim myNameSpace As NameSpace
    Dim Mail As Object
    Dim strID As Outlook.MailItem
    Dim PJ As Object
    Dim pceJointe As Outlook.Attachment
 
    Set myOlApp = Outlook.Application
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 
    'Boucle sur tous les mail dans la boite de reception
    For Each Mail In myFolder.Items
        If Mail.Subject = "TEST" And Mail.Attachments.Count > 0 Then
            For Each PJ In Mail.Attachments
                PJ.SaveAsFile "Ton dossier"
            Next
        End If
    Next
 
    Set myOlApp = Nothing
    Set myNameSpace = Nothing
    Set myFolder = Nothing
 
End Sub

Par contre oublie pas de changer "Ton dossier" par "C:/......."

[ivanG]

Merci beaucoup pour vos conseils !
J'ai donc maintenant un code qui fonctionne (en utilisant les référances) :

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
Sub Extraire()
 
    Dim myOlApp As Outlook.Application
    Dim myFolder As Outlook.MAPIFolder
    Dim myNameSpace As NameSpace
    Dim Mail As Object
    Dim pceJointe As Outlook.Attachment
 
    Set myOlApp = Outlook.Application
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 
    'Boucle sur tous les mail dans la boite de reception
    For Each Mail In myFolder.Items
        If Mail.Subject = "TEST" Then
            If Mail.Attachments(1) = 1 Then
                Set pceJointe = Mail.Attachments(1)
                pceJointe.SaveAsFile "C:\...\TEST.xls"
            End If
        End If
    Next
 
    Set myOlApp = Nothing
    Set myNameSpace = Nothing
    Set myFolder = Nothing
 
End Sub

Par contre, j'aurais aimé transformer ce code de facon à avoir une portabilité entre Excel 2003 et excel 2007. Et puis d'un poste à l'autre sans passer par les références...

C'est pour ca que je parlais des déclarations tardives avec Dim... As Object.
Je vais essayer de plancher pour transformer le code précédent en code sans référence.