Bonjour
J'ai trouvé un code qui permets de faire l'action citée en objet:
Le soucis est que je m'imaginais qu'il suffisait d'activer la Reference MS Outlook pour le faire fonctionner mais visiblement c'est pas suffisant car j'ai l'erreur de compilation: "type defini par l'utilisateur non defini" et il surligne en bleu "Dim MonDossier As Outlook.Folder"
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 'la procédure se lance à la réception d'un nouveau mail Private Sub Application_NewMail() Call sauvegardePJ End Sub 'procédure de sauvegarde 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 '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:\Documents and Settings\Mes documents\" 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 = "Test" 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
J'ai parcouru aussi un papier sur l'automation Outlook à partir d'une appli VBA :
https://docs.microsoft.com/fr-fr/off...ic-application
Merci de l'aide.
Partager