Delphi中新增邮件

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

实现代码如下：

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是执行文件，则该参数指定程序的初始显示方式。

 

转载于:https://blog.51cto.com/jayai/222810