Category: ASP General

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 = ""
strHTML = strHTML & ""
strHTML = strHTML & ""
strHTML = strHTML & " This is the test HTML message body"
strHTML = strHTML & ""
strHTML = strHTML & ""


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

 

Tags:

ASP

How useful was this post?

Click on a star to rate it!

Average rating / 5. Vote count:

No votes so far! Be the first to rate this post.