CDOS from Acccess

[SHIPP]

I am using the following code to attempt to send an email message.

Set MailObj = CreateObject("CDO.Message")
MailObj.To = "(e-mail address removed)"
MailObj.From = "(e-mail address removed)"
MailObj.Subject = "Test message"
Text = "Thank you for your submission." & Chr(13) & Chr(10)
Text = Text & "Your request is being processed." & Chr(13) & Chr(10)
Text = Text & "Please allow 48 hours for a response."
MailObj.TextBody = Text
MailObj.Send
Set MailObj = Nothing


It errors out on the MailObj.Send line. The error is....

the SendUsing Configuration value is invalid.


Any help is greatly appreciated. Thank you.

 

[Ken Warthen]

Shipp,

You might want to try using

DoCmd.SendObject

As long as you're not using any attachments it will probably meet your
needs. If you use Outlook as your email client you can create more
sophisticated emailing from within Access.

Ken Warthen
(e-mail address removed)