KB: Send Email On Plesk Windows 2003 Using ASP

More...

Send Email on Plesk Windows 2003 using ASP#

<%

Dim objMessage
Dim objConf
Dim objFields
Dim strHTML

set objMessage = CreateObject("CDO.Message")
set objConf = CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

objFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
objFields.Update

strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"


Set objMessage.Configuration = objConf
objMessage.To = "[EMAILADDRESS]"
objMessage.From = "[EMAILADDRESS]"
objMessage.Subject = "This is a test CDOSYS message (Sent via Port 25)"
objMessage.HTMLBody = strHTML
objMessage.Send


Set objMessage = Nothing
Set objConf = Nothing
Set objFields = Nothing
%>

Back to ASP