How to send mail using CDO

Winhost > Programming, error messages and sample code > Sample code
<%
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
Set Flds = objConfig.Fields

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="m##.internetmailserver.net"


Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]"
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"

Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = "[email protected]"
objMessage.From = "[email protected]"
objMessage.Subject = "CDO mail test"
objMessage.fields.update
objMessage.HTMLBody = "This is a test sent from CDO using smtp authentication."
objMessage.Send
%>
 

If you run in to problems using this code, please post in our community forum. Technical support cannot assist with specific coding related issues.
Article ID: 617, , Modified: 2/28/2024 at 3:40 PM

Was this article helpful?

Share this article