Faire suivre les mails en fonction de l'objet

Résolu
lillois39
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016
- 12 avril 2016 à 12:47
lillois39
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016
- 15 avril 2016 à 09:50
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

vb95
Messages postés
2775
Date d'inscription
samedi 11 janvier 2014
Statut
Modérateur
Dernière intervention
30 juin 2022
151
12 avril 2016 à 13:08
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
0
lillois39
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

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

12 avril 2016 à 18:46
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
0
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
13 avril 2016 à 16:38
Est-ce que tu veux faire à partir de Outlook ou Excel ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
13 avril 2016 à 17:09
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

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

13 avril 2016 à 17:09
a partir d'Outlook 2010
0
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
13 avril 2016 à 21:25
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
0
lillois39
Messages postés
7
Date d'inscription
mardi 12 avril 2016
Statut
Membre
Dernière intervention
15 avril 2016

14 avril 2016 à 11:38
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
0
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
14 avril 2016 à 14:33
Ici,
MailTransfer.Display 


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

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

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

15 avril 2016 à 09:50
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 !!
0