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