自己的邮件自己发
2006-02-27 11:38:32 来源:WEB开发网VB中有两个邮件收发功能的核心控件:MAPI会话和MAPI消息控件。MAPI会话控件用于建立和控制一个MicrosoftMail会话,MAPI消息控件用于创建和收发邮件消息。此外,程序必须运行在采用MAPI的消息系统(如MicrosoftExchange、Outlook等)的环境中。
窗体设计
打开VB,在Form1中加入5个文本框,7个命令按钮,同时通过添加部件的方法将MAPI控件加入窗体中(如图1)。各对象的属性设置如图2。
<>
图2对象属性设置
编写代码
PrivateSubCommand1_Click()
IfVal(Text2.Text)<=0ThenExitSub
Text2.Text=Val(Text2.Text)-1
Callxs()
EndSub
PrivateSubCommand2_Click()
IfVal(Text2.Text)>=Val(Text1.Text)-1ThenExitSub
Text2.Text=Val(Text2.Text) 1
Callxs()
EndSub
PrivateSubCommand3_Click()
MAPIMessages1.sessionID=MAPISession1.SessionID
MAPIMessages1.MsgIndex=-1′建立发送缓冲区
MAPIMessages1.Compose′写新邮件
MAPIMessages1.SendTrue
EndSub
PrivateSubxs()
MAPIMessages1.MsgIndex=Val(Text2.Text) ′指定电子邮件
Text3.Text=MAPIMessages1.MsgSubject ′电子邮件主题
Text4.Text=MAPIMessages1.MsgOrigDisplayName
′电子邮件发信人姓名
Text5.Text=MAPIMessages1.MsgNoteText ′电子邮件全文
EndSub
PrivateSubCommand4_Click()
MAPIMessages1.SessionID=MAPISession1.SessionID
MAPIMessages1.MsgIndex=Val(Text2.Text)
MAPIMessages1.Reply
MAPIMessages1.SendTrue
EndSub
PrivateSubCommand5_Click()
MAPISession1.SignOff
MAPISession1.DownLoadMail=True
MAPISession1.SignOn
MAPIMessages1.SessionID=MAPISession1.SessionID
MAPIMessages1.FetchUnreadOnly=False
MAPIMessages1.Fetch
Text1.Text=MAPIMessages1.MsgCount
Text2.Text=0
EndSub
PrivateSubCommand6_Click()
OnErrorGoToerr:
MAPIMessages1.Show
err:
EndSub
PrivateSubForm_Activate()
Callxs
EndSub
PrivateSubForm_Load() ′系统初始化
MAPISession1.DownLoadMail=False
MAPISession1.SignOn ′ 处理开始
MAPIMessages1.SessionID=MAPISession1.SessionID
MAPIMessages1.FetchUnreadOnly=False
MAPIMessages1.Fetch
Text1.Text=MAPIMessages1.MsgCount
Text2.Text=0
EndSub
PrivateSubCommand7_Click()
MAPISession1.SignOff ′ 处理结束
End
EndSub
好了,代码终于写完了,运行一下,看看效果,还不错吧!当然,如果你想更完善一些,就需要你自己努力了。本程序在WindowsXP下运行通过。
->- ››自己写的一个php基于phpQuery的通用采集类
- ››自己动手写iPhone wap浏览器之界面架构篇
- ››邮件安全网关 冠群金辰KILL过滤网关
- ››邮件安全网关 Mirapoint RazorGate
- ››自己也能DIY个性真人QQ表情
- ››自己动手!巧法让酷狗动感歌词更完美
- ››自己编译Google Android内核的Linux源码
- ››自己写的一个jquery模板引擎(json比较好用)
- ››自己定义Android堆内存大小
- ››自己动手制作伪原创程序 分为八个步骤
- ››邮件工具DreamMail 4.6.2.0 发布了
- ››邮件工具Thunderbird 3.0.3 正式发布
更多精彩
赞助商链接