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提取exe,dll文件的icon图标

Delphi xe 网上获取北京时间android app 启动黑屏优化补丁

Delphi文本数据导入数据库的方法

Delphi编解码js字符串

Delphi如何删除数据库重复记录(4种方法)

Delphi 如何确定windows安装的语言

Delphi 链接获取主站地址

Delphi 调用js脚本

Delphi xe 10.2.1 fmx平台 在图片上写字方法

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