Erreur d'exécution 1004 : La méthode 'SendMail' de l'objet '_workbook' a échoué
Comment faire ? Merci.
Bonjour
Comme cela
Comment envoyer une feuille dans un message en VBA?(testé avec Excel 2003)
Sub MailFeuilleOE()
Dim Dest, Sujt, Msg As String
Dim RepName
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:temptest.xls"
RepName = "C:temptest.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
Daniel
--
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"Pat" <moi@wanadoo.fr> a écrit dans le message de news:
44faac23$0$25923$ba4acef3@news.orange.fr...
Bonjour,
J'essaie, sous Excel 2003, d'envoyer la feuille active d'un classeur
ouvert par mail avec SendMail, mais sans succès :-(
