|
Visual Basic 以其强大的功能为广大软件开发人员所喜爱随着Internet的迅猛发展VB应用在网络方面的开发也越来越多本文将介绍如何用VB设计一个自己的Email系统 检查是否连通Internet 在设计自己的Email系统时我们需要检测系统是否连通Internet下文通过编写函数IsConnected来判断Internet是否连通 在主程序中加入下列代码 Private Sub Form_Load（） If IsConnected = True Then MsgBox （您已经连通了Internet!） End If If IsConnected = False Then MsgBox （您还没有连通 Internet!） End If End Sub 将下面的代码作为模块放在程序中 Option Explicit /有关注册的API声明和定义以便使用/ Public Declare Function RasEnumConnections Lib RasApidll Alias RasEnumConnectionsA （lpRasCon As Any lpcb As Long lpcConnections As Long） As Long Public Declare Function RasGetConnectStatus Lib RasApidll Alias RasGetConnectStatusA （ByVal hRasCon As Long lpStatus As Any） As Long /常数和变量的设定/ Public Const RAS_MaxEntryName = Public Const RAS_MaxDeviceType = Public Const RAS_MaxDeviceName = Public Type RASCONN dwSize As Long hRasCon As Long szEntryName（RAS_MaxEntryName） As Byte szDeviceType（RAS_MaxDeviceType） As Byte szDeviceName（RAS_MaxDeviceName） As Byte End Type Public Type RASCONNSTATUS dwSize As Long RasConnState As Long dwError As Long szDeviceType（RAS_MaxDeviceType） As Byte szDeviceName（RAS_MaxDeviceName） As Byte End Type /函数IsConnected返回是否连通的状态如果为True则表示已连通/ Public Function IsConnected（） As Boolean Dim TRasCon（） As RASCONN Dim lg As Long Dim lpcon As Long Dim RetVal As Long Dim Tstatus As RASCONNSTATUS TRasCon（）dwSize = lg = TRasCon（）dwSize RetVal = RasEnumConnections（TRasCon（） lg lpcon） If RetVal <> Then MsgBox 错误 Exit Function End If TstatusdwSize = RetVal = RasGetConnectStatus（TRasCon（）hRasCon Tstatus） If TstatusRasConnState = &&H Then IsConnected = True Else IsConnected = False End If End Function 通过使用上面代码我们可以很方便地了解目前的Internet是否处于连通状态 设计接收邮件 在VB选单上点击工程→部件弹出部件对话框在对话框的控件卡中选中Microsoft MAPI Controls 控件点击确定按钮使得工具箱上增加MAPIMessage和MAPISession两个图标 在Form上加入一个MAPIMessage控件取名为MAPIMeaasge;加入一个MAPISession控件取名为MAPISession;再加入三个Textbox控件分别取名为SubjectContent和Indexno 将它们的Caption分别改为邮件标题邮件内容和邮件索引号并在TextBox前各加入一个Label控件将Caption分别改为标题内容和索引号 将MAPIMessage的各项属性设置如下 DownLoadMail=TRUE LogonUI=TRUE NewSession=FALSE UserName=接收Email 在Form上加入一个按钮（Getmail）将其Caption属性改为接收邮件 在 Getmail_Click（）中加入以下程序代码程序的功能是使我们接收Email: MAPIMessageFetch FormCaption=MAPIMessageMsgCount MAPIMessageMsgIndex=CINT（Indexnotext） SubjecText = MAPIMessageMsgNoteText ContentText = MAPIMessageMsgSubject 其中Fetch命令是将信件抓到系统存贮器的inbuffer中我们将信件抓回来后可以由MsgCount属性知道信件数量接着可以用MsgIndex设置要看哪一封信件的内容标题 设计发送邮件 设计发送邮件部分时我们需要分两步加以完成 Exchange各项参数的设置 进入Exchange系统选择新增设置文件屏幕上会显示所需要的信息服务选择Internet Mail 设置文件的名称为test屏幕会显示两个选项可以选择以Modem方式或以Network方式连接笔者所用的是Modem方式所以选择Modem 选择Modem后Exchange会要求我们输入Mail server的IP address在此输入自己的IP地址接着将Transform Message的模式设置为Automatic这样当我们连接到Mail服务器时新的信息会自动下载到Local端接下来将你所使用的Email地址全名口令和下载路径等一步步设置好这样就完成了Exchange各项参数的设置 程序设计 在VB选单上点击工程→部件弹出部件对话框在对话框的控件卡中选中Microsoft MAPI Controls 控件点击确定按钮 在Form上加入一个MAPIMessage控件取名为MAPIMessage再加入一个MAPISession控件取名为MAPISession然后加入三个textbox控件取名为SubjectContent和Addr并在三个textbox前各加入一个Label最后将Caption分别改为标题内容和地址 将MAPIMessage的各项属性设置如下 DownLoadMail=TRUE LogonUI=TRUE NewSession=FALSE UserName=发送Email 这里将DownLoadMail设置为TRUE当程序和Mail服务器第一次连接时会将新的Mail下载到Local端将LogonUI设置为TRUE则当程序中Logon名称输入错误时系统会显示一个Message Box来让你输入正确的名称由于这个程序仅使用到一条Session所以将NewSession设置成FALSE如果有许多Session要建立的话则将它设置成TRUEUserName中所填的是我们在Exchange中所新增的设置文件名称如果没有填内容的话系统将会显示一些Message Box让你输入文件 在Form上加入三个按钮LogonLogoff和Send并分别将它们的Caption改为登录离网和发送 在 Logon_Click（）中加入以下程序代码程序的功能是使我们登录到Mail服务器 MAPISessionSignOn MAPIMessageSessionID = MAPISessionSessionID MsgBox Your Id is + Str（MAPISessionSessionID） 其中MAPISessionSignOn是做登录的动作在登录时因为已经将MAPIMessage控件的DownLoadMail属性设置为TRUE所以可以在屏幕上看到Message Box显示系统正在下载Mail登录成功后系统会传回一个SessionID将该ID填入MAPIMessage的SessionID中这样就可以利用这条Session来传送Email 在Logoff_Click（）中加入以下程序代码程序的功能是使我们离开Mail服务器 MAPISSignOff 在Send_Click（）中加入以下程序代码程序的功能是使我们发送Email: MAPIMessageCompose MAPIMessageRecipDisplayName = Addrtext MAPIMessageAddressResolveUI = True MAPIMessageMsgSubject = Subjecttext MAPIMessageMsgNoteText = Contenttext MAPIMessageSend MsgBox 您发送成功啦！ 其中Compose命令的目的是使你可以改变RecipDisplayName的内容将所需传送的Email地址主题和文章内容分别填入RecipDisplayNameMsgSubject和MsgNoteText接着用Send命令发送 用IE Mail程序测试 执行上面设计的Send程序在标题文本框中填入发信测试源码天空在地址文本框中填入收信人的Email地址在内容文本框中输入要传送的内容这样信件就发送出去了 |
