mail excel vba

slt

Sub macro_mail()
Adresse = "adresse.email@exceldownload.com"
Sujet = "Défaut sur l'utilisation de " & Application.UserName
Texte = "Merci d'expliquer votre problème ici"
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & Adresse & _
"?subject=" & Sujet & "&Body=" & Texte
End Sub

Sub macro_lien_www()
Dim Link As String
Link = "http://www.excel.downloads.com"
On Error GoTo PasConnect
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Exit Sub
PasConnect:
MsgBox "Impossible d'ouvrir " & Link
End Sub

c'est ca que tu voulait?

jmt0

Euh je comprends pas ou je dois mettre le destinataire en copie du mail ?

re,

Sub macro_mail()
Adresse = "adresse.email@exceldownload.com" -> adresse du destinataire
Sujet = "Défaut sur l'utilisation de " & Application.UserName -> sujet du mail
Texte = "Merci d'expliquer votre problème ici" -> Le texte que tu veut faire apparaitre dans le mail
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & Adresse & _
"?subject=" & Sujet & "&Body=" & Texte
End Sub

Tu peut ne pas remplir "sujet" et "texte" c'est des options.

Je t'avais l'autre partie au cas ou tu veuille au si un lien pour le net

Bonjour jules08 et le forum,

En reprenant l'exemple de jmt0 :

Sub macro_mail()
(...)
Copie = "destinataire.copie@quelquepart.com"
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & Adresse & _
"?subject=" & Sujet & "&Body=" & Texte & "&Cc=" & Copie
End Sub


Slts

wally

Bonjour,

Ou as tu trouvé les infos concerant les paramètres a passer à msimn.exe .
Je n'ai pas trouvé de documentation sur cet executable (du type param attendu, option, code retour).

"/mailurl:mailto:" -> je ne connaissais pas les ":" (deux points) comme étant des commande DOS.
Que sont mailurl et mailto pour msimn ? des variables, des paramètres ?

Merci.