Discussion :

[vinch999]

Bonjour j'ai le besoin suivant:
-Pour tous les messages venant de abc@mail.com, et dont l'objet contient "objet A",
-les rediriger dans le dossier "mon_dossier", renommer l'objet en "Nouvel objet" et ensuite me les reforwarder à moi même directement dans ce même sous-dossier; Tout en supprimant les originaux.

je sais que c'est un peu tordu mais je dois faire comme cela.

D'avance merci.

[Oliv-]

Salut,
et qu'est ce qui te manque ?
en fait tu veux t’approprier le boulot de quelqu'un d'autre

[vinch999]

Haha pas du tout.
Si tu veux tout savoir : Mon problème est que je reçois des mails avec pièces jointes .csv de 2 sources différentes. Et je dois les gérer différement.Les mails on des fichiers au pattern identique et à l'objet identique. Mais les mails sont buggés, pas moyen d'extraire le fichier du mail original, donc je dois me le renvoyer à moi-même et l'extract fonctionne ensuite.
Mais comme je me le renvois à moi-même , je ne sais plus différencier les 2 sources. Donc comme première étape , j'ai fait une rule qui envoit les mails dans 2 dossiers différents selon la source.
Et je voudrais ensuite , faire un forward des mails à moi-même dans chacun des dossiers. en envoyant aussi le forward dans le dossier .
Mais les rules ne s'appliquent malheureusement qu'à la inbox, pas sur un dossier spécifique
Je ne sais pas si c'est clair

[Oliv-]

as tu essayé de solutionner ces pj illisibles en utilisant wmdecode par exemple
sont elles au format winmail.dat ou ATT00001.dat ?

[vinch999]

C'est plus complexe que ça. Je sais bien lire les pièces jointes depuis outlook.
Mais je dois faire des récupérations automatisées via job ETL (Talend pour ne pas le citer).
Et c'est Talend qui n'arrive pas à lire les mails natifs... Docn j'ai vraiment besoin de faire ce forward en local.

[Oliv-]

tu dois "transférer et envoyer" ou juste "transférer et enregistrer" (comme un brouillon)

[Oliv-]

Bonjour,
Voici un exemple de script exécutable par une REGLE.
Le principe
1-créer ou modifier ta règle lors de l'arrivée du message original pour exécuter ce script
2-Créer une nouvelle règle pour l'arrivée du Mail transféré, pour le classer où tu veux

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub ScriptTrrToRec(myMail As MailItem)
'---------------------------------------------------------------------------------------
' Procedure : TrrToRec
' Author    : Oliv'
' Date      : 16/11/2014
' Purpose   : script a exécuter avec une règle pour transférer au destinataires x
'---------------------------------------------------------------------------------------
'
    Dim LeMailTransfere As Outlook.MailItem
    Dim StrID As String
    Dim olNS As Outlook.NameSpace
    Dim msg As Outlook.MailItem
    Dim Destinataire, liste

    Destinataire="abc@mail.com"

    StrID = myMail.EntryID
    Set olNS = Application.GetNamespace("MAPI")
    Set msg = olNS.GetItemFromID(StrID)
    ' do stuff with msg, e.g.


    Set LeMailTransfere = msg.Forward
            LeMailTransfere.Recipients.add Destinataire
            LeMailTransfere.subject="Nouvel objet"
            'LeMailTransfere.Display
            LeMailTransfere.Send
'ou
'LeMailTransfere.save

'ici on supprime le message initial
msg.delete
  
    Set msg = Nothing
    Set olNS = Nothing
End Sub