Delphi ShellExecute 发送邮件

本文整理自网络，侵删。

 

 uses
 shellapi;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
  em_subject, em_body, em_mail : string;
 
 begin
  em_subject := 'Test Message';
  em_body := 'Hello this is a test Message from Shell Execute Command to Open the 
 Default Mail Wndow'
 
  em_mail := 'mailto:jdhiraj@rediffmail.com?subject=' +
 em_subject + '&body=' + em_body ;
 
  ShellExecute(Handle,'open',
  PChar(em_mail), nil, nil, SW_SHOWNORMAL);
 end;

 

相关阅读 >>

Delphi 大小写字符串转换

Delphi webbrowser设置自己定义user-agent

Delphi 过滤所有空格的函数

Delphi 利用unigui中的tunipagecontrol实现多页面

Delphi 多种方法查找窗口句柄

Delphi 取正在运行的dll或exe的路径

Delphi android windows ios通用获取程序版本

Delphi 让程序支持外来文件拖放的单元文件

Delphi中输入法模式imemode属性的解释

Delphi通过url获取网页源码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ShellExecute 发送邮件