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 递归遍历treeview树节点

Delphi delete 字符串函数

Delphi winapi: getparent - 判断两个窗口是不是父子关系

Delphi checklistbox用法

Delphi的dll中获取文件路径

Delphi 自定�x分割字符串

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi获取开机时间代码

Delphi 方便的文本文件操作(text)

Delphi 获取jpg文件宽度高度的方法

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

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