Outlook - UserForm - Reply to All

Bonjour,

J'essaye de construire une macro intégrée à ma messagerie Outlook, le but est de générer un maill fonctionnant comme le mode Reply to All de ma messagerie à la différence que le mail générer par ma macro sérait préalablement rempli par un UserFiorm..je ne sais pas si c'est très clair.

Mais en gros au lancement de ma macro j'aimerai que l'USer Form se lance, je le rempli et lorsque je valide un mail se génère sous la forme Reply to All avec les infos de mon UF. Voilà le code que j'ai commencé à faire :

Sub CommandButton1_Click()

Dim Confirmation
Confirmation = MsgBox("Êtes-vous sûr de vouloir envoyer votre demande", vbYesNoCancel, "Attention !")

If Confirmation = vbNo Then
Exit Sub
ElseIf Confirmation = vbCancel Then
Exit Sub
ElseIf Confirmation = vbYes Then

Dim MyDoc1, MyDoc2 As String

MyDoc1 = CheckBox1.Value
MyDoc2 = CheckBox2.Value

    If CheckBox1.Value = True Then
    MyDoc1 = "'mon texte"
    ElseIf CheckBox1.Value = False Then
    MyDoc1 = "" & Replace(MyDoc1, " 'mon texte" & vbCrLf, "")

    End If

    If CheckBox2.Value = True Then
    MyDoc2 = " 'montexte" & vbCrLf
    ElseIf CheckBox2.Value = False Then
    MyDoc2 = "" & Replace(MyDoc2, " 'mon texte" & vbCrLf, "")

    End If

Dim olItem As Outlook.MailItem

    Dim olReply As MailItem ' Reply
    Dim olRecip As Recipient ' Add Recipient

    For Each olItem In Application.ActiveExplorer.Selection
    Set olReply = olItem.ReplyAll
    Set olRecip = olReply.Recipients.Add("Email Address Here") ' Recipient Address
        olRecip.Type = olCC
            olReply.HTMLBody = "Hello"

        olReply.Display

        'olReply.Send

    Next olItem

End If

End Sub