Déplacer automatiquement des mails [Résolu]

[oc_alex86]

Bonjour,
je souhaite créer sous Outlook 2003 un système qui déplacerait automatiquement certains emails dans un dossier.
Ces emails comportent un tag dans leur sujet indiquant qu'ils doivent être déplacés. Ils comportent aussi un autre tag qui indique dans quel dossier ce mail doit être déplacé.
Si ce nom ne devait pas exister, un nouveau dossier serait crée.
Est-ce possible ?
Si oui, comment ?

[Oliv-]

Bonjour,
Tu peux utiliser les règles et alertes, ou un code VBA ou le s2 ensembles cela dépend à quel moment tu veux faire cela ? et où se trouvent tes tag.
Oliv'

[oc_alex86]

Merci pour ta réponse.
Mes tags se trouvent dans le titre du message, et je souhaite trier les mails à leur réception.

[Heureux-oli]

Alors, il te suffit d'utiliser une règle.

Si tu crées une nouvelle règle, l'assistant va t'aider à établir la règle.

[oc_alex86]

Merci pour ta réponse.
J'ai essayé de créer une règle, mais je n'ai pas trouvé l'option qui me permettrai de créer un nouveau dossier (portant le nom du tag) si le tag n'existe pas.
Comment faire ?

[Heureux-oli]

Tu as raison, le dossier doit exister pour une règle.

[oc_alex86]

alors comment faire ?

[Heureux-oli]

VBA !

[oc_alex86]

ok, c'est bien ce que je pensais...
Je ne connais pas du tout le VBA. Est-ce qu'il s'agit d'un langage de programmation facile à apprendre ? (je connais bien le java, le C et le PHP)
Si oui, ou pourrais-je trouver un tutoriel ?

[Heureux-oli]

Oui, si tu as des notions de programmation, c'est un langage assez facile à apprendre.

Pour l'instant, le site n'a pas encore de Tuto, par contre, il y quelques posts qui traîtent de la réception de message.

C'est sur le principe des évènements qu'il faut s'attarder.

[oc_alex86]

ok, merci, je vais m'y mettre

[slyfox]

Bonjour,
Je suis sur Exchange avec Outlook 2003 sur un Windows XP.
Je cherche à déplacer les mails envoyés depuis "éléments envoyés" vers un autre dossier situé dans un pst en local, Et ce dés l'envoie du mails.
J'ai créé une régles, mais Outlook fait une copie au lieu d'un déplacement.
Avez-vous une solution?
Merci

[Heureux-oli]

Outlook ne peut faire qu'une copie et pas de déplacement.
Avec les règles.

[Oliv-]

Voici un code qui devrait faire ce que tu demandes (j'ai pas testé)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Il faut copier le code dans THISOUTLOOKSESSION
 
'############################################
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As _
Boolean)
 
'By Oliv' 9/02/2007 pour Outlook 2003
If Not Item.Class = olMail Then GoTo fin
 
    Dim objNS As NameSpace
    Dim objFolder As MAPIFolder
 
            Set objNS = Application.GetNamespace("MAPI")
            Set objFolder = objNS.PickFolder
            If TypeName(objFolder) = "Nothing" Then
                Set objNS = Application.GetNamespace("MAPI")
                'Set objFolder = objNS.GetDefaultFolder(olFolderDeletedItems)
Set objFolder = objNS.Folders("Dossiers personnels").Folders("Divers")
 
            End If
        Set Item.SaveSentMessageFolder = objFolder
fin:
End Sub