envoyer un feuille par mail

[Bruno]

Bonjour à tous,

Je veux envoyer un feuille excel par e-mail avec Outlook 2000 mais je n'arrive pas à mettre un message.

Sub Envoie()

ActiveWorkbook.SendMail Recipients:="Adresse", Subject:="Sujet", Body:="Message"

End Sub

Merci a tous de votre aide.

Bonne fin de journée

Bruno

 

[JEAN MICHEL]

bonjour a tous

j'utilise ce code trouvé sur ce forum (merci à l'auteur)

Sub envoiMailEtFeuilleActive()
ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub

 

[Bruno]

Bonjour a tous,

Merci jean michel de ta reponse, mais ce que je veux c'est mettre une texte en A1 par exemple et que cela face le corp de mon message.

Merci encore;

Bonne journée a tous