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 字符转16进制、16进制转字符

Delphi 字符串查找函数

Delphi汉字简繁体转换代码

Delphi窗口显示和关闭的时候出现动画效果

Delphi idftp连接

Delphi 2009 之 tstringbuilder 类[1]: create

Delphi删除cookie和ie缓存

Delphi 调用相应程序打开网址

Delphi 配置驱动程序（firedac）

Delphi playsound(); 停止播放

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

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