Re : Fonction"mailto" to dans user form
Salut ami,
Oui, je vois ce que tu veux dire. Voici comment mettre en forme le corps du texte (body) avec espaces (en utilisant Space(XXX)) et retours de ligne ("%0A"). Attention c'est un zéro, pas un bête "O". Voici un exemple:
Private Sub email1_Click()
Dim Adresse As String, Sujet As String
If Mail1.Value = "" Then Exit Sub
Sujet = "Documentation"
Body = "Bonjour" & Space(1) & Civ1.Value & Space(1) & Pren1.Value & Space(1) & Nom1.Value
body2 = "Suite à notre conversation téléphonique "
ActiveWorkbook.FollowHyperlink "mailto:" & Mail1.Value & "?subject=" & Sujet _
& "&Body=" & Body & "%0A" & body2
End Sub
Alors, heureux ? (...très heureux!) faut j'arrête les pubs!
Amicalement