Selectionner un message Outlook ouvert en VBA

Bonjour,

J'ai le code suivant, mais je souhaiterais qu'il sélectionne le mail créer car parfois il ne sélectionne pas ce mail et donc ne copie pas l'ensemble des données (le fameux : SendKeys "^v", True)

Voici le code de la fonction :

Function envoi_email()
Dim messagerie As Object, courriel As Object, A$, B$
A = Cells(2, 1).Value
B = Cells(1, 1).Value
    Set messagerie = CreateObject("Outlook.Application")
    Set courriel = messagerie.CreateItem(0)
    'Application.ActiveExplorer.selection
    'courriel.ActiveExplorer.selection
    With courriel
        .To = "toto@domaine.fr; tata@domaine.fr"
        .subject = A
        .cc = B
    End With
    courriel.display
    Application.Wait (Now + TimeValue("0:00:03"))
    SendKeys "^v", True
End Function

Merci par avance

Bonjour,

Petit up

Salutation