Transfère de tous les mails vers

Bonjour,

J'aurais une fois de plus besoin de vos lumières!!

Est il possible, SVP, d'ajouter une Macro à Outlook qui permette de transferer tous les mails reçu vers une adresse mail defini??

Je précise que j'ai outlook 2003 et que je ne peux pas faire le transfère automatique directement avec outlook car c'est une adresse pro, et l'employeur fait bloquer cette option.

Je vous remercie d'avance pour votre aide.

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "x@y.com" 'ici change ton adresse
myFwd.Send
Set myFwd = Nothing 
End Sub

Dans outlook tu fais Tools -> Rules and Alerts -> New Rule -> Check Messages when they arrive -> Next -> YES -> Checkbox "Run a Script" -> Et puis tu selectionnes le script ci dessus

Bonjour Engueengue,

Merci pour ta réponse! Par contre je ne trouve pas le chemin que tu donnes, tools..

J'ai office 2003 et en français!

Peux tu l'aiguilleur?

bah ça doit être outils -> règles et alertes -> Nouvelle règle -> Checker messages quand ils arrivent -> Suivant -> Oui -> Lancer un script

Alors, j'ai bien:

• Nouvelle règle
• ensuite j'ai: "démarrer la création d'une réglé à partir d'un modèle " ou "démarrer a partir d'une règle vide"

Et la j'ai plein de choix de case a cocher avec comme question au dessus: "quels conditions voulez vous verifier?"

La je bloque!

Bon... Voilà le travail tout maché.. Marche chez moi. T'as qu'a le coller dans le code de ton outlook

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 "x@y.com"
        myItem.Send
        myItem = Nothing
    Next
End Sub

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

vire la ligne

Merci beaucoup, ça marche!! J'ai pas tout compris!! mais bon!!

Je te remercie pour tout, c'est sympa!

Bon weekend.

Bye

Oups, je viens de m'apercevoir d'une chose!!

le fait de mettre ce code fait que mon message d'absence du bureau n'est pas transmis à l'expediteur d'un message.

Aurais tu une solution??

EDIT: Fausse alerte!! Ca fonctionne!!