Tu as raison j'ai un morceau de code la dedans...
Je viens de tout supprimer et je viens d'ajouter ton code (je te joins une copie écran)
ça ne fonctionne toujours pas
copie ecran.docx
Est ce que l'autre code (celui que tu viens de supprimer) fonctionnait quand à lui ? si non c'est sans doute une question d'activation des macros
dans l'onglet développeur, il faut cliquer sur Sécurité des macros/ et cocher Notification pour toutes les macros.
A l'ouverture de OUtlook, il doit te demander si tu veux activer les macros.
le code se déroule pourtant bien !
il faut juste faire une tite correction
quand tu as copié ce code tu dois cliquer dans la macro "Application_Startup" puis faire F5
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Dim WithEvents colSentItems As Items Private Sub Application_Startup() Dim NS As Outlook.NameSpace Set NS = Application.GetNamespace("MAPI") Set colSentItems = NS.GetDefaultFolder(olFolderSentMail).Items End Sub Private Sub colSentItems_ItemAdd(ByVal Item As Object) 'By Oliv ' janv 2008 pour Outlook 2003 feat. Sue Mosher 'http://www.outlookcode.com/codedetail.aspx?id=456 If Item.Class = olMail Then Set objNSpace = Application.GetNamespace("MAPI") Set fldDestination = objNSpace.PickFolder Item.Move fldDestination End If End Sub
Ensuite tu dois envoyer un Email et il faut qu'il se classe dans Elements envoyés
La boite apparait quand le mail est réélement envoyé
Bonjour,
essaye avec ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Dim WithEvents colSentItems As Items Private Sub Application_Startup() Dim NS As Outlook.NameSpace Set NS = Application.GetNamespace("MAPI") Set colSentItems = NS.GetDefaultFolder(olFolderSentMail).Items msgbox Colsentitems.parent.name End Sub Private Sub colSentItems_ItemAdd(ByVal Item As Object) 'By Oliv ' janv 2008 pour Outlook 2003 feat. Sue Mosher 'http://www.outlookcode.com/codedetail.aspx?id=456 If Item.Class = olMail Then Set objNSpace = Application.GetNamespace("MAPI") Set fldDestination = objNSpace.PickFolder Item.Move fldDestination End If End Sub
Super, donc ça doit fonctionner.
Quand tu envois un Email, il va se classer où ? dans "Eléments envoyés" de ton compte par défaut ?
As tu fais le test à partir d'un clic droit envoyer au destinataire ?
Essaye ce code directement à partir d'un Email des élements envoyés ouvert
puis avec celui-ci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub classeManuel () Dim Item As Object set item = activeinspector.currentitem If Item.Class = olMail Then Set objNSpace = Application.GetNamespace("MAPI") Set fldDestination = objNSpace.PickFolder Item.Move fldDestination End If End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Sub classeManuelII () Dim Item As Object set item = activeinspector.currentitem call colSentItems_ItemAdd (Item) End sub
Bonjour Oliv,
Rentré de congès, je reprends nos échanges, les derniers codes communiqués fin juin ne fonctionnent pas, avez-vous une autre solution ou idée ?
Un grand merci.
BJR
CA VEUT DIRE QUOI AU JUSE NE FONCTIONNE PAS !
message d'erreur ? se lance pas ?
J'ai inserer le code dans thisOutlookSession puis j'ai testé un envoi de mail en effectuant la manip suivante :
-clic droit sur un fichier de mon bureau
-envoyer vers destinataire (outlook s'ouvre automatiquement)
-envoyer
-outlook se ferme automatiquement sans me demander ou classer mon mail
Précision : ce code ne fonctionne pas non plus avec un envoi classique (ouverture d'outlook puis créer un message...)
Bjr
Les 2 derniers codes ne se declenchent pas automariquement . Il faut ouvrir un email puis lancer la macro
Oliv,
effectivement les 2 codes apparaissent bien et peuvent être exécutés manuellement après clic sur bouton macros.
Mais subsistent des problèmes :
-seul le premier code fonctionne (pas grave car l'exécution de ce premier code me parait suffisant)
-l’exécution manuellement des codes n'est possible que quand nous faisons nouveau message et non quand nous envoyons directement une pièce jointe (clic droit envoyer vers destinataire) or c'est ce type d'envoi que j'utilise fréquemment et qui me pose souci
-existe-il un moyen pour automatiser l'exécution de cette macro quand nous envoyons un mail "par l'envoi d'un fichier directement" (clic droit envoyer vers destinataire)
Merci encore et encore
Je reprends ce fil laissé un peu à l'abandon, Oliv a beaucoup contribué et je l'en remercie mais pouvons nous arriver à une solution ?
Merci !!!
Pol
Salut
Pour choper l envoi lorsque l on fait "envoyer vers" il faut créer un complément COM.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager