October 15th, 2008 by Gabriel
Here is CDONTS mail script :-
—————————
<%
sch = “http://schemas.microsoft.com/cdo/configuration/”
Set cdoConfig = CreateObject(”CDO.Configuration”)
With cdoConfig.Fields
.Item(sch & “sendusing”) = 2 ‘ cdoSendUsingPort
.Item(sch & “smtpserver”) = “92.48.69.32″ ‘ your smtp server IP address
.update
End With
Set cdoMessage = CreateObject(”CDO.Message”)
With cdoMessage
Set .Configuration = cdoConfig
.From = “supp0rt24×7@gmail.com”
.To = “supp0rt24×7@gmail.com”
.Subject = “Sample CDO Message”
.TextBody = “This is a test for CDO.message”
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
October 15th, 2008 by Gabriel
Here is CDOSYS mail script :-
—————————
<%
‘CDOSYS Configuration
Set oMail = Server.CreateObject(”CDO.Message”)
Set iConf = Server.CreateObject(”CDO.Configuration”)
Set Flds = iConf.Fields
iConf.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
iConf.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/smtpserver”) = “localhost”
‘Note use “localhost” If mail is routed from same server.
‘Use Server IP like “203.90.78.221″ if Domain has MX record having IP “203.90.78.221″ OR Mails are routed from that IP
iConf.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 10
iConf.Fields.Item(”http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
iConf.Fields.Update
Set oMail.Configuration = iConf
oMail.To = “supp0rt_24×7@yahoo.com”
oMail.From = “supp0rt_24×7@yahoo.com”
oMail.Subject = “Script TEST.”
‘If message body is in HTML FORMAT
oMail.BodyPart.ContentTransferEncoding = “quoted-printable”
oMail.HTMLBody = HTML
oMail.Send
Set iConf = Nothing
Set Flds = Nothing
%>
<html>
Message Sent !!!
</html>
