CDOSYS Sample Email Code

<%
Dim ObjSendMail
Dim iConf
Dim Flds
 
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
 
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
 
'**** Path below may need to be changed if it is not correct
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
 
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = "abc@abc.com"
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = "xyz@xyz.com"
 
' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"
 
ObjSendMail.Send
 
Set ObjSendMail = Nothing
%>

  • 1 Users Found This Useful
Was this answer helpful?

Related Articles

Frontpage Editing

QUESTION ------------------------------------------------------ How frontpage could be used to...

How can I check my website stats?

You can view Awstats only if it is enabled in your account. First, log into HELM via...

MS Access DSN Connection Example

<% set rs=Server.CreateObject("ADODB.Recordset") db="DSN=MyDSN;UID=;PWD=;" SQL = "SELECT *...

Adding new domain in HELM [ Resellers Only ]

[1] Login to HELM [ Using your reseller login information ] [2] Click on Users [3] Click on Add...

I get a IISPassword error HTTP ERROR 500 when I try to view my site.

The reason you are seeing this is generally because you have a .htaccess file in your directory....

Powered by WHMCompleteSolution