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 richedit接受消息的问题

Delphi datasnap双缓存下载文件

Delphi 百度输入提示 Delphi 实现

Delphi ttabcontrol

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi结构,字符串和指针

Delphi 之 列表框组件(tlistbox)

Delphi获取盘符代码

Delphi篇之写托盘图标

Delphixe4 版本中,已针对移动平台 引入了 arc 模型

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...