用VB收发电子邮件

1、用VB收发电子邮件 发送和接收电子邮件，对于某些执行特殊任务的应用程序而言，是一个十分有 用的功能。例如，一个监视网络服务器资源使用情况的工具软件，当它发现服务器 的资源使用已经接近事先设定的临界状态时,便可以向系统管理员发送一封告警 的电子邮件，从而使系统管理员能够及时地采取措施，以避免重大事故的出现。在 VB中，应用程序可以通过调用MAPI,实现收发电子邮件的功能。 编制具有收发电子邮件功能的VB程序，必须使用VB4.0以上的版本,因为只 有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件： MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个

2、 Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外，程序必须运 行在采用遵从MAPI的消息系统(如： Microsoft Exchange Microsoft Maik Outlook 等)的环境中。 在开始编程之前，首先需要将MAPI控件加入VB工具箱。具体操作是： 在VB菜单栏中选择Tools菜单项中的Custom Controls命令调出Custom Controls对话框”在其中的”Available Controls列表框中选中”Microsoft MAPI Controls”表项,然后按“0K“命令按钮退出该对话框。此后，工具箱中将新添两个如 图1所示

3、的图标,这就是MAPI会话控件和MAP I消息控件的图标。 PG;图1 MAPI工具图标 下面,笔者将以两个简单的VB程序为例,分别介绍发送邮件和接收邮件的程 序编制方法。 一、邮件发送程序 邮件发送程序的基本处理过程是： 根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法将邮件发 出。编程步骤如下： l.xx 一个VB项目。 2将缺省窗体Forml的Caption属性设置为,发送邮件”。 3将MAPI控件加入VB工具框。 4在Forml中加入一个MAPI会话控件MAPISessionl和一个MAPI消息控件 MAPIMessag eslo 5在Forml中加入三个文本框控件，将

4、它们的Name属性分别设置为 txtSendTo txtS ubject txtMessage,并将 txtMessage 的 Multiline 属性设置为 Trueo这三个文本框控件将分别用于填写邮件的收件人、主题和内容。 6在Forml中加入三个标签控件，将它们的Caption属性分别设置为,收件人 “、”主题“秋呐容舄并将它们放在合适的位置用以标注相应的文本框控件。 7在Forml中加入一个命令按钮控件，将其Caption属性和Name属性分别设 置为”发送”和“cmdSend”。 8将下列代码加入Forml的Form_Load事件： Private Sub Form_Load() M

5、APISessionl.SignOn End Sub 9将下列代码加入Forml的Form_Unload事件： Private Sub Form_Unload(Cancel As Integer) MAPISessionl.SignOff End Sub 10. 将下列代码加入cmdSend的Click事件： Private Sub cmdSend_Click() With MAPIMessagesl .Msgindex = -1 12 5在Forml中加入三个标签控件和一个文本框控件，将三个标签控件的 Name 属性分别设置为 IbIMsgDateReceived、IbIMsgOrigDis

6、playName、 IbIMsgSubject,将文本框控件的Name属性设置为txtMsgNoteText,并将标签控件 的Caption属性和文本框控件的Text属性的内容清空。这四个控件将分别用于 显示邮件的日期、发件人、主题和内容。 6.将txtMsgNoteText控件的Locked属性和Multiline属性设置为 True,ScrollBars 属性设置为 2 VerticaL 7在Forml中再加入四个标签控件用于标注上述四个控件，将它们的Caption 属性分别设置为”日期”、“发件人”、”主题”、”内容”。 8在Forml中加入一个标签控件，将其Name属性设置为 IbIM

7、sgCount,Caption属性设置为,第0封邮件，总计0封邮件”。该控件用于显示 接收的邮件总数以及当前正在处理第几封邮件。 9在Forml中加入三个命令按钮控件，将它们的Name属性分别设置为 cmdPrevious、cmdNext、cmdCloseCaption 属性分别设置为”上一封、”下一封 ”、咲闭“。 10. 编写一个窗体级子例程FetchNewMail: Public Sub FetchNewMail() MAPIMessagesl.FetchU nreadOnly = True MAPI Messagesl. Fetch End Sub 11. 编写一个窗体级了例程Disp

8、layMessage: Public Sub DisplayMessage() IbIMsgCount.Caption = ”第” 图3接收邮件 本例是读取用户收件箱中所有未读邮件，如果要读取收件箱中所有的邮件，那 么只需在执行Fetch方法之前，将MAPI消息控件的FetchUnreadOnly属性设置为 Falseo 三、邮件附件 与处理邮件的方式一样,MAPI也为邮件的附件提供了一个计数器和一个索 引。在处理收到的邮件时，可以通过检查Attachmentcount属性来确定该邮件携 带了多少个附件然后可以通过设置Attachmentindex属性依次处理每一个附 件。Attachment

9、index的合法取值范围为0至Attachmentlndex-lo在设置了 Attachmentindex属性值后,可以读取附件的下列属性： AttachmentName: 当附件是一个文件时，该属性用于指定文件的名称。当附件是一个OLE对象 时，该属性用于指定对象的类型。 AttachmentPath: 该属性用于指定做为附件的文件的全路径名。 AttchmentPositio n: 该属性用于指定附件在邮件内容部分中的位置。当邮件收发程序显示邮件 内容时，将使用该属性提供的信息把附件的标志放在合适的位置。 AttachmentType: 该属性用于指定附件的类型，其合法取值为三个整数型数值

10、，在VB中分别由 下列常量表示： map Data-件是一个数据文件 mapEOLE-附件是一个嵌入式OLE对象 mapSOLE-附件是一个静态OLE对象 发送邮件时，上述属性的使用方法与接收邮件时相同，只不过由读操作改为写 操作了。值得一提的是Attachmentindex属性，发送邮件时可以将其设置为任意 值。而Attachme ntCount属性则会自动设置为正确的值，无需人为设置。用VB 怎么发送邮件？代码？ Visual Basic 6中发送邮件的新方法 用VB6编写发送邮件的程序，有多种Email组件可供选择，如 MAPIMessages、IIS4.0 附带的 CDONTS (NT

11、S Collaboration Data Objects)以 及许多第三方厂商开发的Email软件等。本文介绍用CDONTS开发VB下的邮件 程序方法。 1 确认已安装SMTP服务器 首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装0ption Pack 时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一 个名为cdonts.dll的文件。 2 最简单的邮件发送程序 Private Sub cmdSendMail_Click() Dim objMail as Object Set objMail二CreateObject(”CDFONTSDLL”) En

12、d Sub 3 发送邮件附件 如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方 法: Private Sub cmdSendMail_Click() Dim objMail as Object Set objMail=CreateObject(,CDFONTS.DLL,) With ObjMail Subject 二“Title” .Body 二” Hello” AttachFile”c: docume ntsample.doc, “sample.doc .Send End With Set objMail二nothing End Sub 4.CDONTS组件常用

13、属性和方法 CDONTS组件常用的属性和方法列举如下： 属性： Versi on： 返回CDONTS组件的版本号 MailFormat： 邮件格式，1 普通文本类型；0-MIME类型 Cc： 9/12 设置一个或多个参阅的邮件地址 From： 邮件发送者的地址 To : 邮件接受者的地址 Subject： 标题 Body： 内容 BodyFormat： 内容格式，1 普通文本；0超文本 方法： AttachFile： 附加一个文件 AttachURL： 附加一个地址 Send： 发送邮件 5发送超文本格式的E-mail 你一定见到过许多使用超文本格式的E-mail,其中不但可以有图片、声音,

14、甚至还可以嵌入动画。如果给你的朋友也发送一封这样的邮件，一定会带给他 (她)意外的惊喜，因为这用一般的邮件发送程序是无能为力的。以下使用 CDONTS组件发送一个HTML格式的邮件，其中包含有一幅名为sample.gif的图 片，程序如下： Private Sub cmdSendMail_Click() Dim objMail as Object Set objMail二CreateObject(”CDFONTSDLL”) Dim strHTMLas String StrHTML=,H, StrHTML=StrHTML+,m StrHTML=StrHTML+, 用CDONTS发送Email的例子” StrHTM L=StrHTM L+n,StrHTM L=StrHTM L+ 以上例子嵌入了图片 sample.gif “StrHTML二StrHTML+”“ With ObjMail .Subject=HTitlen Body 二 strHTML .AttachURLc: mydatasample.gif,sample.gi