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控件，取名为MAPIMeaasge1；加入一个MAPISession控件，取名为MAPISession1；再加入三个Textbox控件，分别取名为Subject、Content和Indexno， 将它们的Caption分别改为邮件标题、邮件内容和邮件索引号；并在TextBox前各加入一个Label控件，将Caption分别改为标题、内容和索引号。
将MAPIMessage1的各项属性设置如下：
DownLoadMail=TRUE
LogonUI=TRUE
NewSession=FALSE
UserName=“接收E-mail”
在Form上加入一个按钮（Getmail），将其Caption属性改为接收邮件。
在 Getmail_Click()中加入以下程序代码，程序的功能是使我们接收E-mail：
MAPIMessage1.Fetch
Form1.Caption=MAPIMessage1.MsgCount
MAPIMessage1.MsgIndex=CINT(Indexno.text)
Subjec.Text = MAPIMessage1.MsgNoteText
Content.Text = MAPIMessage1.MsgSubject
其中，Fetch命令是将信件抓到系统存贮器的inbuffer中，我们将信件抓回来后，可以由MsgCount属性知道信件数量，接着可以用MsgIndex设置要看哪一封信件的内容、标题。
设计发送邮件
设计发送邮件部分时，我们需要分两步加以完成：
1．Exchange各项参数的设置
进入Exchange系统，选择新增设置文件；屏幕上会显示所需要的信息服务，选择Internet Mail。
设置文件的名称为test。屏幕会显示两个选项，可以选择以Modem方式或以Network方式连接，笔者所用的是Modem方式，所以选择Modem。
选择Modem后，Exchange会要求我们输入Mail server的IP address。在此输入自己的IP地址。接着将Transform Message的模式设置为Automatic，这样当我们连接到Mail服务器时，新的信息会自动下载到Local端。接下来，将你所使用的E-mail地址、全名、口令和下载路径等一步步设置好，这样就完成了Exchange各项参数的设置。
2．程序设计
在VB6选单上点击“工程→部件”，弹出“部件”对话框，在对话框的控件卡中选中Microsoft MAPI Controls 6.0控件，点击“确定”按钮。
在Form上加入一个MAPIMessage控件，取名为MAPIMessage1，再加入一个MAPISession控件，取名为MAPISession1，然后加入三个textbox控件，取名为Subject、Content和Addr并在三个textbox前各加入一个Label，最后将Caption分别改为标题、内容和地址。
将MAPIMessage1的各项属性设置如下：
DownLoadMail=TRUE
LogonUI=TRUE
NewSession=FALSE
UserName=“发送E-mail”
这里将DownLoadMail设置为TRUE，当程序和Mail服务器第一次连接时，会将新的Mail下载到Local端。将LogonUI设置为TRUE，则当程序中Logon名称输入错误时，系统会显示一个Message Box来让你输入正确的名称。由于这个程序仅使用到一条Session，所以将NewSession设置成FALSE。如果有许多Session要建立的话，则将它设置成TRUE。UserName中所填的是我们在Exchange中所新增的设置文件名称，如果没有填内容的话，系统将会显示一些Message Box让你输入文件。
在Form上加入三个按钮Logon、Logoff和Send，并分别将它们的Caption改为登录、离网和发送。
在 Logon_Click()中加入以下程序代码，程序的功能是使我们登录到Mail服务器：
MAPISession1.SignOn
MAPIMessage1.SessionID = MAPISession1.SessionID
MsgBox "Your Id is" + Str(MAPISession1.SessionID)
其中MAPISession1.SignOn是做登录的动作，在登录时，因为已经将MAPIMessage1控件的DownLoadMail属性设置为TRUE，所以可以在屏幕上看到Message Box，显示系统正在下载Mail。登录成功后，系统会传回一个SessionID，将该ID填入MAPIMessage1的SessionID中，这样就可以利用这条Session来传送E-mail。
在Logoff_Click()中加入以下程序代码，程序的功能是使我们离开Mail服务器：
MAPIS1.SignOff
在Send_Click()中加入以下程序代码，程序的功能是使我们发送E-mail：
MAPIMessage1.Compose
MAPIMessage1.RecipDisplayName = Addr.text
MAPIMessage1.AddressResolveUI = True
MAPIMessage1.MsgSubject = Subject.text
MAPIMessage1.MsgNoteText = Content.text
MAPIMessage1.Send
MsgBox “您发送成功啦！”
其中Compose命令的目的是使你可以改变RecipDisplayName的内容，将所需传送的E-mail地址、主题和文章内容分别填入RecipDisplayName、MsgSubject和MsgNoteText，接着用Send命令发送。
3．用IE 5．0 Mail程序测试
执行上面设计的Send程序，在标题文本框中填入“发信测试”，在地址文本框中填入收信人的E-mail地址，在内容文本框中输入要传送的内容，这样信件就发送出去了。
本文地址：http://com.8s8s.com/it/it6433.htm