控件基于VB的电子邮件群发系统的设计与实现

第16卷第5期 河南机电高等专科学校学报 Vol 16№5

2008年09月 Journal of HenanMechanical andElectrical Engineering College Sep 2008

基于VB的电子邮件群发系统的设计与实现3

魏 勇,赵开新

(河南机电高等专科学校计算机科学与技术系,河南新乡453002)

摘要:介绍了如何使用VisualBasic6 0读取数据库中的数据,进而生成电子邮件正文,并利用M icrosoftMAP I6 0

Contro ls控件,调用Outlook实现电子邮件的群发功能。

关键词:VB;电子邮件;MAP I;发送

中图分类号:TP309 2 文献标识码:A 文章编号: 1008 - 2093(2008)05 - 0044- 02

目前,很多网站的电子邮件系统为了防止垃圾邮 使您能够编写应用程序,以通过OLE DB提供者访问件,对群发功能进行了很多的限制,甚至没有群发功 和操作数据库服务器中的数据ADO。最主要的优点能,通过使用Visual Basic6. 0 MAPI(通信应用程序接 是易于使用、速度快、内存支出少和磁盘遗迹小。系统的设计与实现

1 实现电子邮件群发系统的主要技术

被传送给MA P I会话的句柄,它从MA P ISe ssion控件2. 2. 1 数据库的设计

完成或者通过VB设计数据库录入模块完成输入。

利用ADO技术就能实现对access、 excel、 text等 2. 2. 2 系统界面设计

多种格式的数据访问。 ADO(Access Data Object) [3] ①启动VB后,新建一个标准EXE工程。是M icro soft为最新和最强大的数据访问范例OLE DB ②在“Project”菜单中选“Components”,在“Con2而设计的,是一个便于使用的应用程序层接口。ADO trols”选项卡中选“MicrosoftMAPI6. 0 Controls”,选中

44

“Selected Items Only”,在控件工具箱中将邮件控件 学校,计科系”+Chr (13) +Chr ( 10)

MAP I Se ssion和MAP IMe ssage s两个控件添加到窗体 SendToText = SendToText +D ata  + Time 中。 ‘生成邮件的正文

③添加两个命令按钮,将其CAPTION属性设计 Call Send ( txtobject (2). Text , “毕业设计通为“发送”和“退出”。 知”, SendToText)

④添加一个数据控件D ata1,并设置“Connect”的 ‘调用Send函数发送邮件, txtobject (2). Text为数据库格式, “DatabaseName”的名称和“Record2数据库中的邮箱地址

Source”相应的属性。 D ata1. Recordset.MoveNext

⑤详细设计。 IfD ata1. Recordset. EOF = True then

2. 3 系统中主要函数的定义 M sgBox Str (Sum) +"个已发送" ‘记录已经发送

2. 3. 1 电子邮件发送函数的定义 的邮件数目

Public Function Send_M ail(s1 , s2 , s3 ) End If

MAPMI essages1.MsgIndex = - 1 Loop

MAPMI essages1. RecipD isp layName = s1 ‘获取邮 End Function

箱地址 2. 3. 3电子邮件发送函数

MAPMI essages1.M sgSubject = s2‘获取邮件标题 Private Sub Command1 Click( )

MAPMI essages1.M sgNotetext = s3 ‘获取邮件正文 Data1. Recordset.MoveFirst

MAP MI essages1. Session ID =MAP ISession1. MAP ISession1. SignOn‘激活MAP ISession控件

SessionID CallGet_Label_Name

MAPMI essages1. Send End Sub

结束语

1 b1Object(i). Caption =Data1. Recordset. Fields无纸化办公的优势。 (责任编辑 吕春红)( i - 1) . SourceField‘读取字段名称 参考文献:

tion+" + txtobject (1) . Text + " +Chr (13) +Chr [4]王泰峰软件项目开发综合实训——V isual B asic篇[M] 北京:人

(10) 民邮电出版社,2005

N ext

SendToText = SendToText +“河南机电高等专科

Design and Implement of E_mail Sending System in Group Based on VB

WEIYong, et al

(D epartment of Computer Science ,Henan Mechanical and Electrical Engineering College,Xinxiang 453002,China)

Abstract: In universities, this article will explains how to use VisualBasic6. 0,gets some data in database ,makes content of E-mail , and usesMicrosoftMAPI6. 0 Controls and Outlook, realizes sending E-mail in group.

Key words:VB; E_mail;MAP I; send