第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
国庆钜惠 最低5折起 限量促销CYUN专注海外精品服务器资源,主营香港CN2 GIA、美国CERA、美国高防服务器资源,实体公司,ISP/IDC资质齐全,客服配备齐全。本次针对国庆推出非常给力的促销活动,旗下所有平台同享,新老客户同享,限时限量,售完截止。活动截止时间:2021年10月9日官网地址:www.cyun.net参与机型:香港CN2 GIA云服务器、香港双程CN2云服...
爱用云互联怎么样?爱用云是一家成立于2018年的老牌商家旗下的服务器销售品牌,是正规持证IDC/ISP/IRCS商家,主要销售国内、中国香港、国外服务器产品,线路有腾讯云国外线路、自营香港CN2线路等,都是中国大陆直连线路,非常适合免备案建站业务需求和各种负载较高的项目,同时国内服务器也有多个BGP以及高防节点。专注为个人开发者用户,中小型,大型企业用户提供一站式核心网络云端服务部署,促使用户云端...
华为云怎么样?华为云用在线的方式将华为30多年在ICT基础设施领域的技术积累和产品解决方案开放给客户,致力于提供稳定可靠、安全可信、可持续创新的云服务,做智能世界的“黑土地”,推进实现“用得起、用得好、用得放心”的普惠AI。华为云作为底座,为华为全栈全场景AI战略提供强大的算力平台和更易用的开发平台。本次年终聚惠618活动相当给力,1核2G内存1m云耀云服务器仅88元/年起,送主机安全基础版套餐,...