Sending e-mails using ASP and CDOSYS - sample code:
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->
NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -->
<%
Dim ObjectSendMail
Dim Conf
Dim Fields
Set ObjectSendMail = Server.CreateObject("CDO.Message")
Set Conf = Server.CreateObject("CDO.Configuration")
Set Fields = Conf.Fields
With Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "localhost"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
Dim ObjectSendMail
Dim Conf
Dim Fields
Set ObjectSendMail = Server.CreateObject("CDO.Message")
Set Conf = Server.CreateObject("CDO.Configuration")
Set Fields = Conf.Fields
With Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "localhost"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Item(cdoSMTPAuthenticate)
= cdoBasic
.Item(cdoSendUserName) = "USERACCOUNT"
.Item(cdoSendPassword) = "PASSWORD"
.Update
End With
Set ObjectSendMail.Configuration = Conf
Set ObjectSendMail.Configuration = Conf
ObjectSendMail.Subject = "My message subject"
ObjectSendMail.From = "you@yourdomain.com"
ObjectSendMail.To = "someone@domain.com; somebody@domain.com"
ObjectSendMail.TextBody = "This is a plain text email"
ObjectSendMail.Send
Set ObjectSendMail = Nothing
Set Conf = Nothing
Set Fields = Nothing
.Item(cdoSendUserName) = "USERACCOUNT"
.Item(cdoSendPassword) = "PASSWORD"
.Update
End With
Set ObjectSendMail.Configuration = Conf
Set ObjectSendMail.Configuration = Conf
ObjectSendMail.Subject = "My message subject"
ObjectSendMail.From = "you@yourdomain.com"
ObjectSendMail.To = "someone@domain.com; somebody@domain.com"
ObjectSendMail.TextBody = "This is a plain text email"
ObjectSendMail.Send
Set ObjectSendMail = Nothing
Set Conf = Nothing
Set Fields = Nothing
