您的位置:IT教程网首页>软件开发教程>VB教程>用Visual Basic设计e-mail程序

用Visual Basic设计e-mail程序




step 3:用ie 3.0 mail程序测试程序


执行上面设计的email-send程序。在subject textbox中填入"发信测试",在address textbox中填入gzsydici@public1.guangzhou.gd.cn,在content textbox中输入要传送的内容:"大家好!这是发信测试",接着按传送。这样信件就发送出去了!

执行ie 3.0选择接收信件,在mail选项中选择read mail。我们会在inbox中看到一封标题为"发信测试"的信件,接着我们看看它的内容,没错!那就是我们刚寄出的测试信。

e-mail接收部分

step 1:程序设计

在file选项中选择new project建立一个新的工程。在屏幕上看到许多选项,如activex document.exe、activex document.dll、activex.exe、activex control等,这时要选standard.exe。

接着在project下,选择property属性选项;在general选项下,将project name改为  email-get,并将form名称及caption更改为 email-get。

在屏幕的form上加入一个mapimessage control,取名为mapim1;加入一个mapisession control,取名为mapis1;加入三个textbox control,分别取名为subject、content、indexno, 将其caption改为mail-subject、mail-content、indexno;并在textbox前各加入一个label control,将caption分别改为subject、content、indexno。


将mapim1的各项property设置如下:

download mail=true

logoui=true

newsession=false

username="test"

这些设置原理如同设计发送mail程序部分。接着,在屏幕的form上加入一个buttoncontrol get-mail,将caption改为get mail。如同发送mail 程序部分和mailserver建立一条session。

在 get-mail_click() 中加入以下程序代码,这个动作是使我们接收email。

mapim1.fetch

form1.caption=mapim1. msgcount

mapim1.msgindex=cint(indexno.text)

subjec.text = mm1.msgnotetext

content.text = mapi1.msgsubject

fetch命令,是将信件抓到系统存贮器的inbuffer中。我们将信件抓回来后,可以由msgcount property知道信件数量。接着可以用msgindex设置要看哪一封信件的内容、标题。

stept 2:测试mail接收程序


首先用任何一种mail程序,任意书写几封信到mail server。在form1的caption中,我们会看到所接收的信件的数量。执行上面设计的email-get程序,在indexno textbox中填入1。接着按get mailbutton,这样信件内容及标题就会显示在content、subject两个textbox中。恭喜您成功了!

共2页: 上一页 [1] 2 下一页