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

[zhouxiaochenchina]

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

[flyforlove]

"打开EMAIL"

打开什么email????

[抱朴守拙]

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

[shitianj]

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

[手指风]

shellexcute?????????

[armyguo]

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

[抱朴守拙]

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公司<[e-mail]>?subject=意见或建议&body='+s+''),'','',SW_NORMAL);
cp.Free;
end;

[GoldShield]

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

[zhouxiaochenchina]

我自己搞定了，呵呵

[wilowind]

强， 接分吧

[zdq801104]

就是，大家那么辛苦为你想办法，自己搞定也要给分的，分不好争呀

[armyguo]

不负责，答完问题不给分。

[tengulre]

UP

[zhouxiaochenchina]

你们没有说对，我为什么要给你们分啊？

[zhouxiaochenchina]

乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......乞丐......