Send email using IIS7 ASP
Friday, November 21st, 2008 | Author: ren
Don’t need to install 3rd party component, sample script:
<!–
METADATA
TYPE=“typelib”
UUID=“CD000000-8B95-11D1-82DB-00C04FB1625D”
NAME=“CDO for Windows 2000 Library”
–>
<%
Set cdoConfig = CreateObject(“CDO.Configuration”)
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = “mailserv.cuhk.edu.hk”
.Update
End With
Set cdoMessage = CreateObject(“CDO.Message”)
With cdoMessage
Set .Configuration = cdoConfig
.From = “74114@baf.msmail.cuhk.edu.hk”
.To = “lee.henry@gmail.com”
.CC = “henrylee@cuhk.edu.hk”
.BCC = “henry@aldus.net”
.Subject = “Sample CDO Message”
.TextBody = “This is a test for CDO.message”
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.write “<HTML><head><title>A message has been sent.</title></head><body>A message has been sent.</body></HTML>”
%>
METADATA
TYPE=“typelib”
UUID=“CD000000-8B95-11D1-82DB-00C04FB1625D”
NAME=“CDO for Windows 2000 Library”
–>
<%
Set cdoConfig = CreateObject(“CDO.Configuration”)
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = “mailserv.cuhk.edu.hk”
.Update
End With
Set cdoMessage = CreateObject(“CDO.Message”)
With cdoMessage
Set .Configuration = cdoConfig
.From = “74114@baf.msmail.cuhk.edu.hk”
.To = “lee.henry@gmail.com”
.CC = “henrylee@cuhk.edu.hk”
.BCC = “henry@aldus.net”
.Subject = “Sample CDO Message”
.TextBody = “This is a test for CDO.message”
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
Response.write “<HTML><head><title>A message has been sent.</title></head><body>A message has been sent.</body></HTML>”
%>
Category: Internet / Networking |
Leave a Comment