Delphi中新增邮件

2016-08-22 10:18:20来源:http://jayai.blog.51cto.com/510093/222810作者:aammjian人点击


最近帮业务部编写快递系统,方便领导控制快递的费用。其中遇到这么个问题,就是每个面单寄送出去后,都会发一封邮件给客户,用户的意思就是直接在系统中直接点个按钮,然后新增一封邮件,并且能够将邮件的内容按照固定格式大致填写完毕。
实现代码如下:

var strMail : string; begin strMail := 'mailto:yourmail@126.com?subject=Express&body=Dear'; ShellExecute(Handle, 'Open', PChar(strMail), '', '', SW_SHOWNORMAL); end
其中要调用API函数,所以开始的时候要先调用shellApi,
shellApi函数的原型是:
function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; stdcall;
其中参数的意义是:
hWnd:指定父窗口句柄;一般把他设为应用窗口的句柄:application.handle;
Operation:用于指定要执行的操作,本例就是open,一般默认是open;
FileName:要打开或要执行的程序名,文件名;
Parameters:如果filename是执行文件,则此参数就是指定命令行参数,一般是nil或pchar(0);
Directory:用于指定默认目录;
ShowCmd:若filename是执行文件,则该参数指定程序的初始显示方式。

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台