Faire suivre les mails en fonction de l'objet [Résolu]

Signaler
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016
-
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016
-
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 !!

12 réponses

Messages postés
2429
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
1 juin 2021
137
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
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

ok merci vb95, c'est noté
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
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.
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

Merci cs_MPi
oui je travaille sous outlook 2010
tu aurais un lien avec un exemple pour commencer ?

j'ai deja quelques pistes ici http://www.mysysadmintips.com/windows/clients/54-ms-outlook-2010-create-email-template-and-assign-a-quick-launch-button

merci
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Est-ce que tu veux faire à partir de Outlook ou Excel ?
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
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

Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

a partir d'Outlook 2010
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
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
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

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:\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
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Ici,
MailTransfer.Display 


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

Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

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... :(
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
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,...
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

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 !!