Bonjour à tous,
J'ai trouvé sur le site cette façon de faire pour envoyer un courriel (windows live mail).
Sub Courriel()
Dim C
Dim Adres$, Msg$, Sujet$, URLto$
Sheets("Infos (2)").Select
C = Range("l1").Value
Sujet = "Classement"
Msg = "Bonjour à tous, %0D%0A %0D%0A" & "Voici le classement. %0D%0A %0D%0A" & "Bonne semaine. %0D%0A %0D%0A %0D%0A" & "Michel"
URLto = "mailto:" & "?subject=" & Sujet & "&bcc=" & C & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub
Cela fonctionne très bien. Toutefois, j'aimerais insérer via ce programme un lien hypertexte dans le corps du message (genre bleu - quand on clique sur, cela nous envoie vers le lien web).
Merci de m'aider,
Michel
J'ai trouvé sur le site cette façon de faire pour envoyer un courriel (windows live mail).
Sub Courriel()
Dim C
Dim Adres$, Msg$, Sujet$, URLto$
Sheets("Infos (2)").Select
C = Range("l1").Value
Sujet = "Classement"
Msg = "Bonjour à tous, %0D%0A %0D%0A" & "Voici le classement. %0D%0A %0D%0A" & "Bonne semaine. %0D%0A %0D%0A %0D%0A" & "Michel"
URLto = "mailto:" & "?subject=" & Sujet & "&bcc=" & C & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
DoEvents
End Sub
Cela fonctionne très bien. Toutefois, j'aimerais insérer via ce programme un lien hypertexte dans le corps du message (genre bleu - quand on clique sur, cela nous envoie vers le lien web).
Merci de m'aider,
Michel