Discussion :

[Tarfan]

Bonjour à tous !

Je sais que un sujet similaire existe sur le forum mais étant débutant sur VBA je bloquue malgré tout:

Voici mon problème :
Tous les jours je reçois un mais automatique contenant un pièce jointe. Je veux enregistrer cette pièce jointe dans un dossier sur mon disque dur. Jusque là tout va bien. Le problème est que cet e-mail n'arrive pas dans ma boite de réception mais dans un sous - sous dossier de celle ci.
j'ai testé en me transférant le mail sur ma boite principale et cela fonctionne.

Voici mon (mes) code(s)

Dans "this outlook session" jai :

Code :

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

1
2
3
Private Sub Application_NewMail()
    Call Module1.sauvegardePJ 'cette macro lance automatiquement la macro sauvegarderPJ à la réception d'un nouveau mail
End Sub

qui me permet d'appeller la macro d'enregistrement des pièces jointes

Dans "Module 1" jai :

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
Sub sauvegardePJ()
    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
    Dim MonDossier As Folder
'*************************************************************************************************Instance des objets
 
    Set MonApp = Outlook.Application 'Défini l'application Outlook active
    Set MonNameSpace = MonApp.GetNamespace("MAPI") 'Défini le nom d'utilisateur
'********************* à mon avis c'est la ligne qui suit qui pose problème ****************************
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox) 'Chemin vers la boite de réception princpale
 
    numero = MonDossier.Items.Count 'compte le nombre de nouveau mail et commence par le premier
    Set MonMail = MonDossier.Items(numero)
'chemin de destination des pièces jointes
    chemin = "chemin d'enrgistrement des pj"
    NbAttachments = MonMail.Attachments.Count
 
        If MonMail.Subject = "sujet du mail" Then 'vérifier le sujet du mal
 
            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

*Ayant grapillé des morceaux de codes à droite et à gauche il est possible que le code ne soit pas très cohérent, mais comme dit je débute ^^, tout conseil est bon à prendre

[Oliv-]

Bonjour,

C'est plus simple d'utiliser une règle et un script et demander dans ton script le déplacement du mail.

--> https://www.developpez.net/forums/bl...yperlien-mail/

sinon tu peux utiliser un événement sur le sous dossier qui se déclenchera quand tu ajouteras un item dedans

-->https://www.developpez.net/forums/d1...r/#post9702198

[Tarfan]

C'est plus simple d'utiliser une règle et un script et demander dans ton script le déplacement du mail.

Merci, je teste ça et je verrais donc que demain matin si ça a marché