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

All Pages

Email

ASP

JSP

C#

Web Mail

Windows Plesk

Linux Plesk

PHP

ASP.NET

Persits ASPUpload

Wiki Help

  Page Info My Prefs Log in
This page (revision-4) last changed on 14:25 28-Apr-2007 by Administrator.
 
Page Hit Count: 138

Referring Pages:
...nobody

JSPWiki v2.4.71