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
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 ?