SAUVEGARDE AUTOMATIQUE DES PIÈCES JOINTES DES MAILS REÇUS VBA OUTLOOK

Signaler
Messages postés
147
Date d'inscription
mercredi 18 septembre 2002
Statut
Membre
Dernière intervention
15 avril 2011
-
Messages postés
1
Date d'inscription
mercredi 11 avril 2018
Statut
Membre
Dernière intervention
12 avril 2018
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51659-sauvegarde-automatique-des-pieces-jointes-des-mails-recus-vba-outlook

Messages postés
1
Date d'inscription
mercredi 11 avril 2018
Statut
Membre
Dernière intervention
12 avril 2018

bonjour merci pour votre code ..mais dites moi il me faut installer le MAPI ou bien ? parce que j'execute le code mais je ne recois pas le fichier joint dans l'endroit spécifié ..help pliz
Bonjour,

j'ai Outlook 2010, est la macro ne fonctionne pas automatiquement a la réception d'un nouveau mail, en-revanche elle fonctionne manuellement (execution depuis Outlook) pouvez vous m'aider svp merci.

Private Sub Application_NewMail()
Call sauvegardePJ
End Sub

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:\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 = "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
Messages postés
28
Date d'inscription
mercredi 1 février 2012
Statut
Membre
Dernière intervention
17 avril 2013

rien dis.. c ok pour moi
Messages postés
9
Date d'inscription
mercredi 23 janvier 2008
Statut
Membre
Dernière intervention
22 mai 2015

Bonjour,
Je cherche un code pour alimenter les contacts Outlock 2007 avec MDB Acces 2003 en liant la table de manniere à ce que les modifications se mettent a jour ds les 2 sens.
Ce n'est pas en lien direct avec ce post, mais vous pourrez peut être me donner des pisteS, je suis débutant
Merci d'avance
Afficher les 9 commentaires