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

lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 12 avril 2016 à 12:47 - Dernière réponse : lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention
- 15 avril 2016 à 09:50
VBA Office (Excel, Word ...) Posez votre question Signaler Répondre au sujet
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 !!
Afficher la suite 

13 réponses

Répondre au sujet
vb95 1386 Messages postés samedi 11 janvier 2014Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention - 12 avril 2016 à 13:08
0
Utile
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
Commenter la réponse de vb95
lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 12 avril 2016 à 13:37
0
Utile
ok merci vb95, c'est noté
Commenter la réponse de lillois39
cs_MPi 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 Dernière intervention - 12 avril 2016 à 15:23
0
Utile
1
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.
lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 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
Commenter la réponse de cs_MPi
cs_MPi 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 Dernière intervention - 13 avril 2016 à 16:38
0
Utile
Est-ce que tu veux faire à partir de Outlook ou Excel ?
Commenter la réponse de cs_MPi
cs_MPi 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 Dernière intervention - 13 avril 2016 à 17:09
0
Utile
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

Commenter la réponse de cs_MPi
lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 13 avril 2016 à 17:09
0
Utile
a partir d'Outlook 2010
Commenter la réponse de lillois39
cs_MPi 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 Dernière intervention - 13 avril 2016 à 21:25
0
Utile
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
Commenter la réponse de cs_MPi
lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 14 avril 2016 à 11:38
0
Utile
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
Commenter la réponse de lillois39
cs_MPi 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 Dernière intervention - 14 avril 2016 à 14:33
0
Utile
Ici,
MailTransfer.Display 


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

Commenter la réponse de cs_MPi
lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 14 avril 2016 à 14:35
0
Utile
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... :(
Commenter la réponse de lillois39
cs_MPi 3858 Messages postés mardi 19 mars 2002Date d'inscription 21 novembre 2017 Dernière intervention - 14 avril 2016 à 17:29
0
Utile
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,...
Commenter la réponse de cs_MPi
lillois39 7 Messages postés mardi 12 avril 2016Date d'inscription 15 avril 2016 Dernière intervention - 15 avril 2016 à 09:50
0
Utile
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 !!
Commenter la réponse de lillois39

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.