用VB收发电子邮件

MAPIMessages1.MsgIndex =
MAPIMessages1.MsgIndex - 1
DisplayMessage
Else
Beep
End If
End Sub
14.将下列代码加入cmdNext的Click事件:
Private Sub cmdNext_Click()
If MAPIMessages1.MsgIndex <
LTrim(Str(MAPIMessages1.MsgCount)) & "封邮件"
lblMsgDateReceived.Caption = MAPIMessages1.
MsgDateReceived
xtMsgNoteText.Text = MAPIMessages1.
MsgNoteText
lblMsgOrigDisplayName.Caption =
AttachmentType:
该属性用于指定附件的类型,其合法取值为三个整数型数值,在VB中分别由下列常量表示:
·mapData-附件是一个数据文件
·mapEOLE-附件是一个嵌入式OLE对象
·mapSOLE-附件是一个静态OLE对象
发送邮件时,上述属性的使用方法与接收邮件时相同,只不过由读操作改为写操作了。值得一提的是AttachmentIndex属性,发送邮件时可以将其设置为任意值。而Attachme ntCount属性则会自动设置为正确的值,无需人为设置。用VB怎么发送邮件？代码？
Microsoft Exchange、Microsoft Mail、Outlook等)的环境中。
在开始编程之前,首先需要将MAPI控件加入VB工具箱。具体操作是:
在VB菜单栏中选择Tools菜单项中的Custom Controls命令,调出"Custom Controls"对话框,在其中的"Available Controls"列表框中选中"Microsoft MAPI Controls"表项,然后按"OK"命令按钮退出该对话框。此后,工具箱中将新添两个如图1所示的图标,这就是MAPI会话控件和MAP I消息控件的图标。
MAPIMessages1.Fetch
End Sub
11.编写一个窗体级子例程DisplayMessage:
Public Sub DisplayMessage()
lblMsgCount.Caption = "第" & _
LTrim(Str(MAPIMessages1.MsgIndex + 1)) & "封邮件,总计" & _
Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text
.MsgSubject = txtSubject.Text
.MsgNoteText = txtMessage.Text
1.确认已安装SMTP服务器
首先，必须确认在IIS服务器上已安装SMTP服务器，这是安装Option Pack时被缺省安装的选项。如果SMTP服务器已安装，在System32目录下会存在一个名为cdonts.dll的文件。
2.最简单的邮件发送程序
Private Sub cmdSendMail_Click()
1.xx一个VB项目。
2.将缺省窗体Form1的Caption属性设置为"接收邮件"。
3.将MAPI控件加入VB工具框。
4.在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessag es1。
5.在Form1中加入三个标签控件和一个文本框控件,将三个标签控件的Name属性分别设置为lblMsgDateReceived、lblMsgOrigDisplayName、lblMsgSubject,将文本框控件的Name属性设置为txtMsgNoteText,并将标签控件的Caption属性和文本框控件的Text属性的内容清空。这四个控件将分别用于显示邮件的日期、发件人、主题和内容。
MAPIMessages1.MsgCount - 1 Then
MAPIMessages1.MsgIndex =
MAPIMessages1.MsgIndex + 1
DisplayMessage
Else
Beep
End If
End Sub
15.将下列代码加入cmdClose的Click事件:
Private Sub cmdClose_Click()
编制具有收发电子邮件功能的VB程序,必须使用VB4.0以上的版本,因为只有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件:
MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用遵从MAPI的消息系统(如:
End Sub
4.CDONTS组件常用属性和方法
CDONTS组件常用的属性和方法列举如下：
用
发送和接收电子邮件,对于某些执行特殊任务的应用程序而言,是一个十分有用的功能。例如,一个监视网络服务器资源使用情况的工具软件,当它发现服务器的资源使用已经接近事先设定的临界状态时,便可以向系统管理员发送一封告警的电子邮件,从而使系统管理员能够及时地采取措施,以避免重大事故的出现。在VB中,应用程序可以通过调用MAPI,实现收发电子邮件的功能。
@@.JPG;图1 MAPI工具图标@@
下面,笔者将以两个简单的VB程序为例,分别介绍发送邮件和接收邮件的程序编制方法。
一、邮件发送程序
邮件发送程序的基本处理过程是:
根据用户输入信息组成邮件,然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下:
1.xx一个VB项目。
2.将缺省窗体Form1的Caption属性设置为"发送邮件"。
AttachmentName:
当附件是一个文件时,该属性用于指定文件的名称。当附件是一个OLE对象时,该属性用于指定对象的类型。
AttachmentPath:
该属性用于指定做为附件的文件的全路径名。
AttchmentPosition:
该属性用于指定附件在邮件内容部分中的位置。当邮件收发程序显示邮件内容时,将使用该属性提供的信息把附件的标志放在合适的位置。
Set objMail=CreateObject("CDFONTS.DLL")
With ObjMail
.Subject="Title"
.Body="HБайду номын сангаасllo"
.AttachFile"c:
\document\sample.doc","sample.doc"
.Send
End With
Set objMail=nothing
3.将MAPI控件加入VB工具框。
4.在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessag es1。
5.在Form1中加入三个文本框控件,将它们的Name属性分别设置为txtSendTo、txtS ubject、txtMessage,并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。
Private Sub Form_Load()
MAPISession1.SignOn
End Sub
9.将下列代码加入Form1的Form_Unload事件:
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub
10.将下列代码加入cmdSend的Click事件:
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
End Sub
3.发送邮件附件
如果有附加的文件需要随同邮件传送，可以使用CDONTS的AttachFile方法：
Private Sub cmdSendMail_Click()
Dim objMail as Object
6.在Form1中加入三个标签控件,将它们的Caption属性分别设置为"收件人"、"主题"和"内容",并将它们放在合适的位置用以标注相应的文本框控件。
7.在Form1中加入一个命令按钮控件,将其Caption属性和Name属性分别设置为"发送"和"cmdSend"。
8.将下列代码加入Form1的Form_Load事件:
9.在Form1中加入三个命令按钮控件,将它们的Name属性分别设置为cmdPrevious、cmdNext、cmdClose,Caption属性分别设置为"上一封"、"下一封"、"关闭"。
10.编写一个窗体级子例程FetchNewMail:
Public Sub FetchNewMail()
MAPIMessages1.FetchUnreadOnly = True
MAPIMessages1.SessionID = MAPISession1.
SessionID
FetchNewMail
DisplayMessage
End Sub
13.将下列代码加入cmdPrevious的Click事件: