Discussion :

[dlewin]

bonjour,

Avec Outlook 2007, j'ai une règle qui déplace certains mail dans un dossier spécifique "Mon Dossier" créé à la main et enfant de "folders"; différent de "inbox".
Je souhaite ajouter l'éxecution d'un script à cette règle pour exporter le corps de ces mails pour les consulter sans outllook.

cela ressemble pas mal à l'exemple de la FAQ

http://outlook.developpez.com/faq/?p...e_nouveau_mail

sauf que :
- j'ai une erreur pour accéder à "Mon dossier"

[carden752]

Bonjour,

Le dossier "Mon dossier" se trouve bien dans la boite de réception?

[dlewin]

Bonjour,

Le dossier "Mon dossier" se trouve bien dans la boite de réception?

Dans l'onglet 'Mail folders' / all Mail Items se trouve l'arborescence :

* MailBox - Mon nom
|_Custom expiration....
|_Conversation history
|_Drafts
|_Folders
| |_Dossier perso
| |_Mon Dossier <------
|_Inbox
|_junk E-Mail
|_Outbox
[_etc...

[carden752]

Bonjour,

une solution plus simple pour accéder à ce répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim mondossier As MAPIFolder
Set mondossier = Application.GetNamespace("MAPI").Folders("Mailbox - Mon nom").Folders("Folders").folders("Mon Dossier")

[dlewin]

Bonjour,

une solution plus simple pour accéder à ce répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim mondossier As MAPIFolder
Set mondossier = Application.GetNamespace("MAPI").Folders("Mailbox - Mon nom").Folders("Folders").folders("Mon Dossier")

Je comprends plus rien, j'ai bien mis la macro dans "ThisOutlookSession" et Tools/Macros /security : "No security for macros" il me refuse avec

the macros in this project are disabled. please refer to the online help...

Alors qu'avant je pouvais l'éxecuter

[dlewin]

bon en fait il fallait quitter Outlook pour le redémarrer.
Bon au moins ça change, maintenant j'ai une erreur outlook 2147221233
sur un objet. Il semble que cela arrive lorsqsue l'on déplace des mails.

Surprenant car le script par défaut dans la faq à fonctionné sans problème...

[dlewin]

bon faut regarder un peu mieux mon gars! si tu laisse le mydestfolder qui n'existe pas chez toi c'est sur....

C'est sur là ça fonctionne.
Bon reste à comprendre comment changer les noms de chaque fichier un tantinet longs du genre :

temp00000000D98C86CD726AFB41BE9D0CD8BA4C0DD30700B67160740FC7384CB62C185F4D0C947100001B31800F0000B67160740FC7384CB62C185F4D0C947100001B3196B30000

[dlewin]

Merci Carden752.

Si en plus tu me pouvait me pointer sur l'entrée de la doc pour savoir comment changer :

strName = myItem.EntryID

pour que le nom du fichier créé ait le titre du mail plutôt, alors la...

PS: parceque j'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 strName = myItem.Subject