65.9K
CodeProject 正在变化。 阅读更多。
Home

SMTP 邮件发送

ISIS55
starIconstarIconstarIconstarIcon
emptyStarIcon
starIcon

4.45/5 (11投票s)

2002年3月28日

4分钟阅读

viewsIcon

324161

使用 CDONTS 库进行 SMTP 自动邮件发送的初学者指南。

引言

处理电子邮件是每个活跃网站非常重要的组成部分。 自动化邮件发送非常有用，并且可以有很多用途，例如

  • 在线订单验证。
  • 创建邮件列表，以向客户更新最新新闻/销售信息。
  • 回复软件下载。
  • 等等...

原因可能各不相同，但需求是相同的：您的网站应该能够自动发送电子邮件。这正是您将在本文中学习的内容 - 使用 CDONTS 库发送电子邮件。

重要提示：CDONTS 库仅适用于 NT 用户，不适用于 PWS 用户。

自动邮件回复的重要性

在我们深入研究技术细节之前，我想强调自动邮件回复的重要性。当用户收到来自您网站的电子邮件通知时，他会感觉有人回复了他，他可以与人交谈，这不再仅仅是一个没有结果的销售。 对用户行为的响应给他一种安全感。 自动邮件回复是一个重要的工具 - 请明智地使用它。

开始学习吧！

SMTP 服务

SMTP - 简单邮件传输协议 - 是 NT OS 上的一个服务。 它与 IIS 一起安装（如果您从组件列表中选择它）。

如何知道它是否安装在您的服务器上？很简单。 调用它，看看你是否得到答案！ 从“开始”菜单中选择“开始 > 运行”，然后键入 telnet [ServerName] 25。

Check for the STMP service

当然，用您的服务器名称替换 ServerName。 25 是 SMTP 监听的端口号。

如果已安装，您应该得到类似这样的答案

220-MyServer Microsoft SMTP MAIL ready at
Sun, 24 March 2002 18:12:21 - 0500 Version 5.5.1877.977.9
220 WSMTP Spoken here

如果没有，那么您的服务器上可能没有安装 SMTP。 要安装它，请运行 NT Option Pack 安装，然后选择相应的选项。

CDONTS

CDONTS 库 - NT Server 的协作数据对象，也随 NT Option Pack 一起提供，为通过 SMTP 传递/接收邮件提供了非常有用的对象。 请注意，还有另一个名为 CDO 的库，它更丰富，并提供了更多的选项。 它随 Microsoft Exchange Server 一起提供。 CDONTS 库使用起来更简单，通过它，您可以用几行代码发送邮件。

让我们开始吧！

NewMail 对象

CDONTS 库包含许多对象，但我们将重点关注最简单的对象：NewMail。 它用于快速简单的邮件发送。

让我们快速回顾一下 NewMail 对象的属性

属性 解释
密送 (Bcc) 密件抄送（附加传递地址）
正文 消息正文
BodyFormat 消息格式：0-HTML 1-文本
抄送 (Cc) 抄送（附加传递地址）
ContentBase 消息中文件的基本路径
ContentLocation 消息中文件的相对基本路径
从 发件人地址
Importance 优先级：0 到 3
MailFormat 传递方法：0-Mime 1-Text
主题 消息主题
改为 收件人地址
值 附加消息标题
版本 CDONTS 版本

有 3 个选项可以添加收件人地址

  1. To - 最简单的方法，这是主要收件人地址。
  2. CC - 附加收件人（收件人可以看到还有谁收到了消息）。
  3. BCC - 附加收件人（收件人看不到还有谁收到了消息，看起来就像只发送给他一样）。

现在让我们回顾一下 NewMail 对象的方法

方法 解释
AttachFile 将文件附加到消息
AttachURL 将 URL 附加到消息
发送 发送消息
SetLocaleIDs 为消息设置代码页

前进！

发送邮件！

好的，我们已经走了这么远，现在让我们发送一条消息！

创建 myMail - 一个 NewMail 对象

Set myMail = Server.CreateObject("CDONTS.NewMail")

现在设置消息属性：收件人地址、发件人地址、消息内容、主题等。

myMail.To = "bill_g@yahoo.com"
myMail.Body = "Hey Bill, how come you're using yahoo mail service?"
myMail.From = "faq@your_company.com"
myMail.Subject = "Testing"

将消息格式设置为 MIME（多用途互联网邮件扩展）

myMail.BodyFormat=0

添加文件附件

Call myMail.AttachFile("\\server\bill_photos\bill_wife_nude.jpg", "BILL_WIFE_NUDE.JPG")

发送它！

myMail.Send

现在不要忘记清除对象...

Set myMail=nothing

咔！ 我们完成了。

摘要

那么，到目前为止我们做了什么？

  • 我们讨论了自动邮件回复的重要性。
  • 我们启动并运行了 SMTP 服务。
  • 我们回顾了来自 CDONTS 库的 NewMail 对象。
  • 我们发送了一条简单的消息，但我假设您会改进代码以满足您的需求。

结束吧，伙计们。

© . All rights reserved.