Discussion :

[djibouli]

bonjour,
j'essaye de d'avoir un bouton qui me permet de répondre au mail actif dans la boite de réception en récupérant un modéle déjà créé. j'arrive à creer le mail de réponse et à l'ouvrir mais je n'arrive pas à récupérer l'adresse du message dans la boite de réception. voici le code qui marche à moitier ( sans l'adresse) avec en commentaire les différente méthode qui n'ont pas fonctionnées.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub appelez_moi()
  Dim myItem As MailItem
    'ActiveInspector
    'Set myItem = Application.ActiveWindow.CurrentItem
 
    'Sub myItem_Reply(ByVal Response As Object, Cancel As Boolean)
 
   'Set Response.SaveSentMessageFolder = myItem.Parent
 
'   End Sub
 
 Set myItem = Application.CreateItemFromTemplate("C:\Users\jb\AppData\Roaming\Microsoft\Templates\appelez_moi.oft")
myItem.Display
Set myItem = Nothing
End Sub

merci à tous.

[tototiti2008]

Bonjour djibouli,

un essai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub appelez_moi()
  Dim CurrentMessage As MailItem, Reponse As MailItem, Obj As String, Exp As AddressEntry    
Set CurrentMessage = ActiveExplorer.Selection.Item(1)
    Obj = CurrentMessage.Subject
    Set Exp = CurrentMessage.Sender

 Set Reponse= Application.CreateItemFromTemplate("C:\Users\jb\AppData\Roaming\Microsoft\Templates\appelez_moi.oft")
    Reponse.Subject = "Re : " & Obj
    Reponse.Recipients.Add Exp.Address
    Reponse.Display
    Set CurrentMessage = Nothing
    Set Exp = Nothing
    Set Reponse = Nothing



End Sub