Faire suivre les mails en fonction de l'objet et de façon équitable

**lillois39** · 11/04/2016, 22h44

Bonjour a tous et a toutes et ravi de me joindre a vous sur developpez.net

Je vous explique mon besoin, si vous pouvez me dire si c'est facilement realisable avec VBA sous outlook .. d'avance merci

Tous les jours je reçoit plusieurs mails (avec Demandes dans l'objet) a traiter par mes 3 collaborateurs

et actuellement lorsque je recoit le 1er mail, je le transférè manuellement a colaborateur1 pour traitement
la 2eme a colaborateur2
la 3eme a colaborateur3

la 4eme a colaborateur1
la 5eme a colaborateur2
la 7eme a colaborateur3

la 8eme a colaborateur1
et ainsi de suite..

j'aimerais automatiser ces actions.. les demandes doivent donc etre dispatché de façon equitable entre mes 3 collaborateurs.
Pouvez-vous me dire si c'est facilement realisable ?
si oui, je me met sérieusement au developpement VBA
je vous remercie !!

**Oliv-** · 13/04/2016, 14h14

Bonjour,
Oui c'est faisable.

Il faut créer une règle avec les conditions de déclenchement et choisir comme action executer un script

et coller ce code dans un module de OUltook

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Sub Test_ScriptForwardEquit()
 
    Dim MyItem As MailItem
 
    Set MyItem = ActiveInspector.CurrentItem
    ScriptForwardEquit MyItem
 
 
End Sub
 
Sub ScriptForwardEquit(Mymail As MailItem)
'---------------------------------------------------------------------------------------
' Procedure : RepToRec
' Author    : Oliv'
' Date      : 16/04/2008
' Purpose   : script a executer avec une règle pour transférer à 3 personnes
'---------------------------------------------------------------------------------------
'
    Static vSuivant As Integer
    Dim MailTransfer As Outlook.MailItem
    Set MailTransfer = Mymail.Forward
 
    Path_vSuivant = "c:\temp\vsuivant.txt"
 
    If vSuivant = 0 Then    ' on ouvre le fichier
        On Error Resume Next
        Open Path_vSuivant For Input As #1
        If Err.Number = 53 Then
            vSuivant = 1
            'ecrire le fichier
            Open Path_vSuivant For Output As #1    ' Ouvre le fichier en écriture.
            Print #1, "1"
            Close #1
        Else
 
 
            Input #1, vSuivant
            ' Ferme le fichier avant de l'ouvrir à nouveau dans un autre mode.
            Close #1
        End If
 
    End If
 
    'choix du destinataire
    Select Case vSuivant
    Case 1
        MailTransfer.Recipients.add "Destinataire1@toto.fr"
    Case 2
        MailTransfer.Recipients.add "Destinataire2@toto.fr"
    Case 3
        MailTransfer.Recipients.add "Destinataire3@toto.fr"
    End Select
 
 
    If vSuivant = 3 Then
        vSuivant = 1
    Else
        vSuivant = vSuivant + 1
    End If
 
    Open Path_vSuivant For Output As #1    ' Ouvre le fichier en écriture.
    Print #1, vSuivant
    Close #1
 
    MailTransfer.Display
    '    MailTransfer.Send
    Set Mymail = Nothing
 
End Sub

**lillois39** · 13/04/2016, 15h22

Super, merci Oliv-

je vais tester ça ce soir

je pense mettre le fichier vsuivant.txt ailleur que dans tmp pour eviter qu'il soit supprimé

**lillois39** · 13/04/2016, 20h40

Envoyé par Oliv-

Bonjour,
Oui c'est faisable.

Il faut créer une règle avec les conditions de déclenchement et choisir comme action executer un script

et coller ce code dans un module de OUltook

Oliv- merci pour ton code

alors je l'ai testé a l'instant, il fait le travail sauf qu'il ne transfère pas automatiquement les mails..
il attend une action de ma part (cliquer sur envoyer) pour envoyer le mail
j'aurai aimé ne pas intervenir
ps : les mails recu ont des pièces jointes
merci a toi

**Oliv-** · 14/04/2016, 13h02

IL FAUT changer ces 2 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'MailTransfer.Display
 MailTransfer.Send

les pj doivent suivre

**cerede2000** · 14/04/2016, 13h10

Bonjour à vous,

Juste en passant dans le coin, j'aurais opté pour un modulo 3 sur le vSuivant

Du coup le Select Case sur 1, 2, 0 (qui remplace le 3).
Et plus besoin de réécrire dans le fichier à la fin

Tu ouvre le fichier, tu récupère la valeur tu l'incrémente tu la réécris de suite et après tu traite

**lillois39** · 14/04/2016, 22h34

Envoyé par cerede2000

Bonjour à vous,

Juste en passant dans le coin, j'aurais opté pour un modulo 3 sur le vSuivant

Du coup le Select Case sur 1, 2, 0 (qui remplace le 3).
Et plus besoin de réécrire dans le fichier à la fin

Tu ouvre le fichier, tu récupère la valeur tu l'incrémente tu la réécris de suite et après tu traite

Bonjour cerede2000
Merci pour ta contribution.. n'hesite pas a mettre le code complet de ta propostion

je referais un test du script demain

**Oliv-** · 14/04/2016, 22h56

ton pseudo c'est lillois comme un habitant de Lille ?
C'est cool t'es d'min coin ! En fin un qui va pouvoir me payer une bière !

**lillois39** · 15/04/2016, 09h55

Envoyé par Oliv-

ton pseudo c'est lillois comme un habitant de Lille ?
C'est cool t'es d'min coin ! En fin un qui va pouvoir me payer une bière !

je viens de comprendre pourquoi ça ne le lançait pas.. les macros etait desactivéé par defaut.. une petite activation et ça marche mieux..
et ton script marche du tonnerre Oliv-
oui je suis lillois mais en deplacement
une fois remonté, pourquoi pas te faire signe, tu m'a bien depanné sur ce coup la
encore une fois merci

**cerede2000** · 15/04/2016, 10h15

Avec le modulo ça donnerais ça

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
37
38
Sub ScriptForwardEquit(Mymail As MailItem)
'---------------------------------------------------------------------------------------
' Procedure : RepToRec
' Author    : Oliv'
' Date      : 16/04/2008
' Purpose   : script a executer avec une règle pour transférer à 3 personnes
'---------------------------------------------------------------------------------------
    Dim vSuivant As Integer
    Dim MailTransfer As Outlook.MailItem
    Set MailTransfer = Mymail.Forward
 
    Path_vSuivant = "c:\temp\vsuivant.txt"
 
    On Error Resume Next
    'Ouvre le fichier pour aller chercher la prochaine valeur
    Open Path_vSuivant For Input As #1
    Input #1, vSuivant
    Close #1
    If vSuivant = 32767 Then vSuivant = 1 'Evite le dépassement de capacité du Integer ! Tout en respectant l'odre du modulo :)
    'Ouvre le fichier pour ecrire la prochaine valeur
    Open Path_vSuivant For Output As #1
    Print #1, vSuivant + 1
    Close #1
 
    'choix du destinataire
    Select Case vSuivant Mod 3
    Case 0
        MailTransfer.Recipients.Add "Destinataire1@toto.fr"
    Case 1
        MailTransfer.Recipients.Add "Destinataire2@toto.fr"
    Case 2
        MailTransfer.Recipients.Add "Destinataire3@toto.fr"
    End Select
 
    MailTransfer.Display
    '    MailTransfer.Send
    Set Mymail = Nothing
End Sub

Dommage qu'on ne puisse pas ouvrir le fichier en Input/Output en une seule fois dans passer par FSO

Faire suivre les mails en fonction de l'objet et de façon équitable [OL-2010]

VBA Outlook

Discussions similaires

Partager

Partager