Discussion :

[Pittouti]

Bonjour à Tous,

j'ai utilisé ce code pour extraire une pièce jointe d'un mail. Tout fonctionne ( Pas de message d'erreur ) par contre aucune pièce jointe enregistrée dans le dossier voulu

ci-dessous le code et merci pour votre aide :

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
Private Sub Commande1_Click()
    Dim MonApp As Outlook.Application
    Dim MonNameSpace As Outlook.NameSpace
    Dim MonDossier As Outlook.Folder
    Dim MonMail As Outlook.MailItem
    Dim numero As Integer
    Dim strAttachment As String
    Dim NbAttachments As Integer
    Dim chemin As String
    'Instance des objets
    Set MonApp = Outlook.Application
    Set MonNameSpace = MonApp.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
    numero = MonDossier.Items.Count
    Set MonMail = MonDossier.Items(numero)
'chemin de destination des pièces jointes
    chemin = "C:\Users\HK\Desktop\TEST\"
    NbAttachments = MonMail.Attachments.Count
    'contrôles possibles:nom de l'expéditeur, adresse mail expéditeur et sujet du mail
        'MonMail.SenderName= ""
        'MonMail.SenderEmailAddress
        'MonMail.Subject
        If MonMail.Subject = "TARATATA" Then
            i = 1
                Do While i <= NbAttachments
                strAttachment = MonMail.Attachments.Item(i).FileName
                MonMail.Attachments.Item(i).SaveAsFile chemin & strAttachment
                i = i + 1
                Loop
        End If
End Sub

[Jean-Philippe André]

Salut,

en mettant un point d'arret (F9) sur la ligne

Code :

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

 strAttachment = MonMail.Attachments.Item(i).FileName

et en faisant tourner le code en pas a pas (F8), deja est-ce que tu :
1/ passes bien par la ligne de code ?
2/ recuperes bien des valeurs correctes et attendues ?

[Pittouti]

Salut Jean-Philippe André,

même avec le point d'arrêt rien ne se passe. j'ai même enlevé la boucle et rien ne se passe aussi.

en réalité j'ai plus besoin de la boucle.

[Jean-Philippe André]

Rien ne se passe = le code s'arrete sur la ligne

ou

Rien ne se passe = le code ne s'arrete jamais sur la ligne ?

[Pittouti]

le code ne s'arrete jamais sur la ligne ?

[Jean-Philippe André]

Donc fatalement si ca ne passe jamais ca ne peut pas fonctionner =]

REgarde si tu passes par

Code :

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

            i = 1