Pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter, inscrivez-vous gratuitement !

 

  1. #1
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 23
    Points : 10
    Points
    10

    Par défaut Mettre une codification automatique dans l'objet d'un mail

    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

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 407
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 407
    Points : 5 921
    Points
    5 921
    Billets dans le blog
    16

    Par défaut

    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)

  3. #3
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 23
    Points : 10
    Points
    10

    Par défaut

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

  4. #4
    Membre à l'essai
    Femme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    décembre 2016
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : décembre 2016
    Messages : 23
    Points : 10
    Points
    10

    Par défaut

    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

  5. #5
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 407
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 407
    Points : 5 921
    Points
    5 921
    Billets dans le blog
    16

    Par défaut

    SAlut,


    avant End If
    End Sub

    tu peux mettre

Discussions similaires

  1. hibernate mettre a jour une hashmap contenu dans un objet
    Par FuSsA dans le forum Frameworks Web
    Réponses: 0
    Dernier message: 12/08/2015, 09h35
  2. mettre c.EmprunteurId__r.Name dans l'objet d'un mail
    Par max33370 dans le forum Salesforce.com
    Réponses: 3
    Dernier message: 14/11/2014, 14h47
  3. Réponses: 1
    Dernier message: 10/11/2005, 16h02
  4. Insérer une ligne automatiquement dans une autre tab
    Par davyd dans le forum Langage SQL
    Réponses: 10
    Dernier message: 29/03/2005, 17h08
  5. Réponses: 2
    Dernier message: 08/08/2003, 17h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo