Macro
Fermé
rezzoni0
Messages postés
48
Date d'inscription
dimanche 24 juin 2001
Statut
Membre
Dernière intervention
27 juin 2003
-
3 nov. 2001 à 13:01
marieC Messages postés 10 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 17 décembre 2007 - 29 juin 2005 à 15:18
marieC Messages postés 10 Date d'inscription mercredi 1 juin 2005 Statut Membre Dernière intervention 17 décembre 2007 - 29 juin 2005 à 15:18
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Télécharger macro excel chiffre en lettre dinars algerien ✓ - Forum Excel
1 réponse
marieC
Messages postés
10
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
17 décembre 2007
4
29 juin 2005 à 15:18
29 juin 2005 à 15:18
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