在Delphi中使用電子郵件

2019-11-17 05:05:22

字體：大中小

來源：轉載

供稿：網(wǎng)友

　　一個成熟的軟件，對電子郵件的支持必不可少，用戶可以通過點擊程序界面上的鏈接用Delphi實現(xiàn)這一功能，使用非常簡單。

　　首先，在程序的interface部分加入uses Shellapi，因為這個單元封裝了我們要使用的API函數(shù)。然后，我們就可以寫程序了。

下面是程序的代碼：

PRocedure SendMail
var
s String
begin
s = 'mailto[email protected]'
ShellExecute0 'open' PChars nil nil SW_SHOWNORMAL
end

　　這樣，執(zhí)行這個過程，就可以自動打開電子郵件發(fā)送程序，給[email protected]發(fā)送郵件了。

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

s = 'mailto[email protected]﹖[email protected]&[email protected]'

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

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

s = 'mailto[email protected]﹖subject=hello&body=你好'

　　注重：

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

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

　　本程序在windows 2000 Profes sional、Delphi 5、MS Outlook EXPress中運行通過。