inc-email.asp

来自「简介：一个程序小巧而功能强大」· ASP 代码 · 共 40 行

<%
select case Site_Email
	case "CDOSYS"
		Set objCDOMail = Server.CreateObject("CDO.Message")
		Set objCDOCon = Server.CreateObject ("CDO.Configuration") 
		objCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "your.home.org" 
		objCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
		objCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
		objCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
		objCDOCon.Fields.Update 
		
		Set objCDOMail.Configuration = objCDOCon
		objCDOMail.To = emailTo
		objCDOMail.From = emailFrom
		objCDOMail.Subject = emailSubject
		objCDOMail.HtmlBody = emailBody
		objCDOMail.Send()
		
		Set objCDOMail = Nothing
		Set objCDOCon = Nothing
		
	case "CDONTS"
		Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
		objCDOMail.From = emailFrom
		objCDOMail.To = emailTo
		objCDOMail.Subject = emailSubject
		objCDOMail.Body = emailBody
		objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML
		objCDOMail.MailFormat = 0 ' CdoMailFormatMime
		objCDOMail.Send
		Set objCDOMail = Nothing
	case "CHILLIMAIL"
		Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
		objNewMail.To = emailTo
		objNewMail.From = eMailFrom
		objNewMail.Subject = emailSubjext
		objNewMail.Body = emailBody
		objNewMail.Send
end select
%>