Merci beaucoup!! et desolé pour mon niveau!!
j'ai fait le test avec le code, le mail a bien été transferé à mon adresse, mais j'ai un message d'erreur:
erreur d'execution "91"
variable objet ou variable de block with non définie
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim varEntryIDs
Dim objItem
Dim i As Integer
varEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(varEntryIDs)
Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
Set myItem = objItem.Forward
myItem.Recipients.Add "_______@--.com"
myItem.Send
myItem = Nothing
Next
End Sub