在线观看亚洲精品专区-在线观看亚洲免费-在线观看亚洲免费视频-在线观看亚洲欧美-欧美freexxx-欧美free嫩交video

VIP標識 上網做生意,首選VIP會員| 設為首頁| 加入桌面| | 手機版| RSS訂閱
食品伙伴網服務號
 

做一個自己的電子郵件軟件

放大字體  縮小字體 發布日期:2006-06-01

  長時間使用Outlook Express收發電子郵件的軟件,你是不是也有點煩?是不是像我一樣,也想什么時候自己動手編寫一個屬于自己收發電子郵件的軟件。如果是這樣,那么隨我來吧!其實在VB中,應用程序可以通過調用微軟公司的MAPI(Messaging Application Programming Interface)消息應用程序編程接口,輕松實現收發電子郵件的功能。

  VB中有兩個郵件收發功能的核心控件:MAPI會話和MAPI消息控件。MAPI會話控件用于建立和控制一個Microsoft Mail會話,MAPI消息控件用于創建和收發郵件消息。此外,程序必須運行在采用MAPI的消息系統(如Microsoft Exchange 、Outlook等)的環境中。

  窗體設計

  打開VB,在Form1中加入5個文本框,7個命令按鈕,同時通過添加部件的方法將MAPI控件加入窗體中(如圖1)。各對象的屬性設置如圖2。

  
  圖1 窗體設置

  
  圖2 對象屬性設置

  編寫代碼

  Private Sub Command1_Click()

  If Val(Text2.Text) <= 0 Then Exit Sub

  Text2.Text = Val(Text2.Text) - 1

  Call xs ()

  End Sub

  Private Sub Command2_Click()

  If Val(Text2.Text) >= Val(Text1.Text) - 1 Then Exit Sub

  Text2.Text = Val(Text2.Text) + 1

  Call xs()

  End Sub

  Private Sub Command3_Click()

  MAPIMessages1.SessionID = MAPISession1.SessionID

  MAPIMessages1.MsgIndex = -1 ′ 建立發送緩沖區

  MAPIMessages1.Compose ′ 寫新郵件

  MAPIMessages1.Send True

  End Sub

  Private Sub xs()

  MAPIMessages1.MsgIndex = Val(Text2.Text) ′ 指定電子郵件

  Text3.Text = MAPIMessages1.MsgSubject  ′ 電子郵件主題

  Text4.Text = MAPIMessages1.MsgOrigDisplayName

    ′ 電子郵件發信人姓名

  Text5.Text = MAPIMessages1.MsgNoteText ′ 電子郵件全文

  End Sub

  Private Sub Command4_Click()

  MAPIMessages1.SessionID = MAPISession1.SessionID

  MAPIMessages1.MsgIndex = Val(Text2.Text)

  MAPIMessages1.Reply

  MAPIMessages1.Send True

  End Sub

  Private Sub Command5_Click()

  MAPISession1.SignOff

  MAPISession1.DownLoadMail = True

  MAPISession1.SignOn

  MAPIMessages1.SessionID = MAPISession1.SessionID

  MAPIMessages1.FetchUnreadOnly = False

  MAPIMessages1.Fetch

  Text1.Text = MAPIMessages1.MsgCount

  Text2.Text = 0

  End Sub

  Private Sub Command6_Click()

  On Error GoTo err:

  MAPIMessages1.Show

  err:

  End Sub

  Private Sub Form_Activate()

  Call xs

  End Sub

  Private Sub Form_Load() ′ 系統初始化

  MAPISession1.DownLoadMail = False

  MAPISession1.SignOn ′ 處理開始

  MAPIMessages1.SessionID = MAPISession1.SessionID

  MAPIMessages1.FetchUnreadOnly = False

  MAPIMessages1.Fetch

  Text1.Text = MAPIMessages1.MsgCount

  Text2.Text = 0

  End Sub

  Private Sub Command7_Click()

  MAPISession1.SignOff  ′ 處理結束

  End

  End Sub

  好了,代碼終于寫完了,運行一下,看看效果,還不錯吧!當然,如果你想更完善一些,就需要你自己努力了。本程序在Windows XP下運行通過。

 
[ 網刊訂閱 ]  [ 食品專題搜索 ]  [ ]  [ 告訴好友 ]  [ 打印本文 ]  [ 關閉窗口 ] [ 返回頂部 ]

 

 
推薦圖文
推薦食品專題
點擊排行
 
 
Processed in 0.376 second(s), 637 queries, Memory 2.36 M
主站蜘蛛池模板: 日本高清视频色www在线观看 | 在线免费看片a | 69视屏| 日本aaaaa| 经典三级一区二区三区视频 | 69色综合| 日本口工福利漫画无遮挡 | 超薄肉色丝袜精品足j福利 超黄视频在线观看 | 靠比久久| 国产福利2021最新在线观看 | 一级毛片一级毛片一级级毛片 | 边做饭边被躁欧美三级小说 | 福利盒子手机看片 | 六月婷操 | 久久中文字幕一区二区三区 | 欧美军同video69视频 | 色婷婷视频在线观看 | 奇米影视四色7777久久精品 | 女人张开腿让男人做爽爽 | 人人看人人做人人爱精品 | 99精品在免费线视频 | 黄色视屏在线免费播放 | 国产毛片久久久久久国产毛片 | 美女扒开尿口给男人桶爽视频 | 久久精品最新免费国产成人 | 五月婷婷丁香六月 | 日日做夜夜爽夜夜爽 | 美女视频毛片 | 五月婷婷婷婷 | 国产福利你懂的 | 四虎欧美在线观看免费 | 中国美女毛片 | 欧美一级欧美三级 | 韩国三级理论在线观看视频 | 欧美性xxxx极品高清 | 国产清纯白嫩大学生正在播放 | 狠狠色噜噜狠狠狠狠98 | 特黄特色三级在线观看 | 激情综合婷婷丁香六月花 | 欧美一级特黄视频 | 日本黄页网址 |