Envoyer un courriel en VBA et choisir l'action rapide de Outlook

Bonjour chère Forum!

Je me posais une question et pouvez-vous peut-être m'aider à y répondre!

J'ai un code VBA qui fonctionne très bien pour envoyer des courriels. Ce qu'il fait c'est qu'il ouvre une nouvelle fenêtre pour envoyer un nouveau courriel. Dans mon Outlook j'ai des actions rapide avec du texte déjà inscrit et qui créer un rappel automatiquement ce qui m'évite de réécrire le même courriel. Ce que je me demandais c'est avec mon code pour envoyer un courriel par Outlook est-ce que c'est aussi possible qu'au lieu d'ouvrir la nouvelle fenêtre pour un nouveau courriel vierge s'il ne pouvait plus tôt ouvrir une nouvelle fenêtre de courriel selon l'actions rapide?

Hello CedL,

As-tu regarder dans la doc Microsoft ? Par exemple ici

A mon avis il est possible, mais sans fichier exemple compliquer de pouvoir t'aider...

Une autre solution consisterais à enregistrer un mail type et de l'ouvrir à la place d'ouvrir un nouveau mail vierge.

A+,
Kilian

Bonjour!

Merci pour ton aide, c'est très apprécié.

Je suis aller voir le lien que tu m'as transmis, ça me donne aussi l'impression que c'est possible. Je n'arrive toute fois pas à comprendre où je dois introduire ce code exactement ni quoi modifier... Voici mon code actuellement :

    If Me.OptionButton1 = True Then

    If MsgBox("Êtes-vous certain de vouloir envoyer un courriel à toutes la sélection de la liste?", vbYesNo, "Confirmation") = vbYes Then

Dim LB1() As Variant
Dim C1 As Integer
Dim L1 As String
Dim ObjOutlook As Object
Dim ObjMessage As Object

With UF_Contact.ListBox1
    For I = 0 To .ListCount - 1
        If .Selected(I) = True Then
            C1 = C1 + 1
            ReDim Preserve LB1(1 To C1)
            LB1(C1) = .Column(5, I)
        End If
    Next I
End With
L1 = Join(LB1, ";")

Set ObjOutlook = CreateObject("Outlook.Application")
Set ObjMessage = ObjOutlook.createitem(0)
ObjMessage.Display
With ObjMessage
    '.To
    '.CC
    .BCC = L1
    .Subject = " | Invitation - "
    '.HTMLBody

End With

Set ObjOutlook = Nothing

Unload Me
UF_Contact.TextBox1.SetFocus

    Else
    End If
End If

Hello,

Si tu as trouvé une solution, n'hésite pas à clôturer le poste.

Autrement :

Comme dit, sans fichier il est plus difficile de t'aider.
Mais à mon avis, essaye déjà en plaçant ceci après

Set ObjMessage = ObjOutlook.createitem(0)
Dim myAction As Outlook.Action
Set myAction = ObjMessage.Actions.Add 

 myAction.Name = "Le nom de ton action"

A+,
Kilian