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中sendmessage给一个edit控件发送wm_settext消息

Delphi 简单的 "双缓冲" 绘图的例子

Delphi文件操作所涉及的一些函数 附例子

delhi 获取进程图片

Delphi treeview中显示mainmenu菜单

Delphi利用scrollbox实现图像漫游

Delphi 字符串转换为16进制整数 整数转换为16进制字符串

Delphi firemonkey的tedit七大变化

Delphi 控制台 输入输出实例代码

Delphi 清空文件夹

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

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