ASP 常用的寄件 元件
[CDONTS]
Set mail = Server.CreateObject( "CDONTS.NewMail" )
mail.To = RS.Fields("EMail").Value
mail.From = CMail
mail.Subject = Upload("Tit")
mail.BodyFormat = 0
mail.MailFormat = 0
mail.Body = Content
mail.Send
[CDO]
Set objEmail = CreateObject("CDO.Message")
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "msa.hinet.net"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xx"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xx"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.From = CMail
objEmail.To = RS.Fields("EMail").Value
objEmail.Subject = Upload("Tit")
objEmail.HTMLbody = Content
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail=Nothing
[JMail]
Set JMail = Server.CreateObject("JMail.Message")
JMail.Subject = Upload("Tit")
JMail.C
JMail.Charset = "big5"
JMail.Encoding = "base64"
JMail.ISOEncodeHeaders = False
JMail.Priority = 3
JMail.From = CMail
JMail.AddRecipient RS.Fields("EMail").Value
JMail.silent = true
JMail.Body = Content
JMail.Send("msa.hinet.net")
set JMail = nothing
Set mail = Server.CreateObject( "CDONTS.NewMail" )mail.To = RS.Fields("EMail").Value mail.From = CMail mail.Subject = Upload("Tit")mail.BodyFormat = 0 mail.MailFormat = 0 mail.Body = Content mail.Send[CDO]
Set objEmail = CreateObject("CDO.Message")objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "msa.hinet.net"objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xx"objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xx"objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25objEmail.From = CMailobjEmail.To = RS.Fields("EMail").ValueobjEmail.Subject = Upload("Tit")objEmail.HTMLbody = ContentobjEmail.Configuration.Fields.UpdateobjEmail.SendSet objEmail=Nothing[JMail]
Set JMail = Server.CreateObject("JMail.Message")JMail.Subject = Upload("Tit")JMail.CJMail.Charset = "big5"JMail.Encoding = "base64"JMail.ISOEncodeHeaders = False JMail.Priority = 3JMail.From = CMailJMail.AddRecipient RS.Fields("EMail").ValueJMail.silent = trueJMail.Body = ContentJMail.Send("msa.hinet.net") set JMail = nothing