Visual Basic 6中发送邮件的新方法

最新推荐文章于 2022-05-06 10:29:37 发布

tripofdream

最新推荐文章于 2022-05-06 10:29:37 发布

阅读量1.3k

点赞数

分类专栏： VB 文章标签： basic 服务器 object .net email vb

本文链接：https://blog.csdn.net/tripofdream/article/details/7562

版权

本文介绍了一种在Visual Basic 6中使用新方法发送电子邮件的技术，涵盖了如何集成.NET Framework对象来实现更现代的邮件发送功能。

摘要由CSDN通过智能技术生成

作者：陈刚

用VB6编写发送邮件的程序，有多种E-mail组件可供选择，如MAPIMessages、IIS4.0附带的CDONTS（NTS Collaboration Data Objects）以及许多第三方厂商开发的Email软件等。本文介绍用CDONTS开发VB下的邮件程序方法。

　　1. 确认已安装SMTP服务器

　　首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一个名为cdonts.dll的文件。

　　2. 最简单的邮件发送程序

　　以下是一个最简单的邮件发送程序，它由me@hotmail.net向abc@263.net发出一封标题为“Title”、内容为“Hello”的E-mail：

　　Private Sub cmdSendMail_Click()

　　Dim objMail as Object

　　Set objMail=CreateObject("CDFONTS.DLL")

　　ObjMail.Send "me@hotmail.net ", "abc@263.net","Title","Hello"

　　Set objMail=nothing

　　End Sub

　　3. 发送邮件附件

　　如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：

　　Private