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 从twebbrowser webbrowser得到全部html源码

Delphi删除文件

Delphi sql server备份脚本

Delphi 从其它access数据导入数据到本地数据库

Delphi中messagebox的用法

Delphi shellexecute 发送邮件

Delphi 获取所有应用程序窗口标题 类似任务管理器

Delphi 检验指定字符串网址是否输入正确

Delphi线程中动态创建ado控件

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

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