SAUVEGARDE AUTOMATIQUE DES PIÈCES JOINTES DES MAILS REÇUS VBA OUTLOOK
NikatorS
Messages postés147Date d'inscriptionmercredi 18 septembre 2002StatutMembreDernière intervention15 avril 2011
-
21 avril 2010 à 19:25
triborbabor
Messages postés1Date d'inscriptionmercredi 11 avril 2018StatutMembreDernière intervention12 avril 2018
-
12 avril 2018 à 13:16
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
triborbabor
Messages postés1Date d'inscriptionmercredi 11 avril 2018StatutMembreDernière intervention12 avril 2018 12 avril 2018 à 13:16
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
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
anthooooony
Messages postés28Date d'inscriptionmercredi 1 février 2012StatutMembreDernière intervention17 avril 2013 9 nov. 2012 à 18:53
rien dis.. c ok pour moi
jbernades
Messages postés9Date d'inscriptionmercredi 23 janvier 2008StatutMembreDernière intervention22 mai 2015 24 mai 2010 à 10:48
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
houtas
Messages postés116Date d'inscriptionjeudi 14 décembre 2006StatutMembreDernière intervention29 août 2013 27 avril 2010 à 10:18
Bonjour,
Le code fonctionne sous 2007, j'ai pas testé sous 2010 mais ca devrait fonctionner en revanche ne pas tenir compte de la remarque de PDEBAERE car la propriété .MAPIFolder n'existe pas en 2007
HermesCB
Messages postés11Date d'inscriptiondimanche 8 mai 2005StatutMembreDernière intervention14 avril 2013 26 avril 2010 à 19:44
bonjour
question:
le code fonctionne-il avec microsoft outlook 2007 et suite ... 2010
merci
pdebaere
Messages postés1Date d'inscriptionmardi 5 août 2008StatutMembreDernière intervention26 avril 2010 26 avril 2010 à 09:03
Dim MonDossier As Outlook.Folder
remplacer .Folder par .MAPIFolder
Merci pour le code et l'idée
Adn56
Messages postés1172Date d'inscriptionjeudi 24 mai 2007StatutMembreDernière intervention28 septembre 20131 21 avril 2010 à 20:17
oui si on n'utilse pas outlook express :(
bon code, mais pas pour le commun des users !
vivement un code pour outlook express, tiens et s'y je m'y collais ? pas en vba toujours.
++
NikatorS
Messages postés147Date d'inscriptionmercredi 18 septembre 2002StatutMembreDernière intervention15 avril 2011 21 avril 2010 à 19:25
12 avril 2018 à 13:16
6 nov. 2013 à 16:02
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
9 nov. 2012 à 18:53
24 mai 2010 à 10:48
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
27 avril 2010 à 10:18
Le code fonctionne sous 2007, j'ai pas testé sous 2010 mais ca devrait fonctionner en revanche ne pas tenir compte de la remarque de PDEBAERE car la propriété .MAPIFolder n'existe pas en 2007
26 avril 2010 à 19:44
question:
le code fonctionne-il avec microsoft outlook 2007 et suite ... 2010
merci
26 avril 2010 à 09:03
remplacer .Folder par .MAPIFolder
Merci pour le code et l'idée
21 avril 2010 à 20:17
bon code, mais pas pour le commun des users !
vivement un code pour outlook express, tiens et s'y je m'y collais ? pas en vba toujours.
++
21 avril 2010 à 19:25
Je note pour plus tard, ça sera utile.