Sub SendMailCDO()
On Error Resume Next
Dim Cdo_Message As Object
DoCmd.OutputTo acOutputReport, "MonEtat",=20
acFormatHTML, "C:\MonEtat.htm"
Set Cdo_Message =3D CreateObject("CDO.Message")
With Cdo_Message
.To =3D "recep@domaine.fr"
.Subject =3D "Sujet"
.TextBody =3D "Corp"
.AddAttachment ("C:\MonEtat.htm")
.send
End With
Set Cdo_Message =3D Nothing
If Dir("C:\MonEtat.htm") <> "" Then=20
Kill "C:\MonEtat.htm"
End Sub=20
La r=E9f=E9rence CDO est coch=E9e.
Mais il n'y a pas de r=E9ception de mail.
Est-ce qu'il me manque quelque chose?
Marie-Claire
je n'ai pas d'autres idées mais c'est le ME qui me chagrine un peu.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marie-Claire" a écrit dans le message de news: 0ccb01c4fa48$ac9c72e0$ Bonjour, Non, je n'ai pas de pc avec un autre Windows je vais essayer de voir avec mon voisin qui a Windows XP sur son ordinateur. Mais ce qui m'étonne, c'est qu'au travail, sur un pc avec Windows 98 ma toute première version fonctionne (sans CDO), c'est-à dire celle-ci:
Sub SendMailCDO() Dim Cdo_Message As Object DoCmd.OutputTo acOutputReport, "MonEtat", acFormatHTML, "C:MonEtat.htm" Set Cdo_Message = CreateObject("CDO.Message") With Cdo_Message .To = "" .Subject = "Sujet" .TextBody = "Corp" .AddAttachment ("C:MonEtat.htm") .send End With End Sub
Alors que Windows 98 est moins récent que Windows Me C'est pour cette raison que j'avais choisi cette version au lieu de celle que vous m'avez indiqué sur le lien http://users.skynet.be/accesshome/outlook.htm#SendMailCDO J'ai vraiment besoin d'une solution simple en avez-vous une autre et qui fonctionne sur WindowsMe. Je suis peut-être trop exigeante et je sais bien que vous n'êtes pas à mon service, mais je suis mal. Marie-Claire
je n'ai pas d'autres idées mais c'est le ME qui me chagrine un peu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marie-Claire" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 0ccb01c4fa48$ac9c72e0$a301280a@phx.gbl...
Bonjour,
Non, je n'ai pas de pc avec un autre Windows je vais
essayer de voir avec mon voisin qui a Windows XP sur son
ordinateur.
Mais ce qui m'étonne, c'est qu'au travail, sur un pc avec
Windows 98 ma toute première version fonctionne (sans
CDO), c'est-à dire celle-ci:
Sub SendMailCDO()
Dim Cdo_Message As Object
DoCmd.OutputTo acOutputReport, "MonEtat",
acFormatHTML, "C:MonEtat.htm"
Set Cdo_Message = CreateObject("CDO.Message")
With Cdo_Message
.To = "recep@domaine.fr"
.Subject = "Sujet"
.TextBody = "Corp"
.AddAttachment ("C:MonEtat.htm")
.send
End With
End Sub
Alors que Windows 98 est moins récent que Windows Me
C'est pour cette raison que j'avais choisi cette version
au lieu de celle que vous m'avez indiqué sur le lien
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
J'ai vraiment besoin d'une solution simple en avez-vous
une autre et qui fonctionne sur WindowsMe.
Je suis peut-être trop exigeante et je sais bien que vous
n'êtes pas à mon service, mais je suis mal.
Marie-Claire
je n'ai pas d'autres idées mais c'est le ME qui me chagrine un peu.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marie-Claire" a écrit dans le message de news: 0ccb01c4fa48$ac9c72e0$ Bonjour, Non, je n'ai pas de pc avec un autre Windows je vais essayer de voir avec mon voisin qui a Windows XP sur son ordinateur. Mais ce qui m'étonne, c'est qu'au travail, sur un pc avec Windows 98 ma toute première version fonctionne (sans CDO), c'est-à dire celle-ci:
Sub SendMailCDO() Dim Cdo_Message As Object DoCmd.OutputTo acOutputReport, "MonEtat", acFormatHTML, "C:MonEtat.htm" Set Cdo_Message = CreateObject("CDO.Message") With Cdo_Message .To = "" .Subject = "Sujet" .TextBody = "Corp" .AddAttachment ("C:MonEtat.htm") .send End With End Sub
Alors que Windows 98 est moins récent que Windows Me C'est pour cette raison que j'avais choisi cette version au lieu de celle que vous m'avez indiqué sur le lien http://users.skynet.be/accesshome/outlook.htm#SendMailCDO J'ai vraiment besoin d'une solution simple en avez-vous une autre et qui fonctionne sur WindowsMe. Je suis peut-être trop exigeante et je sais bien que vous n'êtes pas à mon service, mais je suis mal. Marie-Claire
