T
TOTOTATATITI
Guest
bonjour à tous,
quelqu'un aurait-il une macro pour envoyer toute la feuil1 par mail via un bouto, please....
j'ai bien le début du code mais il me manque la fin celle qui permet de dire que je veux envoyer la feuil1
d'avance merci
Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = 'titi@toto.fr'
sujet = 'trucmuch'
texte = ????????????????????????????????????????????
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & '/mailurl:mailto:' & dest & '?subject=' & sujet & '&Body=' & texte
End Sub
Private Sub CommandButton1_Click()
Call MailOXpress
End Sub
quelqu'un aurait-il une macro pour envoyer toute la feuil1 par mail via un bouto, please....
j'ai bien le début du code mais il me manque la fin celle qui permet de dire que je veux envoyer la feuil1
d'avance merci
Sub MailOXpress()
Dim dest$, sujet$, texte$
Dim cell As Range
Application.ScreenUpdating = False
dest = 'titi@toto.fr'
sujet = 'trucmuch'
texte = ????????????????????????????????????????????
Shell 'C:\\Program Files\\Outlook Express\\msimn.exe ' & '/mailurl:mailto:' & dest & '?subject=' & sujet & '&Body=' & texte
End Sub
Private Sub CommandButton1_Click()
Call MailOXpress
End Sub