Ouverture logiciel de messagerie

Salut a toute et tous

Pour un petit programme que j'utilise (Dont un XLien, m'a aidé) qui sert a envoyer un message avec l'objet, est un petit message cela m'ouvre automatiquement OUTLOOK, comment faire pour que cela passe par mon logiciel de messagerie de mon FAI (W-----O), sans faire de pub,lol

Voici le code du bouton "Copier"

Private Sub cmdCopier_Click()
Dim URLto As String, Message
Dim Arr(), Noms(), a As Integer

'Nom réel du TextBox
Arr = Array("txtUtilisateur", "txtMotDePasse")
'Nom du TextBox afficher dans MsgBox
Noms = Array("Utilisateur", "Mot de passe")
For a = 0 To UBound(Arr)
If Me.Controls(Arr(a)) = "" Then
MsgBox "Le Champ : " & Noms(a) & " est vide !!!", vbExclamation, "ATTENTION"
Me.Controls(Arr(a)).SetFocus
Exit Sub
End If
Next a
Message = MsgBox("Mon adresse ftp est : " & txtAdresseFtp _
& vbCrLf & vbCrLf & "Vous n'avez plus qu'a choisir le destinataire et envoyer votre message." _
& vbCrLf & vbCrLf & "Le logiciel de messagerie par défaut sera OUTLOOK." _
, vbYesNo + vbInformation, "Envoie de l'adresse")
URLto = "mailto:?subject=Mon adresse Ftp&body=Je joint l'adresse Ftp : " & txtAdresseFtp & " Bon téléchargement"
If Message = vbYes Then
ActiveWorkbook.FollowHyperlink Address:=URLto
Else: Exit Sub
End If
Unload Me
End Sub

Merci, G'Claire