Discussion :

[DrizztDo]

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 :

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

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

[Oliv-]

Bonjour,
Regarde ici :
http://www.developpez.net/forums/d52...e/#post3157009

[DrizztDo]

Salut,

tout d'abord merci pour la réponse.

Ensuite, en regardant ton lien j'ai réussi à résoudre mon problème de conversation topic, mais par contre ca m'affiche toujours pas les images dans le corps du mail.

Voici le nouveau 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
 
Dim LaReponse As Outlook.MailItem
Dim olNS As Outlook.NameSpace
 
Set Msg = olknamespace.GetItemFromID(id_mail)
 
    Set LaReponse = Msg.Reply
With LaReponse
   .HTMLBody = 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
LaReponse.Display

Je pense que c'est la partie olknamespace.GetItemFromID(id_mail).Reply.HTMLBody qui scratche les images.

[DrizztDo]

Bon en fait c'est bon 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
 
Dim LaReponse As Outlook.MailItem
Dim olNS As Outlook.NameSpace
 
Set Msg = olknamespace.GetItemFromID(id_mail)
 
    Set LaReponse = Msg.Reply
With LaReponse
    .HTMLBody = mon_message & .HTMLBody
    .CC = olknamespace.GetItemFromID(id_mail).Reply.CC
End With
LaReponse.Display

Merci encore pour la réponse.