Bouton "Envoi mail"

Bonjour à tous,

Dans un UserForm, j'ai un bouton me permettant d'envoyer (théoriquement) un mail dont le code est:

Private Sub Envois_Mail1_Click()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String

'Sélectionne la cellule correspondant à l'adresse mail de la ligne :
If Box10.ListIndex <> -1 Then Cells(Box10.ListIndex + 2, 8).Select
'Le mail est adressé sur la base de la cellule active :
MailAd = ActiveCell

'On peut selectionné une plage de cellule pour effectué un coller dans le mail :
'Range("B8:j32").Select
'Selection.Copy

'On peut mettre une personne en copie en ajoutant une texbox
'Copie = TextBox .Tex  'bien mentionner le n° de la texbox
Subj = "Votre Texte pour l'objet" 'Objet du message automatique mais on peut faire réféence à une TextBox
Msg = Msg & "Bonjour " & Box1.Text & ",%0D%0A %0D%0A" 'Corps du message
Msg = Msg & " Votre texte " & ",%0D%0A %0D%0A" & "Votre prenom ou NOM" & "%0D%0A %0D%0A" 'Corps du message
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & "&Cc=" '& copie
ActiveWorkbook.FollowHyperlink Address:=URLto

Private Sub Frame1_Click()

End Sub

Deux soucis:

- Un message d'erreur:

ERREUR DE COMPILATION:

Membre de méthode ou de données introuvable.

En ligne 6 "ListIndex est surligné en bleu

- Comment demander a ce que soit Outloock qui envoi le message?

Merci pour votre aide

Bonsoir,

Ci joint un fichier qui te permet d'envoyer un mail.

Le code est assez simple.

Cdt

Sam20102

Bonjour Sam20102,

Effectivement, cela fonctionne super bien, mais pas vraiment ce que je recherche.

Je voudrais que le message a envoyer s'affiche afin de pouvoir renseigner le corps du message, mais que l'adresse soit remplie a partir d'une TextBox. Mon code devrai fonctionner sauf qu'il ne fait pas réagir outloock