如何实现？？把点一个按钮，打开EMAIL，并且把系统剪贴板里面的内容粘贴到EMAIL里面，同时填写好收件人（有默认的值）

Question

把点一个按钮，打开EMAIL，并且把系统剪贴板里面的内容粘贴到EMAIL里面，同时填写好收件人（有默认的值）

Answer 1

>>>>打开EMAIL
如果是打开OutLook之类的邮件客户端程序，那就得先判断当前系统默认邮件客户端程序是什么，然后再根据不同的程序分别处理，可以用FindWindow找到窗口，然后用SendMessage或PostMessage向收件人编辑框和正文编辑框发送内容。

Answer 2

理论上完全可以实现，
在保证网络和邮件服务器允许的情况下，在你的程序里添加NMSMTP控件（反正就是发放邮件你用什么都可以）
在按钮的点击中增加复制剪贴板里面的内容并粘贴到EMAIL的输入框中（可能会是一个MEMO吧）然后将另一存有地址的变量赋给存放地址的栏中（可能会是个EDIT什么的）
这应该已经达到你的目的了吧？
（没有D没法儿试了~~）

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  cp:TClipboard;
begin
  cp:=TClipboard.Create;
  s:=cp.AsText;
  ShellExecute(Handle,'open',pchar('mailto:XX公司<[email protected]>?subject=意见或建议&body='+s+''),'','',SW_NORMAL);
  cp.Free;
end;

Answer 4

armyguo(山坡羊)的方法可行。
uses Clipboard,ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
  cp:TClipboard;
  s: string;
begin
  cp:=TClipboard.Create;
  s:=cp.AsText;
  ShellExecute(Handle,'open',pchar('mailto:XX公司<[email protected]>?subject=意见或建议&body='+s+''),'','',SW_NORMAL);
  cp.Free;
end;

Answer 5

这个好像是EMAIL程序的一个运行参数而已.
联想到HTML中调用EMAIL的方式,你就会明白不是SENDMESSAGE的问题