在Delphi中使用電子郵件
一個成熟的軟件，對電子郵件的支持必不可少，用戶可以通過點擊程序界面上的鏈接用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中運行通過。
更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題，或
![]()
兄弟共妻，我成了他們夜裏的美食老鍾家的兩個兒子很特別，就是跟其他的人不太一樣，魔一般的執著。兄弟倆都到了要結婚的年齡了，不管自家老爹怎麽磨破嘴皮子，兄弟倆說不娶就不娶，老父母爲兄弟兩操碎了心...
![]()
如何磨出破洞牛仔褲？牛仔褲怎麽剪破洞？把牛仔褲磨出有線的破洞
1、具體工具就是磨腳石，下面墊一個硬物，然後用磨腳石一直磨一直磨，到把那塊磨薄了，用手撕開就好了。出來的洞啊很自然的。需要貓須的話調幾...
![]()
我就是掃描下圖得到了敬業福和愛國福先來看下敬業福和愛國福
今年春節，支付寶再次推出了“五福紅包”活動，表示要“把欠大家的敬業福都還給大家”。
今天該活動正式啓動，和去年一樣，需要收集“五福”...
![]()
冰箱異味産生的原因和臭味去除的方法有時候我們打開冰箱就會聞到一股異味，冰箱裏的這種異味是因爲一些物質發出的氣味的混合體，聞起來讓人惡心。 産生這些異味的主要原因有以下幾點。
1、很多人有這種習...
![]()
什麽是脂肪粒？如何消除臉部脂肪粒？什麽是脂肪粒
在我們的臉上總會長一個個像脂肪的小顆粒，弄也弄不掉，而且顔色還是白白的。它既不是粉刺也不是其他的任何痘痘，它就是脂肪粒。
脂肪粒雖然也是由油脂...
![]()
如何防止牆紙老化？牆紙變舊變黃怎麽辦？如何防止牆紙老化？
（1）選擇透氣性好的牆紙
市場上牆紙的材質分無紡布的、木纖維的、PVC的、玻璃纖維基材的、布面的等，相對而言，PVC材質的牆紙最不透氣...
![]()
中國最美古詩詞精選摘抄系腰裙(北宋詞人 張先)
惜霜蟾照夜雲天，朦胧影、畫勾闌。人情縱似長情月，算一年年。又能得、幾番圓。
欲寄西江題葉字，流不到、五亭前。東池始有荷新綠，尚小如...
![]()
關于女人的經典語句關于女人的經典語句1、【做一個獨立的女人】
思想獨立：有主見、有自己的人生觀、價值觀。有上進心,永遠不放棄自己的理想，做一份自己喜愛的事業，擁有快樂和成就...
![]()
未來我們可以和性愛機器人結婚嗎？你想體驗機器人性愛嗎？你想和性愛機器人結婚嗎？如果你想，機器人有拒絕你的權利嗎？
近日，第二屆“國際人類-機器人性愛研討會”大會在倫敦金史密斯大學落下帷幕。而...
![]()
全球最變態的十個地方10.土耳其地下洞穴城市
變態指數：★★☆☆☆
這是土耳其卡帕多西亞的一個著名景點，傳說是當年基督教徒們爲了躲避戰爭而在此修建。裏面曾住著20000人，...
一個成熟的軟件，對電子郵件的支持必不可少，用戶可以通過點擊程序界面上的鏈接用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] 更多內容請看電子郵件安全 電子郵件使用基礎篇 郵件服務器專題專題，或
免責聲明：本文僅代表作者個人觀點，與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的，並不意味著贊同其觀點或證實其描述，其原創性以及文中陳述文字和內容未經本站證實，對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾，請讀者僅作參考，並請自行核實相關內容。
订阅
