Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Envoi par mail

2 réponses
Avatar
Milan DESHAYES
Bonsoir,
Je souhaite envoyer par mail selon cette procédure, mais cela ne fonctionne
pas.
Je vous remercie
Milan

Mavar = Sheets("Liste").Range("B1").Offset(ListBox1.ListIndex + 1, 1).Value
ActiveWorkbook.FollowHyperlink _
Address:="mailto:" & Mavar & "", NewWindow:=True

2 réponses

Avatar
Philippe.R
Bonsoir,
Ce lien peut il t'aider ?
http://www.excelabo.net/excel/sortirmail.php#feuillemail
--
Avec plaisir
Philippe.R
"Milan DESHAYES" a écrit dans le message de
news:
Bonsoir,
Je souhaite envoyer par mail selon cette procédure, mais cela ne
fonctionne pas.
Je vous remercie
Milan

Mavar = Sheets("Liste").Range("B1").Offset(ListBox1.ListIndex + 1,
1).Value
ActiveWorkbook.FollowHyperlink _
Address:="mailto:" & Mavar & "", NewWindow:=True



Avatar
Milan DESHAYES
Ok merci beaucoup
Milan

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Ce lien peut il t'aider ?
http://www.excelabo.net/excel/sortirmail.php#feuillemail
--
Avec plaisir
Philippe.R
"Milan DESHAYES" a écrit dans le message de
news:
Bonsoir,
Je souhaite envoyer par mail selon cette procédure, mais cela ne
fonctionne pas.
Je vous remercie
Milan

Mavar = Sheets("Liste").Range("B1").Offset(ListBox1.ListIndex + 1,
1).Value
ActiveWorkbook.FollowHyperlink _
Address:="mailto:" & Mavar & "", NewWindow:=True