Sendmail

Bonjour Laurent,

Voici l'adresse d'un site d'un MVP anglophone -Ron de Bruin- avec une multitude d'exemple de codes sur le sujet :


http://www.rondebruin.nl/sendmail.htm


Salutations!




"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news: elWpipKLFHA.1948@TK2MSFTNGP14.phx.gbl...
Bonjour,

J'ai une macro pour envoyé une feuille excel directement via Outlook Express
:

ThisWorkbook.Sheets("Feuil1").Copy
ActiveWorkbook.SendMail ("mon_email")

Mais j'ai un message d'erreur

"La méthode 'SendMail' de l'objet '_Workbook' a échoué"

Quelqu'un a-t-il une solution?

Merci

Laurent

Bonjour,
SendMail a quelques difficultés avec 2003 il vaut mieux utiliser:

Sub MailFeuilleOE()
Dim Dest, Sujt, Msg As String
Dim RepName
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:ajetertest.xls"
RepName = "C:ajetertest.xls"
Dest = "dj@free.fr"
Sujt = "Test d'envoi d'une feuille avec Excel"
Msg = "Bonjour, Excel vous envoie une feuille avec OE"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
ActiveWorkbook.Close
End Sub

http://dj.joss.free.fr/web.htm


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm


"Laurent" <Gadeyne.laurent@wanadoo.fr> a écrit dans le message de news:
elWpipKLFHA.1948@TK2MSFTNGP14.phx.gbl...

Bonjour,

J'ai une macro pour envoyé une feuille excel directement via Outlook
Express

:

ThisWorkbook.Sheets("Feuil1").Copy
ActiveWorkbook.SendMail ("mon_email")

Mais j'ai un message d'erreur

"La méthode 'SendMail' de l'objet '_Workbook' a échoué"

Quelqu'un a-t-il une solution?

Merci

Laurent