电子邮件【doc】用VB实现电子邮件与SQL SERVER数据库的连接

用VB实现电子邮件与SQL SERVER数据库的连接

2OOO年2月

Lv

电脑

秀

学习1

I/嗽

纂1期

VB实现电子邮件与SQLSERVER数据库的连接

弋P弋f1

Realizationo fConnectionbetweenE—mailandS QL S erverwithVB

JIangY~lma

1首先设置电子邮件的配置环境

在"控制面板"中双击"电子邮件"图标,在电子邮件设置

对话框,单击"显示配置文件"按钮进行电子邮件的配置.设

置配置文件名称,电子邮件的邮箱等内容.在相应的电子邮

件系统,如/diero~OutLook中应该设置拨号网络的功能,在

启动配置文件时系统自动进行拨号

参考源程序

0RC0000H

IJMPM^1 N:转主程序

0RCOOO3H

LIMPrm:转I?,rro中断oRCO00BItum,CLOCK~转定时器中

断

ORC0013H

呻II,IT1;转l中断IN39中断服务程序:ORC005011

INIo:CLREXO

JNB 1"3.2$

1C篮H

NOVA,28H

AD D A.O 0 H

DA^

NOV28H.A

SISBBA.60H

,

ICDStlP2

M【)v28It.#001 t

I361JP2:LCAU[ISIdPSmEXO

Rm

I I WI中断服务程序:INT 1:Cl皿F2(1

JNBP33.1

INC29H

MOV^.29H

^DD^.#o0H

DA^

MOV29H.A

SUBBA.#241t编

Jc鹏唧

NOV29H.#00H

D SEP3:lAI上鹏s1种Exl

RE n

主程序:

MAIN;NOVA.#∞HMOV肿.#0H

M0VX@110,A

MOVsP.#5AH

MOV2BIt.#60H

MOV2CIt.#60H

MOV2明.24H

MOV1MOD,01HMOV11D.O∞HMOVT¨o,#3口M O V lE.#87 H

目B唧

U)0P:IAUDSUPUMPL00P

显示程序:

D:M.vm.4FH

MOVA.27H

^C^UPrDShI.VA.2吕H

^CPrDS

M0VA.29H

^CA工JPrD Sh0 V瑚.#4AH

M0V砒.#0DFH

M0VDPrR.#SEGPr

DS 【JP 1:MOVA.#o0HM0YR1.21H

M0VX@R1.^

M0VA.@肿hI(]V C^.@A+D m

MOVX@R1.A

^0 V^.R2

NOVRI,22H

MOVX@R1.^llOV1t3.#O0H

DSUPn腿1t3.DS

INCROcLRC

M O V^.R2

RR^

MOV1t2.A

JB AC C 7.D s啪

RE rmRI,^

^CPⅡl

MOVA,R1

哥心

PI佛l:A札^,#0FHh幻V@肿.A

眦m

I叮

中断服务程序:

CLDcK:嗍PsW

PUsH^OC

SmRsD

.OB7H

NOV1瑚.#3CItlNC26Hh【)vA.26H

CJNEA,#0AH.D0NE

NOV26H.#o0H

M【)vm.#27 H

MOVR1.篮H

NOV113.∞H

L 00p D:hI(]VA.@瑚

ADDA.01H

DA^

M0@Ro.^

姜英华黑龙江省时税信息中心(哈尔演150001)收稿日期:1999一吩一吩?

10?

MOV38H.@R1

CANEA.38H.D0NmllOV@m.#刚

Im

INCRl

DINZ1t3.L0oP0

DoNE[}:^C^LLL00P1

DOE:POPACC

POPPSW

R皿

控制程序:

UⅪPl:h0VDl.#l00cH

M(]V2EIt.DPL

ID0:h0VDPL.2EH

M0V融.04H

M【)vR 1.#2^H

U)OP2:INCDmn加113L00P2

NOV2EH.DPL

M0v融.#113H

CLR^hI(]VC^.@^+DP 1

皿L0啪

NOV3AIt.^

比哪:INCDm

DI℃m

CⅡt^

M0VC^.固A+DmhI(]V 3 B H,^

^I(]VA.@RlqNEA.3BH,L00N

DJNZl{3.L00P5

M0V^.3AH

CPL^

NOVP 1,A

L 0呻3:RE T

用m

2实现电子邮件功能

需要在VB工程中加^RiControl50(对应文

件MSNL,~LPI32OCA),用于控制电子邮件的收,发.为实现与数据库的连接,需要在VB工程中加^Micn:~tllemoteData

Objeel20(对应文件MSRI3020.DLL),通过ODBC方式实现与接收功能:

控作:Label1.caIm…"转^库中电子邮件数

目:"c~raandlc.~pt ic.n=返回"

MⅢMl,M^Plsl(NSAPI32.oca提供的两个控件)

Dim一Mai1AsTd—d_m

Prlv~teSubc0一d1一a-ck()

一№.】_口0:SetFc—Nail=Nnlhing

12nle~lMe

EndSub

Priwte Subrmm—k咀d()

Fc—MallC呵In="uidyh;dbⅡscMail:d:I'扣开邮件数据库

一MallCutr,etlMver:eed.d

F c—M鲥B_C硼n朗t|dD rNpn:r,

蹦se

MA-1.U咐NaⅢ:M{Ⅱ∞0ROutl~l~'

'电子邮件设置文件名

MAPISessi~lSignOn

MAPIMe~ssi肌ID=NAPISe~on1.Ses一

_刖lD

MMⅡg 1.Fhkh

MeRefresh

EndSub

Pri~'aleSubForm—uoad(c虮cd^sInteger)

—

MallCl,-.~e:SetFe一I-lIIg

IJnlc~lMe

Sub

P~lleSube()

Dimfdo^oR群uIt孵t

DimCntAsInteger

Dimsi一.IsAsInteger

One

Cnt:M删M嘲a81.M-m'信箱内电子

邮件数日

Fc一1_瞻h1B

Si一:0

SQLSERVEI1数据库的连接.

实现的方案如下:

远程终端通过电子邮件系统将有标识的信息发送到本地的电子邮件信箱内;本地终端的应用软件自动将电子邮件收件箱内的数据读^9oL~i'ver数据库中,实现数据的动态管理.具体接收,发送功能实现如下:

S:~elecl'

Set 1 do=Fe一.0p(S.1.3,64)

'打开库中存放信息的表

D0~'hileM^Pl艉目?1 Mnd既+1<=Cnt

IfTrim(M^PIj 1 Ms耐):XXIt~'

'判断主题是舌为系统设定的标志

"remp.NAPIMe~e s lMsg',kteTe~rd0.Add按相应格式添加记录lS:0

Dbl】 eTfim(Ter~,)<)

POSI=lI1 s(1.T,Chr(13))

Ⅱ<>0'In肌rd0(Js)=Nid('ren~,1,P05I一1)

1 do(Js)=Tnm(1"er~)

ExitD0

If

1=Mid(1re,P0Sl+1. 【()一

~OS1)

.

IS: .IS+1

L∞

Td0.U

M嘲a目.DeleleO'删酴电子邮件Cnt:—l

一

.

Is=S1一.Is+1

日钟

Ifk8啦目∞1.Mr+1<Cnt1 lten'寻找下一个邮件

M^FI蛳1.M日|山x=M删Me咿1MsndeI+1

日

E,fitD0

If

&dI f

L

1 doCl~e:SelTd0=Nothing

Fc—Nail0mBl~e12.∞;"rn~(So(S1一Js))

F-~itSube: