| 導購 | 订阅 | 在线投稿
分享
 
 
 

在Delphi中使用電子郵件

2008-06-01 02:03:16  編輯來源:互聯網  简体版  手機版  評論  字體: ||
 
  一個成熟的軟件,對電子郵件的支持必不可少,用戶可以通過點擊程序界面上的鏈接用Delphi實現這一功能,使用非常簡單。

  首先,在程序的interface部分加入uses Shellapi,因爲這個單元封裝了我們要使用的API函數。然後,我們就可以寫程序了。

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  

  下面是程序的代碼:

  PRocedure SendMail

  var

  s String

  begin

  s = 'mailtoabc@def.com'

  ShellExecute0 'open' PChars nil nil SW_SHOWNORMAL

  end

  這樣,執行這個過程,就可以自動打開電子郵件發送程序,給abc@def.com發送郵件了。

  在實際使用過程中,有時需要同時給幾個郵箱發送郵件,只要改變s的值即可。

  s = 'mailtoabc@def.com﹖to=abc1@def.com&to=abc2@def.com'

  這樣就可以同時給幾個郵箱發送郵件了。

  假如要確定電子郵件的標題和正文,可以給s賦值:

  s = 'mailtoabc@def.com﹖subject=hello&body=你好'

  注重:

  1.給標題和正文賦值時不需要加引號。

  2.雖然很多資料上都說:假如標題和正文中含有空格,需要將它轉換爲%20。但筆者在調試程序的過程中,即使不作轉換,程序也可以正常運行。

  本程序在windows 2000 Profes sional、Delphi 5、MS Outlook EXPress中運行通過。
在Delphi中使用電子郵件
更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題,或
 
  一個成熟的軟件,對電子郵件的支持必不可少,用戶可以通過點擊程序界面上的鏈接用Delphi實現這一功能,使用非常簡單。   首先,在程序的interface部分加入uses Shellapi,因爲這個單元封裝了我們要使用的API函數。然後,我們就可以寫程序了。 下面是程序的代碼: PRocedure SendMail var s String begin s = 'mailtoabc@def.com' ShellExecute0 'open' PChars nil nil SW_SHOWNORMAL end   這樣,執行這個過程,就可以自動打開電子郵件發送程序,給abc@def.com發送郵件了。   在實際使用過程中,有時需要同時給幾個郵箱發送郵件,只要改變s的值即可。 s = 'mailtoabc@def.com﹖to=abc1@def.com&to=abc2@def.com'   這樣就可以同時給幾個郵箱發送郵件了。   假如要確定電子郵件的標題和正文,可以給s賦值: s = 'mailtoabc@def.com﹖subject=hello&body=你好'   注重:   1.給標題和正文賦值時不需要加引號。   2.雖然很多資料上都說:假如標題和正文中含有空格,需要將它轉換爲%20。但筆者在調試程序的過程中,即使不作轉換,程序也可以正常運行。   本程序在windows 2000 Profes sional、Delphi 5、MS Outlook EXPress中運行通過。 [url=/bbs/detail_1785256.html][img]http://image.wangchao.net.cn/it/1323424121527.gif[/img][/url] 更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題,或
󰈣󰈤
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
王朝網路微信公眾號
微信掃碼關註本站公眾號 wangchaonetcn
 
  免責聲明:本文僅代表作者個人觀點,與王朝網絡無關。王朝網絡登載此文出於傳遞更多信息之目的,並不意味著贊同其觀點或證實其描述,其原創性以及文中陳述文字和內容未經本站證實,對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾,請讀者僅作參考,並請自行核實相關內容。
 
© 2005- 王朝網路 版權所有