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
%>

Was this answer helpful?

 Print this Article

Also Read

Modifying an Email Account

Follow these steps to modify your email account : [1] Login to HELM using following information...

Perl

PROBLEM: When you use a Common Gateway Interface (CGI) application with Microsoft Internet...

How can I check my website stats?

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

I have created an FTP user and was able to login but user can't see the home directory in FTP window. Also the user could not transfer files over. What may be the reason?

Cause: New FTP users can not FTP to the Website unless they provide the website name as Remote...

Creating SQL Server DataBase in HELM

i : Login to HELM using your information ii : Click on [ Domains ] iii : Now click on the row...

Powered by WHMCompleteSolution