在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中運行通過。

更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題，或

　　一個成熟的軟件，對電子郵件的支持必不可少，用戶可以通過點擊程序界面上的鏈接用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] 更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題，或