Faire suivre les mails en fonction de l'objetRésolu

Question

Bonjour a tous et a toutes  

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) que je dois faire suivre a  3 collègues 

et actuellement lorsque je recoit le 1er mail, je le transférè manuellement a collègue1 pour traitement
la 2eme a collègue2
la 3eme a collègue3

la 4eme a collègue1
la 5eme a collègue2
la 7eme a collègue3

la 8eme a collègue1
et ainsi de suite..


j'aimerais automatiser ces actions.. les demandes doivent donc etre dispatché de façon equitable entre mes 3 collègues.
Pouvez-vous me dire si c'est facilement realisable ?
si oui, je me met sérieusement au developpement VBA
je vous remercie !!

vb95 · Answer

Bonjour 
tu as ouvert cette discussion dans le forum Visual Basic général
tu aurais dû l'ouvrir sous Visual Basic -VBA vu que tu travailles sous VBA avec Outlook
J'ai modifié la catégorie 
Prends en soin dans les prochains messages que tu ouviras dans le futur

lillois39 · Answer

ok merci vb95, c'est noté

cs_MPi · Answer

Bonjour,

Je dirais que ça peut se faire.
Mais il faudrait stocker le dernier collègue ayant reçu un mail pour conserver le "rang" d'envoi.

Ça pourrait se faire via un bouton dans le ruban, si tu travailles sous 2007 ou plus récent.

cs_MPi · Answer

Est-ce que tu veux faire à partir de Outlook ou Excel ?

cs_MPi · Answer

Un code relativement simple que tu peux modifier selon tes besoins.

http://windowssecrets.com/forums/showthread.php/156624-Outlook-2010-VBA-Code-to-Forward-Email

lillois39 · Answer

a partir d'Outlook 2010

cs_MPi · Answer

Le même code que je t'ai donné peut s'adapter à Outlook.
Il reste la façon de se souvenir à qui tu as envoyé le dernier message. Tu pourrais créer un simple fichier TXT qui contient le nom de cette dernière personne et que tu remplaces à chaque fois

lillois39 · Answer

Alors un developpeur m'a aidé sur un autre forum avec le  code ci-dessous.


Le script fait le boulot 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

si vous voyez l'element a corriger, je suis preneur..
merci 

et finalement c'est outlook 2007 qui sera utilisé et non 2010


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:	emp\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

cs_MPi · Answer

Ici,
MailTransfer.Display 

Ça affiche le mail mais ne l'envoie pas.
Tu peux changer pour Send pour l'envoyer
MailTransfer.Send

lillois39 · Answer

oui j'ai vu ça
mais la, j'ai un autre soucis, j'ai l'impression que l'execution des macros sont desactivé dans ma societé.. donc j'ai peur que je ne vais pas aller loin...  :(

cs_MPi · Answer

Va dans le menu Fichier > Options > Centre de gestion de la confidentialité (à gauche)
Clique le bouton Paramètre du centre.... à droite
Et vérifie si les paramètres des macros et ActiveX... sont acceptés ou non. 

Différentes options sont possibles: Activer avec ou sans avertissement, Désactiver,...

lillois39 · Answer

c'est bien ça cs_MPi
j'ai activé les macros dans les options et desormais ça marche nikel
le script fait egalement ce qui est demandé
je te remerci !!

Faire suivre les mails en fonction de l'objet

12 réponses

Votre réponse

Discussions similaires