envoi feuil1 par mail

[TOTOTATATITI]

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

 

[niki42]

Bonsoir le forum

alors j'apporte ma modeste contribution à l'édifice

Pour ton problème TOTOTATATITI

Je te donne deux liens

Lien supprimé


Lien supprimé

Si tu as un problème reviens on essaiera de t'aider



@++

 

[niki42]

Bonsoir le forum

alors j'apporte ma modeste contribution à l'édifice

Pour ton problème TOTOTATATITI

Je te donne deux liens

Lien supprimé


Lien supprimé

Si tu as un problème reviens on essaiera de t'aider



@++