Reply à un message en vba
Bonjour,
je suis en train de faire une appli access qui entre autre, me permet de répondre à des mails automatiquement.
Voici le code que j'ai écris pour faire ca :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
|
Set olkapp = CreateObject("Outlook.application")
Set olknamespace = olkapp.GetNamespace("MAPI")
Set oEmail = olkapp.CreateItem(olMailItem)
With oEmail
.HTMLBody = "Bonjour, <br><br> " & mon_message & olknamespace.GetItemFromID(id_mail).Reply.HTMLBody
.To = olknamespace.GetItemFromID(id_mail).Reply.To
.CC = olknamespace.GetItemFromID(id_mail).Reply.CC
.Subject = olknamespace.GetItemFromID(id_mail).Reply.Subject
End With
oEmail.Display |
id_mail est une variable où je stocke l'id outlook du mail auquel je veux répondre.
Cette méthode me pose cependant deux problèmes :
1) le conversation topic du reply n'est pas bon (ex : si le conversation topic du message initial est "bla bla", le conversation de mon reply devient "Re: bla bla" au lieu de rester "bla bla"). Ca m'embêtes un peu comme j'utilise le conversation topic pour lier les mails d'une même conversation entre eux.
2) les images dans le corps du message semblent disparaitre.
Est ce que vous auriez une méthode à me proposer pour résoudre l'un de ces problèmes, ou même les 2 ? ;)
Merci.
PS : j'utilise Outlook 2003 et Access 2003
