Envoi feuille excel par mail

[DOCOCHE]

Bonjour,

Je souhaite créer une macro me permettant d'envoyer une plage de feuille excel par mail à une adresse fixe.

Si quelqu'un peut m'aider, je l'en remercie vivement.

EXCEL 2003 - MOZILLA THUNDERBIRD

 

[jeanpierre]

Re : Envoi feuille excel par mail

Bonsoir DOCOCHE et Bienvenue sur XLD,

En bas de cette page, dans les cinq discussions similaires, tu devrais déjà trouver quelques éléments de réponses (et pareil sur les discussions issues de ces fils).

Bonne recherche et soirée.

Jean-Pierre

 

[DOCOCHE]

Re : Envoi feuille excel par mail

Merci JeanPierre,

J'ai essayé d'utiliser les discussions indiquées ; cela ne fonctionne pas ou le lien n'existe plus.

Merci d'avoir répondu si vite.
Philippe DOCOCHE

 

[degap05]

Re : Envoi feuille excel par mail

Bonjour,

Tout sur envoi par mail:

Ron's Excel page

 

[UJAP]

Re : Envoi feuille excel par mail

Suite au message de Docoche, j'ai regardé sur le forum et sur le net, car je me posais aussi cette question,

Alors, j'ai trouvé ce code :

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub

Il fonctionne sauf que je voudrai rajouter un message dans le corps de e-mail,

J'ai rajouté ceci dans le code (suite à mes recherches):

Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="tartem.pion@mimi.com", _
Subject:="Test envoi classeur", _
Body:="texte", _
ReturnReceipt:=True
End Sub

mais le code ne fonctionne plus,

Avez-vous une idée pour m'aider à avancer ?

Merci,

 

[sri75]

Re : Envoi feuille excel par mail

Par cette commande il est impossible de rajouter un texte dans le corps du mail.

Si tu utilise outlook aucun probleme :

Sub Envoi_mail()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

ActiveWorkbook.Activate

Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = "TOTO@wanadoo.fr"
.CC = ""
.Subject = "Envoi du mail 2008"
.Body = "texte texte"
.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

'fait partir le mail
.Send
'met le mail dans les brouillons
'.Display

End With

End Sub

 

[UJAP]

Re : Envoi feuille excel par mail

ET on peut adapter à lotus ?

Merci,

 

[DOCOCHE]

Re : Envoi feuille excel par mail

J'ai trouvé cela :

Sub Envoi()
EnvoiEmail Adresse:=Range("B1"), _
Objet:=Range("B2"), _
Corps:=Range("B3"), _
PJ:=Range("B4"), _
Bcc:=Range("B6")
End Sub

Sub EnvoiPlageParCopierColler()
' copie la plage à envoyer
Range("A16:I36").Copy
' le collage se fait dans la procédure EnvoiMail
' si l'argument Collage est défini à True
EnvoiEmail Adresse:=Range("B1"), _
Objet:=Range("B2"), _
Corps:=".... Texte à envoyer .... :", _
Bcc:=Range("B6"), _
Collage:=True
End Sub

Cela fonctionne mais je ne suis pas entièrement satisfait.
Pas de problème avec Thunderbird en envoyant en HTML seulement mais la mise en page n'est pas conservée avec Outlook. Y-a-t-il une solution ?
Merci