Macro
rezzoni0
Messages postés
48
Statut
Membre
-
marieC Messages postés 10 Statut Membre -
marieC Messages postés 10 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
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
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
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
