Mettre une codification automatique dans l'objet d'un mail

**Kaytilou** · 14/09/2018, 01h54

Bonsoir,
Je cherche une macro VBA dans Outlook (novice sur VBA Outlook, moins sur Excel :-)) qui me permettrait de mettre automatiquement une codification dans l'objet du mail. Je m'explique:

Les codes de diffusion ci-dessous en gras permettent à chaque destinataire de gagner du temps lors de la réception d’un mail. Cela permet aussi à l’expéditeur de clarifier sa demande. Des codes simples à mettre en œuvre pour un résultat impactant :

[AR] + objet du mail => action requise
[LR] + objet du mail => lecture requise
[RR] + objet du mail => réponse requise
[PVI] + objet du mail => pour votre information
[URGENT] + objet du mail => urgent
[IMPORTANT] + objet du mail => important

Le processus serait :

Solution 1 : Avoir un raccourci clavier (différent par codification) permettant d'ouvrir un nouveau message dans Outlook, incluant ma signature et automatiquement le code de diffusion entre [] (voir codification ci-dessus). A moi de rajouter ensuite l'objet du mail

ou

Solution 2 : Ouvrir un nouveau message avec signature et en cliquant sur une touche de fonction, préalable associée à une macro, définir le code de diffusion entre [] (voir codification ci-dessus) répondant à mon besoin. A moi de rajouter ensuite l'objet du mail

Merci pour votre aide

**Oliv-** · 17/09/2018, 09h43

Bonjour,

C'est sans doute mieux de tester lorsque tu cliques sur Envoyer.

à mettre dans ThisOutlookSession

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
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'---------------------------------------------------------------------------------------
' Procedure : Application_ItemSend
' Author    : OLiv-
' Purpose   :
'---------------------------------------------------------------------------------------
 
' on verifie que c'est un mail
    If Not Item.Class = olMail Then Exit Sub
 
    If InStr(1, Item.Subject, "[") = 0 Then
 
        Choix = InputBox("1-[AR] action requise" & vbCr & "2-[LR] lecture requise" & vbCr & "3-[RR]réponse requise" & vbCr & _
                         "4-[PVI] pour votre information" & vbCr & "5-[URGENT] urgent" & vbCr & "6-[IMPORTANT] important", "Voulez-vous ajouter un code ?")
        If Choix <> "" Then
 
            Item.Subject = Choose(Choix, "[AR]", "[LR]", "[RR]", "[PVI]", "[URGENT]", "[IMPORTANT]") & "-" & Item.Subject
        End If
 
    End If
End Sub

Tu peux optimiser la présentation en utilisant un Userform et des boutons radio.
https://silkyroad.developpez.com/VBA/UserForm/ (c'est pareil pour OUTLOOK)

**Kaytilou** · 17/09/2018, 14h05

Un très grand merci
J'adore :-)

**Kaytilou** · 17/09/2018, 17h15

Oliv
J'ai testé tout l'après midi et je trouve cela top.

J'ai juste un petit bémol, car il n'y a pas la possibilité de visualiser ce que l'on a mis avant envoi. Du coup, on ne peut pas modifier ce qui pourrait quelquefois être un peu "préjudiciable.
Aurais tu une astuce pour cela ? Il faudrait qu'une fois qu'on est renseigner le numéro, l'objet s'affiche et ensuite on envoi
Merci pour ton aide

**Oliv-** · 21/09/2018, 13h44

SAlut,

avant End If
End Sub

tu peux mettre

Code :

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

cancel=true

**Kaytilou** · 03/10/2018, 00h29

Top, merci Oliv, tout fonctionne et j'adore cette macro, vraiment utile au quotidien
A bientôt sur le forum pour de nouvelles aventures

**Kaytilou** · 12/10/2018, 00h19

Bonsoir Oliv,

J'ai retravaillé la macro afin de la rendre plus fonctionnel en intégrant de nouvelles données :-) J'ai essayé de mettre des explications par ligne de code et je souhaiterai avoir ton feedback

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
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    'Permet de verifier qu'il s'agit bien d'un mail ouvert. S'il ne s'agit pas d'un mail alors la macro ne s'executera pas
        If Not Item.Class = olMail Then Exit Sub
 
    'Fonction VBA InStr() permet de tester si un texte contient une chaine de caracteres specifiee et si oui, elle permet de savoir ou cette chaine se trouve dans le texte. 
        If InStr(1, Item.Subject, "[") = 0 Then
 
     'Ouverture d'une fenetre contenant les instructions et les codes de diffusion
        Choix = InputBox("Pour rajouter un code de diffusion, entrez le numero correspondant puis valider, sinon cliquer sur la touche Annuler" & vbCr & vbCr & "1- ACTION REQUISE" & vbCr & "2- CONFIDENTIEL" & vbCr & "3- IMPORTANT" & vbCr & _
                         "4- LECTURE REQUISE" & vbCr & "5- PERSONNEL" & vbCr & "6- POUR INFORMATION" & vbCr & "7- R?PONSE REQUISE" & vbCr & "8- URGENT", " Voulez-vous ajouter un code de diffusion ?")
        If Choix <> "" Then
 
     'Apres choix du code de diffusion, integration devant l'objet du mail (Item.Subject)
        Item.Subject = Choose(Choix, "[ACTION REQUISE]", "[CONFIDENTIEL]", "[IMPORTANT]", "[LECTURE REQUISE]", "[PERSONNEL]", "[POUR INFORMATION]", "[R?PONSE REQUISE]", "[URGENT]") & "-" & Item.Subject
        End If
 
    End If
End Sub

Pourrais tu me valider les explications. D'autre part, j'essaye de donner une explication du code
ByVal Item As Object, Cancel As Boolean
mais sans succès.

Merci pour ton aide
Bonne soirée

**Oliv-** · 12/10/2018, 09h33

Bonjour,

ByVal Item As Object, Cancel As Boolean sont des variables d'événements,

item désigne l'élément déclencheur (le mail)
cancel s'il a la valeur true, annule l'événement (ici l'envoi)

avec d'autres événements il peut y avoir d'autres variables

ou
https://docs.microsoft.com/en-us/off...tlook.mailitem
voir events

**Kaytilou** · 12/10/2018, 09h49

Merci Oliv,
J'ai bien compris et je vais étudier le document que tu m'as transmis
Concernant les autres lignes explicatives du code, tu me confirmes que j'ai bien tout compris
Merci à toi

**filou93** · 23/01/2019, 00h21

Bonjour à tous,

Je me suis permis de reprendre votre code et de le modifier en utilisant un userform au lieu de l'inputbox, j'ai presque réussi cela donne sa :

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
Private Sub UserForm_Initialize()
 
ComboBox1.AddItem "[INFO]"
ComboBox1.AddItem "[URGENT]"
 
End Sub
 
Private Sub Recuperation
 
    R = ComboBox1.Text
 
End Sub 
 
Private Sub CommandButton1_Click()
 
    Unload UserForm1
 
End Sub

Là où sa ce complique c'est quand j'essaye de récupérer le R dans ThisOutlookSession, en effet j'ai écris comme sa :

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
Dim R as String
 
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
    If Not Item.Class = olMail Then Exit Sub
 
    If InStr(1, Item.Subject, "[") = 0 Then
 
         UserForm1.Show
 
         Item.Subject = R & "-" & Item.Subject
 
     End If
 
End Sub

Et ça marche pas

Merci pour votre aide

**Oliv-** · 23/01/2019, 09h52

Salut,

tu as 2 façons de faire soit tu ne fermes pas le formulaire (Unload UserForm1) mais tu le masques ( UserForm1.Hide)

et tu utilises le nom du formulaire devant ton ton R

Code :

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

Item.Subject = UserForm1.R & "-" & Item.Subject

soit tu utilises une variable publique (public R as string) en dehors de la procédure.

https://silkyroad.developpez.com/VBA/UserForm/
https://silkyroad.developpez.com/VBA/ControlesUserForm/

**filou93** · 23/01/2019, 10h28

Merci beaucoup ça marche, mais du coup j'ai du déclarer la variable en publique et j'ai du mettre le UserForm en Hide pour que ça marche.

**olivierlvx** · 30/11/2020, 22h59

Envoyé par Oliv-

SAlut,

avant End If
End Sub

tu peux mettre

Code :

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

cancel=true

Bonjour oliv-
Merci beaucoup de tes contributions qui sont très utiles.
Je cherche à utiliser ce type de code pour insérer un préfixe aux mails que je transfère à mes collègues. Mais je souhaiterais aussi avoir le choix, pour certains mails de ne pas changer l'objet du tout. Est-ce possible ? (Avec ce code, on est obligé de choisir parmi les 8 choix et on ne peux pas sortir ou annuler pour ne rien mettre).
J'ai aussi pensé à créer 8 macros à associer à des 8 boutons dans le bandeau d'outlook afin de choisir, au cas par cas, d'appuyer sur le bouton qui correspond au préfixe que je veux insérer sur un courriel ouvert avant de le transférer.
Que conseillerais tu ?
Merci

**Oliv-** · 30/11/2020, 23h26

SAlut
TU peux avoir un userform qui s'affiche à chaque envoi (application_itemsend...) avec en plus un bouton annuler , qui ne change rien.

**olivierlvx** · 30/11/2020, 23h33

Envoyé par Oliv-

SAlut
TU peux avoir un userform qui s'affiche à chaque envoi (application_itemsend...) avec en plus un bouton annuler , qui ne change rien.

Je ne m’y connais pas bien en VBA. Aurais tu la possibilité de me proposer la modification du code plus haut pour ajouter la possibilité d’envoyer le mail sans changement d’objet (si ce n’est au final pas trop compliqué pour toi) ?
Merci !

**Oliv-** · 01/12/2020, 18h22

DE QUEL CODE PARLES TU EXACTEMENT ?

tu peux faire une condition

Code :

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

1
2
3
if UserForm1.R <>"" then
Item.Subject = UserForm1.R & "-" & Item.Subject
end if

le mieux c'est que tu indique dans ton prochain message le code que tu utilises

Mettre une codification automatique dans l'objet d'un mail

VBA Outlook

Discussions similaires

Partager

Partager