Récupérer mail envoyé.

[alarevoyure]

Bonjour
J'ai créé un bouton dans une barre d'outils qui lance le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    If MailENCORE = True Then
        'EnvoiMailSimple
        Dim toto As Object
        Set toto = Application.ActiveInspector.CurrentItem
 
        toto.SaveAs "d:\testmail.msg"
        MsgBox "mail sauvegardé dans ENCORE"
        MailENCORE = False
    End If
 
End Sub

Le but est de récupérer le mail si la variable global est à true.
Cela fonctionne mais le mail enregistré comporte la mention" Ce message n'a pas été envoyé". En fait je pense qu'avec l'évènement Application_ItemSend on a la main juste avant l'envoi et pas après : quand le mail est dans le dossier éléments envoyés.
Donc voilà mon problème : récupérer le mail dans sa forme finale : celle qu'il a quand il est dans éléments envoyés.

[Oliv-]

SAlut,
tu as effectivement raison.
Regarde ici http://www.developpez.net/forums/sho...95&postcount=5 on en avait parlé.

[Oliv-]

Envoyé par alarevoyure

Bonjour
Merci pour ta réponse.
J'ai rajouté tes deux parties de code.
La première est bien prise en compte au démarrage de l'application, la seconde n'est jamais utilisée. La mets-tu simplement à la suite dans le code ?
A mon avis l'objet "colSentItems" n'existe plus quand on sort de Application_Startup() et donc Private Sub colSentItems_ItemAdd(ByVal Item As Object)
n'est jamais appelée.
Enfin je crois que quelque chose m'échappe.
Merci.

Quelle version de outlook utilises tu ?