Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook [CD] - Dossier Eléments envoyés

[CD] - Dossier Eléments envoyés

8 réponses
Avatar
CD
Bonjour,

Est-il possible de désigner un dossier dans un fichier .pst pour recevoir
les mails envoyés au lieu du dossier par défaut Eléments envoyés de la BAL
Exchange ?
Cela me permettrait de résoudre mon problème de saturation de la BAL
Exchange lors d'envoi de mails avec PJ à plusieurs destinataires.

Je vous remercie pour votre aide.

CD
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JièL Goubert
Bonjoir(c) CD

Le 13/12/2004 21:58 vous avez écrit ceci :
Bonjour,

Est-il possible de désigner un dossier dans un fichier .pst pour recevoir
les mails envoyés au lieu du dossier par défaut Eléments envoyés de la BAL
Exchange ?


Pas vraiment, non... Vous pouvez en fait faire une régle qui déplace le
message envoyé, que vous lancerez manuellement car elle ne peut l'être
automatiquement lors de l'envoi d'un message. Lors de l'envoi, seule une
copie peut être envoyer dans un autre dossier...

Mais on pourrait peut-être suggérer à notre programmeuse en chef :-) de
faire une 'tit macro qui déplacerait le mail envoyé, car MS ne l'a pas
prévu mais donne la possibilité de lancer une action personnalisée (Isa,
si tu as le temps bien entendue, pas de pression, ici c'est pas le boulot,
c'est quand on veut comme on veut)

Je vous remercie pour votre aide.


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/

Avatar
Isabelle Prawitz
Bonjour !
C'est si bien amené ! ;-)
Je me penche sur le problème !
Mais les 3 jours prochains, je fais une formation Outlook VBA, ça me retardera peut-être un peu si je n'ai pas fini avant !
;-)
A+
Isa

"JièL Goubert" a écrit dans le message de
news:
Bonjoir(c) CD

Le 13/12/2004 21:58 vous avez écrit ceci :
Bonjour,

Est-il possible de désigner un dossier dans un fichier .pst pour recevoir
les mails envoyés au lieu du dossier par défaut Eléments envoyés de la BAL
Exchange ?


Pas vraiment, non... Vous pouvez en fait faire une régle qui déplace le
message envoyé, que vous lancerez manuellement car elle ne peut l'être
automatiquement lors de l'envoi d'un message. Lors de l'envoi, seule une
copie peut être envoyer dans un autre dossier...

Mais on pourrait peut-être suggérer à notre programmeuse en chef :-) de
faire une 'tit macro qui déplacerait le mail envoyé, car MS ne l'a pas
prévu mais donne la possibilité de lancer une action personnalisée (Isa,
si tu as le temps bien entendue, pas de pression, ici c'est pas le boulot,
c'est quand on veut comme on veut)

Je vous remercie pour votre aide.


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/



Avatar
Isabelle Prawitz
Bon, ça y est, j'ai une solution, mais deux problèmes se posent :
1. Pour que le dossier Eléments envoyés réagisse à chaque fois, il faut lancer une macro au démarrage d'Outlook, d'où
modification de la ligne de commande d'ouverture de Outlook.
2. Pour ne pas avoir à ressaisir à chaque fois le nom du dossier de "rangement", il faut l'écrire en dur dans le code, soit
en mettant son "identifiant" dans une constante, soit par une ligne de code qui peut être à rallonge.
a. Const IdDossRang = "000000005CA0B834925B1845B5EA1C756C44444F42870000"
puis plus loin : set leDossRang=session.getFolderfromId(IdDossRang)
b. Avec le dossier dans un PST Rangement : RangementMailEnvoyés
set leDossRang=session.Folders("Rangement").Folders("MailEnvoyés")

Que préférez-vous ?

A+
Isa
"Isabelle Prawitz" a écrit dans le message de news:
Bonjour !
C'est si bien amené ! ;-)
Je me penche sur le problème !
Mais les 3 jours prochains, je fais une formation Outlook VBA, ça me retardera peut-être un peu si je n'ai pas fini avant !
;-)
A+
Isa

"JièL Goubert" a écrit dans le message de
news:
Bonjoir(c) CD

Le 13/12/2004 21:58 vous avez écrit ceci :
Bonjour,

Est-il possible de désigner un dossier dans un fichier .pst pour recevoir
les mails envoyés au lieu du dossier par défaut Eléments envoyés de la BAL
Exchange ?


Pas vraiment, non... Vous pouvez en fait faire une régle qui déplace le
message envoyé, que vous lancerez manuellement car elle ne peut l'être
automatiquement lors de l'envoi d'un message. Lors de l'envoi, seule une
copie peut être envoyer dans un autre dossier...

Mais on pourrait peut-être suggérer à notre programmeuse en chef :-) de
faire une 'tit macro qui déplacerait le mail envoyé, car MS ne l'a pas
prévu mais donne la possibilité de lancer une action personnalisée (Isa,
si tu as le temps bien entendue, pas de pression, ici c'est pas le boulot,
c'est quand on veut comme on veut)

Je vous remercie pour votre aide.


--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/







Avatar
JièL Goubert
Bonjoir(c) Isabelle Prawitz

Le 14/12/2004 14:19 vous avez écrit ceci :
Bon, ça y est, j'ai une solution, mais deux problèmes se posent :
1. Pour que le dossier Eléments envoyés réagisse à chaque fois, il faut lancer une macro au démarrage d'Outlook, d'où
modification de la ligne de commande d'ouverture de Outlook.
2. Pour ne pas avoir à ressaisir à chaque fois le nom du dossier de "rangement", il faut l'écrire en dur dans le code, soit
en mettant son "identifiant" dans une constante, soit par une ligne de code qui peut être à rallonge.
a. Const IdDossRang = "000000005CA0B834925B1845B5EA1C756C44444F42870000"
puis plus loin : set leDossRang=session.getFolderfromId(IdDossRang)
b. Avec le dossier dans un PST Rangement : RangementMailEnvoyés
set leDossRang=session.Folders("Rangement").Folders("MailEnvoyés")

Que préférez-vous ?


Sans contestation, la seconde qui est nettement plus claire qu'une suite
de chiffre totalement ésotérique ;-)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/

Avatar
Isabelle Prawitz
Ok !
Pour la constante bizarroïde, j'avais bien sûr prévu une manip pour la récupérer !
Bon, alors, je la donne ma "macro" ? (Dans mon exemple, seuls les messages avec pièce(s) jointe(s) sont déplacées, mais on
peut bien sûr changer ça !)
Isa

"JièL Goubert" a écrit dans le message de
news:
Bonjoir(c) Isabelle Prawitz

Le 14/12/2004 14:19 vous avez écrit ceci :
Bon, ça y est, j'ai une solution, mais deux problèmes se posent :
1. Pour que le dossier Eléments envoyés réagisse à chaque fois, il faut lancer une macro au démarrage d'Outlook, d'où
modification de la ligne de commande d'ouverture de Outlook.
2. Pour ne pas avoir à ressaisir à chaque fois le nom du dossier de "rangement", il faut l'écrire en dur dans le code,
soit


en mettant son "identifiant" dans une constante, soit par une ligne de code qui peut être à rallonge.
a. Const IdDossRang = "000000005CA0B834925B1845B5EA1C756C44444F42870000"
puis plus loin : set leDossRang=session.getFolderfromId(IdDossRang)
b. Avec le dossier dans un PST Rangement : RangementMailEnvoyés
set leDossRang=session.Folders("Rangement").Folders("MailEnvoyés")

Que préférez-vous ?


Sans contestation, la seconde qui est nettement plus claire qu'une suite
de chiffre totalement ésotérique ;-)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/



Avatar
JièL Goubert
Bonjoir(c) Isabelle Prawitz

envoi, qu'on la passe à la moulinette ;-)
tu as corrigé celle de l'ouverture des PJ ?

A+
--
JièL

Le 14/12/2004 16:22 vous avez écrit ceci :
Ok !
Pour la constante bizarroïde, j'avais bien sûr prévu une manip pour la récupérer !
Bon, alors, je la donne ma "macro" ? (Dans mon exemple, seuls les messages avec pièce(s) jointe(s) sont déplacées, mais on
peut bien sûr changer ça !)
Isa

"JièL Goubert" a écrit dans le message de
news:

Bonjoir(c) Isabelle Prawitz

Le 14/12/2004 14:19 vous avez écrit ceci :

Bon, ça y est, j'ai une solution, mais deux problèmes se posent :
1. Pour que le dossier Eléments envoyés réagisse à chaque fois, il faut lancer une macro au démarrage d'Outlook, d'où
modification de la ligne de commande d'ouverture de Outlook.
2. Pour ne pas avoir à ressaisir à chaque fois le nom du dossier de "rangement", il faut l'écrire en dur dans le code,



soit

en mettant son "identifiant" dans une constante, soit par une ligne de code qui peut être à rallonge.
a. Const IdDossRang = "000000005CA0B834925B1845B5EA1C756C44444F42870000"
puis plus loin : set leDossRang=session.getFolderfromId(IdDossRang)
b. Avec le dossier dans un PST Rangement : RangementMailEnvoyés
set leDossRang=session.Folders("Rangement").Folders("MailEnvoyés")

Que préférez-vous ?


Sans contestation, la seconde qui est nettement plus claire qu'une suite
de chiffre totalement ésotérique ;-)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/






Avatar
Isabelle Prawitz
Ok !
1. Tout en haut du code de session Outlook :
Public WithEvents monDossElEnvoyes As Items 'les futurs éléments du dossier Eléments envoyés
Dim LeDossRangElEnv As MAPIFolder 'le futur dossier où seront rangés les mails envoyés

2. La macro qui permet de gérer les évènements du dossier Eléments envoyés

'**************
'***Cette macro déclare le dossier Eléments envoyés pour pouvoir gérer ses évènements
'**************
Sub InitDoss()
Dim MonEsp As NameSpace
Dim MonDossier As MAPIFolder

Set MonEsp = GetNamespace("MAPI")
Set MonDossier = MonEsp.GetDefaultFolder(olFolderSentMail) 'Dossier Eléments envoyés
Set monDossElEnvoyes = MonDossier.Items
'******** Ci-dessous l'initialisation du dossier de rangement des éléments envoyés
'******** ex. avec un dossier PST Rangement avec un sous-dossier MailPJEnvoyés
Set LeDossRangElEnv = MonEsp.Folders("Rangement").Folders("MailPJEnvoyés")

End Sub
'********* fin de la macro d'initialisation

3. Génération de l'évènement monDossElEnvoyes_ItemAdd par sélection de monDossElEnvoyes dans la liste déroulante Objet, et
sélection de ItemAdd dans la liste déroulante Procédure.
On obtient :

Private Sub monDossElEnvoyes_ItemAdd(ByVal Item As Object)

End Sub

Dans le corps de cet évènement, on colle:

If Item.Attachments.Count > 0 Then 'pour ne déplacer que les messages avec pièces jointes, à enlever sinon
Item.Move LeDossRangElEnv ' pour déplacer l'élément dans le dossier de rangement
End If 'pour ne déplacer que les messages avec pièces jointes, à enlever
sinon

D'où :

'****** Evènement généré à chaque fois qu'un élément arrive dans Eléments envoyés
'******
Private Sub monDossElEnvoyes_ItemAdd(ByVal Item As Object)
If Item.Attachments.Count > 0 Then 'pour ne déplacer que les messages avec pièces jointes, à enlever sinon
Item.Move LeDossRangElEnv ' pour déplacer l'élément dans le dossier de rangement
End If 'pour ne déplacer que les messages avec pièces jointes, à enlever
sinon
End Sub
'****** Fin de l'évènement

4. On enregistre la session Outlook

"C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE" /autorun Projet1.ThisOutlookSession.InitDoss
si la version de Outlook est 2003 et l'emplacement par défaut.
Sinon, conserver la première partie de la ligne de commande, et rajouter juste
/autorun Projet1.ThisOutlookSession.InitDoss

Voilà !
Pour les PJ, j'ai fait une autre version qu'il faut que je regarde encore un peu (suppression du dossier temp !)
Quant à simuler la boîte de choix de dossier, j'ai abandonné ! Trop compliqué ! L'impression de revenir en environnement 3.11
!)
A+
Isa

"JièL Goubert" a écrit dans le message de
news:
Bonjoir(c) Isabelle Prawitz

envoi, qu'on la passe à la moulinette ;-)
tu as corrigé celle de l'ouverture des PJ ?

A+
--
JièL

Le 14/12/2004 16:22 vous avez écrit ceci :
Ok !
Pour la constante bizarroïde, j'avais bien sûr prévu une manip pour la récupérer !
Bon, alors, je la donne ma "macro" ? (Dans mon exemple, seuls les messages avec pièce(s) jointe(s) sont déplacées, mais
on


peut bien sûr changer ça !)
Isa

"JièL Goubert" a écrit dans le message de
news:

Bonjoir(c) Isabelle Prawitz

Le 14/12/2004 14:19 vous avez écrit ceci :

Bon, ça y est, j'ai une solution, mais deux problèmes se posent :
1. Pour que le dossier Eléments envoyés réagisse à chaque fois, il faut lancer une macro au démarrage d'Outlook, d'où
modification de la ligne de commande d'ouverture de Outlook.
2. Pour ne pas avoir à ressaisir à chaque fois le nom du dossier de "rangement", il faut l'écrire en dur dans le code,



soit

en mettant son "identifiant" dans une constante, soit par une ligne de code qui peut être à rallonge.
a. Const IdDossRang = "000000005CA0B834925B1845B5EA1C756C44444F42870000"
puis plus loin : set leDossRang=session.getFolderfromId(IdDossRang)
b. Avec le dossier dans un PST Rangement : RangementMailEnvoyés
set leDossRang=session.Folders("Rangement").Folders("MailEnvoyés")

Que préférez-vous ?


Sans contestation, la seconde qui est nettement plus claire qu'une suite
de chiffre totalement ésotérique ;-)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/








Avatar
CD
Bonsoir,

Merci beaucoup de vous être penché sur mon problème !
Je vais étudier la solution et essayer de la comprendre/mettre en oeuvre.

CD

"Isabelle Prawitz" a écrit dans le message de
news:
Ok !
1. Tout en haut du code de session Outlook :
Public WithEvents monDossElEnvoyes As Items 'les futurs éléments du
dossier Eléments envoyés

Dim LeDossRangElEnv As MAPIFolder 'le futur dossier où
seront rangés les mails envoyés


2. La macro qui permet de gérer les évènements du dossier Eléments envoyés

'**************
'***Cette macro déclare le dossier Eléments envoyés pour pouvoir gérer ses
évènements

'**************
Sub InitDoss()
Dim MonEsp As NameSpace
Dim MonDossier As MAPIFolder

Set MonEsp = GetNamespace("MAPI")
Set MonDossier = MonEsp.GetDefaultFolder(olFolderSentMail) 'Dossier
Eléments envoyés

Set monDossElEnvoyes = MonDossier.Items
'******** Ci-dessous l'initialisation du dossier de rangement des éléments
envoyés

'******** ex. avec un dossier PST Rangement avec un sous-dossier
MailPJEnvoyés

Set LeDossRangElEnv MonEsp.Folders("Rangement").Folders("MailPJEnvoyés")

End Sub
'********* fin de la macro d'initialisation

3. Génération de l'évènement monDossElEnvoyes_ItemAdd par sélection de
monDossElEnvoyes dans la liste déroulante Objet, et

sélection de ItemAdd dans la liste déroulante Procédure.
On obtient :

Private Sub monDossElEnvoyes_ItemAdd(ByVal Item As Object)

End Sub

Dans le corps de cet évènement, on colle:

If Item.Attachments.Count > 0 Then 'pour ne déplacer que les messages
avec pièces jointes, à enlever sinon

Item.Move LeDossRangElEnv ' pour déplacer l'élément dans le
dossier de rangement

End If 'pour ne déplacer
que les messages avec pièces jointes, à enlever

sinon

D'où :

'****** Evènement généré à chaque fois qu'un élément arrive dans Eléments
envoyés

'******
Private Sub monDossElEnvoyes_ItemAdd(ByVal Item As Object)
If Item.Attachments.Count > 0 Then 'pour ne déplacer que les messages
avec pièces jointes, à enlever sinon

Item.Move LeDossRangElEnv ' pour déplacer l'élément dans le
dossier de rangement

End If 'pour ne déplacer
que les messages avec pièces jointes, à enlever

sinon
End Sub
'****** Fin de l'évènement

4. On enregistre la session Outlook

"C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE" /autorun
Projet1.ThisOutlookSession.InitDoss

si la version de Outlook est 2003 et l'emplacement par défaut.
Sinon, conserver la première partie de la ligne de commande, et rajouter
juste

/autorun Projet1.ThisOutlookSession.InitDoss

Voilà !
Pour les PJ, j'ai fait une autre version qu'il faut que je regarde encore
un peu (suppression du dossier temp !)

Quant à simuler la boîte de choix de dossier, j'ai abandonné ! Trop
compliqué ! L'impression de revenir en environnement 3.11

!)
A+
Isa

"JièL Goubert" a écrit dans le
message de

news:
Bonjoir(c) Isabelle Prawitz

envoi, qu'on la passe à la moulinette ;-)
tu as corrigé celle de l'ouverture des PJ ?

A+
--
JièL

Le 14/12/2004 16:22 vous avez écrit ceci :
Ok !
Pour la constante bizarroïde, j'avais bien sûr prévu une manip pour la
récupérer !



Bon, alors, je la donne ma "macro" ? (Dans mon exemple, seuls les
messages avec pièce(s) jointe(s) sont déplacées, mais



on
peut bien sûr changer ça !)
Isa

"JièL Goubert" a écrit dans
le message de



news:

Bonjoir(c) Isabelle Prawitz

Le 14/12/2004 14:19 vous avez écrit ceci :

Bon, ça y est, j'ai une solution, mais deux problèmes se posent :
1. Pour que le dossier Eléments envoyés réagisse à chaque fois, il
faut lancer une macro au démarrage d'Outlook, d'où





modification de la ligne de commande d'ouverture de Outlook.
2. Pour ne pas avoir à ressaisir à chaque fois le nom du dossier de
"rangement", il faut l'écrire en dur dans le code,






soit

en mettant son "identifiant" dans une constante, soit par une ligne
de code qui peut être à rallonge.





a. Const IdDossRang "000000005CA0B834925B1845B5EA1C756C44444F42870000"
puis plus loin : set
leDossRang=session.getFolderfromId(IdDossRang)





b. Avec le dossier dans un PST Rangement :
RangementMailEnvoyés





set
leDossRang=session.Folders("Rangement").Folders("MailEnvoyés")






Que préférez-vous ?


Sans contestation, la seconde qui est nettement plus claire qu'une
suite




de chiffre totalement ésotérique ;-)

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
*** ENQUETE SUR LES NEWSGROUPS MICROSOFT FRANCOPHONES ***
http://collecxia.microsoft.fr/formulaires/forms/enquetenewsgroupfy04/