Macro pour répondre à un message spécifique depuis Excel

Bonjour à tous,

Je suis novis en VBA. Je cherche un code qui me permettra de répondre à un mail spécifique depuis excel.

je m'explique:

Voici l'objet du mail en question : "RE: Affectation Personnel ATELIER - 19-S24"

J'aimerais que la macro cherche le mail le plus récent ayant cet objet et l'ouvre en réponse.

Bonjour,

à tester,

Sub test()
Dim objNS As Outlook.Namespace
Dim olFolder As Outlook.MAPIFolder
Dim Item As Object
Dim sj As String

Set objNS = GetNamespace("MAPI")
Set olFolder = objNS.GetDefaultFolder(olFolderInbox)

sj = "RE: Affectation Personnel ATELIER - 19-S24"

With olFolder
    For i = 1 To .Items.Count
        If TypeOf .Items(i) Is Outlook.MailItem Then
          If .Items(i).Subject = sj Then
            n = i
          End If
        End If
    Next
End With
olFolder.Items(n).Display  '.Reply
End Sub

Bonjour i20100,

Merci beaucoup pour ta réponse. J'ai testé ton code, mais voici le message que je reçois.

Point d'arrêt non autorisé dans cette ligne

et il souligne ce code ci : Dim objNS As Outlook.Namespace

re,

as-tu coché la référence à Outlook ?

Non. Comment le fait t-on ?

re,

vba reference outlook

TOP TOP TOP TOP!!!!!!!

C'est génial déjà.

Merci.

Mais pour l'instant il ouvre déjà le mail, et c'est déjà beaucoup. Ne peux-t-il pas l'ouvrir et cliquer automatiquement sur "Répondre à tous". Comme ça je n'aurai plus à le faire ?

C'est possible??????

re,

essai en remplaçant

olFolder.Items(n).Display

par

olFolder.Items(n).ReplyAll

.Reply et .ReplyAll ne fonctionnent pas.

Bon, déjà qu'il ouvre le mail ça me va. Merci

Rechercher des sujets similaires à "macro repondre message specifique"