Asp Email using CDONTS

最新推荐文章于 2019-01-08 08:52:28 发布

原创最新推荐文章于 2019-01-08 08:52:28 发布 · 1k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#email #asp #html #service #encoding

ASP / .NET 专栏收录该内容

61 篇文章

订阅专栏

本文介绍了如何利用CDONTS组件从ASP页面发送文本、HTML格式邮件及附件，并实现抄送功能。

Using the CDONTS component to send email from ASP pages.

Many ASP programmers want to now know to do this and with the arrival of IIS4 and the SMTP service of Option Pack 4 it is now fairly easy. There is a component that is made available after the server installation of SMTP service. It is called CDONTS and it makes sending email rather easy. Setting up the SMTP service properly is up to you. It is fairly self explanatory and I have never had any problems installing it. Any quality ISP's who offer ASP hosting should already have this set up on their servers.

The following three examples should give you the basic idea and get you started.

Using CDONTS to send a text based email message.

<%
 Dim MyBody
 Dim MyCDONTSMail
%>

<%
 Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
 MyCDONTSMail.From= "somebody@nowhere.com"
 MyCDONTSMail.To= "nobody@nowhere.com"
 MyCDONTSMail.Subject="This is a Test"
 MyBody = "Thank you for ordering that stuff" & vbCrLf
 MyBody = MyBody & "We appretiate your business" & vbCrLf
 MyBody = MyBody & "Your stuff will arrive within 7 business days"
 MyCDONTSMail.Body= MyBody
 MyCDONTSMail.Send
 set MyCDONTSMail=nothing
%>

Using CDONTS to send a HTML based email message.

You'll get the general idea..notice how you have to add extra double quotes inside the HTML. You can use any valid HTML. Just make sure you link the images back to your webserver so that the recipient doesn't get a broken image. If the recipient's email program doesn't support HTML this is not always a good way to send email, but most do in my experience and if they don't they will still get the message... it will just look kinda strange.

<%
 Dim MyCDONTSMail2
 Dim HTML
 Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
 HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
 HTML = HTML & "<html>"
 HTML = HTML & "<head>"
 HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
 HTML = HTML & "</head>"
 HTML = HTML & "<body bgcolor=""FFFFFF"">"
 HTML = HTML & ""
 HTML = HTML & "Name Of Store "
 HTML = HTML & "Incoming Customer Order"
 HTML = HTML & "Bla Bla Bla Bla Bla"
 HTML = HTML & "</body>"
 HTML = HTML & "</html>"
 MyCDONTSMail2.From= "somebody@somewhere.com"
 MyCDONTSMail2.To="nobody@somewhere.com"
 MyCDONTSMail2.Subject="Incoming Customer Order"
 MyCDONTSMail2.BodyFormat=0
 MyCDONTSMail2.MailFormat=0
 MyCDONTSMail2.Body=HTML
 MyCDONTSMail2.Send
 set MyCDONTSMail2=nothing
%>

Using CDONTS to send a file attachment and have a Carbon Copy Recipient.

<%
 Dim MyBody2
 Dim MyCDONTSMail3
%>

<%
 Set MyCDONTSMail3 = CreateObject("CDONTS.NewMail")
 MyCDONTSMail3.From= "somebody@nowhere.com"
 MyCDONTSMail3.To= "nobody@nowhere.com"
 MyCDONTSMail3.Cc="nobody2@nowhere.com"
 MyCDONTSMail3.Subject="This is a Test"

 MyCDONTSMail3.AttachFile Server.MapPath("/somedirectory/bla.txt")
 ' or you could specify the path exactly if you knew it like below
 'MyCDONTSMail3.AttachFile ("C:/inetpub/wwwroot/somedirectory/bla.txt")

 MyBody2 = "Thank you for ordering that stuff" & vbCrLf
 MyBody2 = MyBody2 & "We appretiate your business" & vbCrLf
 MyBody2 = MyBody2 & "Your stuff will arrive within 7 business days"
 MyCDONTSMail3.Body= MyBody2
 MyCDONTSMail3.Send
 set MyCDONTSMail3=nothing
%>

When sending an attachment this is just a very simple example. There are certain encoding options and file type settings that you may also want to set.