Macro
rezzoni0
Messages postés
48
Statut
Membre
-
marieC Messages postés 10 Date d'inscription Statut Membre -
marieC Messages postés 10 Date d'inscription Statut Membre -
Bonjour, j'aimerais créer une macro dans outlook 2000 pour pouvoir sauver automatiquement la pièces jointe d'un email dans un répertoire particulier. Je ne connais pas le VB. Est-ce que qqun pourrait m'aider ?
Merci
Merci
1 réponse
-
Dans l'evenement Application_NewMail de la session outlook, ecris une macro de ce style :
Sub EnregistrePieceJointe()
Set objOLNS = Application.GetNamespace("MAPI")
Set objInboxFolder = objOLNS.GetDefaultFolder(6)
Set sousdossier = objInboxFolder.Folders("test")
Set DossierTraite = objInboxFolder.Folders("traite")
Set objAllMail = sousdossier.Items
For Each mail In objAllMail
test = mail.Subject
test = mail.Attachments.Count
for i = 1 to mail.Attachments.Count
nom_fic = Replace(mail.Attachments.Item(i).DisplayName, "/", "-")
mail.Attachments.Item(i).SaveAsFile "C:\temp\test_outlook\" & nom_fic
next
mail.Move DossierTraite
Next
End Sub
Dans ce cas là la session outlook doit être ouverte. Je cherche pour que ce soit exécuter sur le serveur sans devoir lancer outlook
