來源:互聯網網民 2008-06-01 02:03:16
評論一個成熟的軟件,對電子郵件的支持必不可少,用戶可以通過點擊程序界面上的鏈接用Delphi實現這一功能,使用非常簡單。
首先,在程序的interface部分加入uses Shellapi,因爲這個單元封裝了我們要使用的API函數。然後,我們就可以寫程序了。
下面是程序的代碼:
PRocedure SendMail
var
s String
begin
s = 'mailtoabc@def.com'
ShellExecute0 'open' PChars nil nil SW_SHOWNORMAL
end
這樣,執行這個過程,就可以自動打開電子郵件發送程序,給abc@def.com發送郵件了。
在實際使用過程中,有時需要同時給幾個郵箱發送郵件,只要改變s的值即可。
s = 'mailtoabc@def.com﹖to=abc1@def.com&to=abc2@def.com'
這樣就可以同時給幾個郵箱發送郵件了。
假如要確定電子郵件的標題和正文,可以給s賦值:
s = 'mailtoabc@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 = 'mailtoabc@def.com'
ShellExecute0 'open' PChars nil nil SW_SHOWNORMAL
end
這樣,執行這個過程,就可以自動打開電子郵件發送程序,給abc@def.com發送郵件了。
在實際使用過程中,有時需要同時給幾個郵箱發送郵件,只要改變s的值即可。
s = 'mailtoabc@def.com﹖to=abc1@def.com&to=abc2@def.com'
這樣就可以同時給幾個郵箱發送郵件了。
假如要確定電子郵件的標題和正文,可以給s賦值:
s = 'mailtoabc@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] 更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題,或