Ce code permet de sauvegarder les pièces jointes des mails recus dans la boite de réception sur un disque local ou réseau avec filtre sur l'adresse mail, le nom de l'expéditeur ou le sujet du mail, ce code est à coller dans l'éditeur VBA d'Outlook
Source / Exemple :
'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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.