Fonction"mailto" to dans user form

Re : Fonction"mailto" to dans user form

J'ai trouvé comment générer le mail grace à un poste du Forum. Mais pour le texte du mail comment le placer automatiquement ?
Pour info le code est:
Voilà le code, pour le mail

Private Sub Label6_Click()
Dim Adresse As String, Sujet As String
Adresse = "rbnchris@wanadoo.fr"
Sujet = "LogFoot2002-2003"
ActiveWorkbook.FollowHyperlink "mailto:" & Adresse & "?subject=" & Sujet _
& "&Body="
End Sub

Voilà le code pour l'adresse internet

Private Sub Label8_Click()
Dim Link As String
Link = "http://www.excel-downloads.com/html/French/forum/list.php?f=1"
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End Sub

@ +

Moa

Re : Fonction"mailto" to dans user form

Bon j'avoue que sur ce coup je poste un peu rapidement, il suffit de rentrer le texte derrière body... Mais comment mettre ce texte en forme ?

Merci d'avance

Re : Fonction"mailto" to dans user form

bonsoir


Quel type de mise en forme ?
En attendant, tu trouveras plusieurs exemples dans ce lien :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/


bonne soirée
michel
Microsoft Excel MVP

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

Re : Fonction"mailto" to dans user form

C'est encore moi,
sur le script envoyé tu peux virer :"Dim Adresse As String, Sujet As String", qui s'est glissé là on sait pas pourquoi!