在Delphi中使用电子邮件

王朝delphi·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

一个成熟的软件,对电子邮件的支持必不可少,用户可以通过点击程序界面上的链接用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中运行通过。

更多内容请看电子邮件安全 电子邮件使用基础篇 邮件服务器专题专题,或

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航