用VB设计自己的Email系统.docVIP

Visual Basic 6.0以其强大的功能为广大软件开发人员所喜爱，随着Internet的迅猛发展，VB6应用在网络方面的开发也越来越多。本文将介绍如何用VB设计一个自己的E-mail系统。 　　检查是否连通Internet 　　在设计自己的E-mail系统时，我们需要检测系统是否连通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 RasApi32.dll Alias RasEnumConnectionsA （lpRasCon As Any, lpcb As Long, lpcConnections As Long） As Long 　　Public Declare Function RasGetConnectStatus Lib RasApi32.dll Alias RasGetConnectStatusA （ByVal hRasCon As Long, lpStatus As Any） As Long 　　/常数和变量的设定/ 　　Public Const RAS95_MaxEntryName = 256 　　Public Const RAS95_MaxDeviceType = 16 　　Public Const RAS95_MaxDeviceName = 32 　　Public Type RASCONN95 　　dwSize As Long 　　hRasCon As Long 　　szEntryName（RAS95_MaxEntryName） As Byte 　　szDeviceType（RAS95_MaxDeviceType） As Byte 　　szDeviceName（RAS95_MaxDeviceName） As Byte 　　End Type 　　Public Type RASCONNSTATUS95 　　dwSize As Long 　　RasConnState As Long 　　dwError As Long 　　szDeviceType（RAS95_MaxDeviceType） As Byte 　　szDeviceName（RAS95_MaxDeviceName） As Byte 　　End Type /函数IsConnected返回是否连通的状态，如果为True则表示已连通/ 　　Public Function IsConnected（） As Boolean 　　Dim TRasCon（255） As RASCONN95 　　Dim lg As Long 　　Dim lpcon As Long 　　Dim RetVal As Long 　　Dim Tstatus As RASCONNSTATUS95 　　TRasCon（0）。dwSize = 412 　　lg = 256  TRasCon（0）。dwSize 　　RetVal = RasEnumConnections（TRasCon（0）， lg, lpcon） 　　If RetVal 0 Then 　　MsgBox 错误 　　Exit Function 　　End If 　　Tstatus.dwSize = 160 　　RetVal = RasGetConnectStatus（TRasCon（0）。hRasCon, Tstatus） 　　If Tstatus.RasConnState = H2000 Then 　　IsConnected = True 　　Else 　　IsConnected = False 　　End If 　　End Function 　　通过使用上面代码，我们可以很方便地了解目前的Internet是否处于连通状态。 　　设计接收邮件 　　在VB6选单上点击工程→部件,弹出部件对话框，在对话框的控件卡中选中Microsoft MAPI Controls 6.0控件，点击确定按钮，使得工具箱上增加MAPIMessage和MAPISession两个图标。 在Form上加入一个MAPIMessage控