用VB设计自己的E-mail系统

原创 2002年03月03日 18:41:00

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地址,在内容文本框中输入要传送的内容,这样信件就发送出去了。

VB图书管理系统毕业设计

目录 第一章系统概述. 1 1.1 系统开发背景和意义. 1 1.2 开发环境. 1 第二章 系统需求分析. 2 2.1 任务概述. 2 2.2 数据描述(数据流图+数据字典)2...
  • u014312659
  • u014312659
  • 2014年07月28日 18:45
  • 498

【VB】学生信息管理系统优化总结

学生信息管理系统优化。
  • sds15732622190
  • sds15732622190
  • 2015年06月17日 10:48
  • 1012

学术休假-学生信息管理系统v1.0

这是第一个学术休假的项目,主体部分在回家时的火车上完成的,隔了几天继续加工,今天终于完成,这是学生管理系统的beta版本,后续还将继续完善。 学生信息包括:学号,姓名,年龄,性别,出生年月,地址,电...
  • mayuko2012
  • mayuko2012
  • 2015年01月19日 19:45
  • 747

VB—联合查询(查询学生信息实例)

刚刚进行完了机房收费系统关于联合查询的部分,整个代码进行完了,才发现,联合查询的东西不是很多,要用到知识就只有一个写查询的语句,最难的地方就是分析查询情况,首先呢,简单介绍下我整个代码的思路,先列出查...
  • hanxintong9
  • hanxintong9
  • 2013年10月03日 20:08
  • 1168

VB 编写的 文档管理系统

VB 对档案管理 有高效的处理效果,可以弄个工具,更加professional 工作。 More professional, more potential to achieve success....
  • shenghuiping2001
  • shenghuiping2001
  • 2015年04月07日 17:53
  • 540

VB.net版机房收费系统——结账功能实现(代码部分)

机房收费系统结账功能的实现
  • sun15732621550
  • sun15732621550
  • 2016年04月09日 16:52
  • 895

VB语言设计“用户名”与“密码”实验报告

VB语言设计“用户名”与“密码”实验报告 姓名:刘兆国 学号:15050342020 实验日期:2016.5.26 实验内容:首先创作一个登录页面,然后输入相应的字并对字符大小进行修改,然后建...
  • sinat_34242847
  • sinat_34242847
  • 2016年06月02日 17:11
  • 381

机房收费系统之vb报表的模板的制作(一)

报表设计器
  • u013067402
  • u013067402
  • 2014年08月12日 18:33
  • 1693

VB连接SAP实例

最近做个项目有用到vb连接SAP,现在项目完成,做个技术总结。顺便整理了下VB连接SAP取回/传送数据 的方法。 1.连接SAP. Public Function GetSAPConnect...
  • zhongguomao
  • zhongguomao
  • 2015年01月23日 16:41
  • 1076

VBA窗体转VB方法

[求助] 求教VBE窗体导入VB的方法和导入后的使用方法  [复制链接]     ctincob 2 主题 8 帖子 0 鲜花 ...
  • hotqin888
  • hotqin888
  • 2016年04月09日 18:58
  • 1573
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB设计自己的E-mail系统
举报原因:
原因补充:

(最多只允许输入30个字)