excel par mail dans corps de message

[Stephane]

le bonjour au forum.
Voila g dl le pack de Thierry sur les formules vba. SUper !
Croyez vous que ce soit possible dans la macro USF Send Mail de:
au lieu d envoyer une page ou tout le fichier en attachement d un mail, d envoyer une selection de cellules en tant que corps de message ?

j ai essaye de completer les formules a partir de address et subject mais ca foire, alors si qq1 pouvait m aider, ca me rendrait bien service.

Merci d avance.

+++

 

[Roland]

Salut Stephane

Je ne sais si l'instruction SendMail sait faire autre chose qu'envoyer le classeur actif. Parcontre ce programme envoi des mails via OutLook et tu pourra mettre dans la variable texte la concaténation de tes cellules .


'Attribute VB_Name = "MailAvecOutlookExpress"
Sub MailOXpress()
Dim dest$, sujet$, texte$
Application.ScreenUpdating = False
dest = "roland.bachmann@wanadoo.fr"
sujet = "Envoyer un mail depuis Xl sansF"
texte = "Envoyé avec Outlook Express depuis Excel: " & Time()
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte
SendKeys "%s"

End Sub

'modifié par Eric Humeau, mpfe pour envoyer aussi un classeur en pièce jointe
Sub MailOXpress2()
Dim dest$, sujet$, texte$
Dim Rep
Application.ScreenUpdating = False

'Rep est le nom de ton fichier à joindre.
Rep = "c:\test1.xls"
dest = "roland.bachmann@wanadoo.fr"
sujet = "Envoyer un mail depuis Xl avecF"
texte = "Envoyé avec Outlook Express depuis Excel: " & Time()
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & dest & "?subject=" & sujet & "&Body=" & texte, vbMaximizedFocus

'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis
'envoyer.
SendKeys "%I" & "p" & Rep & "~"
SendKeys "%I" & "p" & Rep & "~"
SendKeys "%s"
End Sub



A+ Roland .

 

[Stephane]

Merci a toi Roland pour ces infos.
Je vais essayer de ce pas !