Classement pièce jointe en vba

Berorn Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention - 9 juil. 2019 à 13:01

Bonjour,
Cela fait un moment que je cherche à classer, une pièce jointe venant d'un mail, dans un dossier sur le disque dur.
Beaucoup de sujet tourne la dessus mais aucun correpond à mon besoin :
Lors de la réception d'un mail d'un expéditeur précis, enregistrer la pièce jointe dans un dossier ( pour l'exemple ce sera "mon\dossier" )
Voici un morceau de code que j'ai essayé de modifier mais sans réussite....
Ce code se trouve dans le vba de outlook dans "thisoutlooksession" pour qu'il puisse être lancé dès la réception du mail.

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

'Déclarations

Dim MonMail As Outlook.MailItem
Dim myAttachments As Outlook.Attachments

'Instance des variables

Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
Set myAttachments = MonMail.Attachments

If MonMail.SenderEmailAddress = "toto@hotmail.fr" Then
myAttachments.SaveAsFile "Mon\chemin"
End If

End Sub

Merci pour votre aide

A voir également:

Application_newmailex
Pièce d'identité - Accueil - Services publics
1 pièce jointe - Guide
Logiciel de classement de photos gratuit - Guide
Publipostage outlook avec pièce jointe pdf - Forum Word
Publipostage Word avec un pdf en pièce jointe ✓ - Forum Word

1 réponse

Réponse 1 / 1

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour, suggestion:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim MonMail As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Dim unfichier As Attachment
Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
Set myAttachments = MonMail.Attachments
If MonMail.SenderEmailAddress = "toto@hotmail.fr" Then
    For Each unfichier In myAttachments
        unfichier.SaveAsFile "C:\data\temp\" + unfichier.DisplayName
    Next unfichier
End If
End Sub

Discussions similaires

pièce jointe en pps

Comment faire svp piece jointe

Que signifient les abréviations ''bp'', '''bc'', ''db'' etc. au football ?

One piece Kai vf

(msn) pièce jointe pps

Votre réponse

Discussions similaires