Microsoft Access Not Sending E-Mails

[Aharon Koss]

I wrote a program in microsoft access to send a report via e-mail. The
e-mail works great when I run the computer from a session on my
server. However, when I auto schedule the job to run the access
program fails to send the e-mail. When I check the logs of the server
I get DCOM errors. Does anybody know how to fix this problem? Here's a
copy of the program.

Private Sub YouveGotMail()

Dim TheMessage As String

TheMessage = "Active Requests As Of " & _
FormatDateTime( Now(), vbgeneraldate)

Dim objMailDim As Object

Set objMail = Outlook.CreateObject(CDONTS.NewMail)
objMail.To = "ak***@chw.edu"
objMail.From = "ak***@chw.edu"
objMail.Subject = TheMessage
objMail.Body = TheMessage
objMail.Attach = "T:\New Folder\Remedy Data\ActiveTasks.xls"
objMail.Send

End Function
My references include IIS New Mail and Microsoft Outlook.

Any help would be appreciated.

Thank you.

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

I'm not sure about the statement:

Set objMail = Outlook.CreateObject(CDONTS.NewMail)

"Outlook" before the CreateObject() function is unknown to me, and, the
ActiveX object name should be delimited by double-quotes. E.g.:

Set objMail = CreateObject("CDONTS.NewMail")

=====

About automatically running an Access program from a server: through
research I've found that the Access program has to run in a separate
user's process. IOW, the user logon session has to be running on the
server & then the Access program is automatically run by that user logon
session. I didn't understand what that meant, nor how to implement it,
so I decided to have a [human] user "manually" run the program (only
once a month).

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQX397oechKqOuFEgEQLLBQCfXgk0YYegz0C+UcVaIKBZAg fG+mcAn3Ls
AaJcdyr6A4FQVaErgo7iF4K7
=JKOi
-----END PGP SIGNATURE-----
Aharon Koss wrote:

I wrote a program in microsoft access to send a report via e-mail. The
e-mail works great when I run the computer from a session on my
server. However, when I auto schedule the job to run the access
program fails to send the e-mail. When I check the logs of the server
I get DCOM errors. Does anybody know how to fix this problem? Here's a
copy of the program.

Private Sub YouveGotMail()

Dim TheMessage As String

TheMessage = "Active Requests As Of " & _
FormatDateTime( Now(), vbgeneraldate)

Dim objMailDim As Object

Set objMail = Outlook.CreateObject(CDONTS.NewMail)
objMail.To = "ak***@chw.edu"
objMail.From = "ak***@chw.edu"
objMail.Subject = TheMessage
objMail.Body = TheMessage
objMail.Attach = "T:\New Folder\Remedy Data\ActiveTasks.xls"
objMail.Send

End Function
My references include IIS New Mail and Microsoft Outlook.

[Pieter Linden]

ak***@chw.edu (Aharon Koss) wrote in message news:<a3**************************@posting.google. com>...

I wrote a program in microsoft access to send a report via e-mail. The
e-mail works great when I run the computer from a session on my
server. However, when I auto schedule the job to run the access
program fails to send the e-mail. When I check the logs of the server
I get DCOM errors. Does anybody know how to fix this problem? Here's a
copy of the program.

Private Sub YouveGotMail()

Dim TheMessage As String

TheMessage = "Active Requests As Of " & _
FormatDateTime( Now(), vbgeneraldate)

Dim objMailDim As Object

Set objMail = Outlook.CreateObject(CDONTS.NewMail)
objMail.To = "ak***@chw.edu"
objMail.From = "ak***@chw.edu"
objMail.Subject = TheMessage
objMail.Body = TheMessage
objMail.Attach = "T:\New Folder\Remedy Data\ActiveTasks.xls"
objMail.Send

End Function
My references include IIS New Mail and Microsoft Outlook.

You don't need the Outlook reference at all. You need the CDONTS
library registered. It should read something like

set objMail = CONTS.NewMail