ShellExecute(Handle,'open',pchar( 'mailto:'+trim(edit1.Text)+'?Subject='+trim(edit2.Text)+'&body='+memo1.Lines.Text) ,nil,nil,SW_SHOW);
这是个调用OUTLOOK发邮件的例子,
收件人=edit1.text;
主题=edit2.text;
内容=memo1.lines.text;现在我要加一个“抄送=edit3.text",上面的代码如何改?
这是个调用OUTLOOK发邮件的例子,
收件人=edit1.text;
主题=edit2.text;
内容=memo1.lines.text;现在我要加一个“抄送=edit3.text",上面的代码如何改?
解决方案 »
- dxdbtreeview 求救
- 变量赋值问题啊!!痛苦啊!
- 求一条sql insert 语句。急急!!
- 如何用回车键代替Tab键,切换输入焦点?
- 在100多m的大文本文件中如何搜索字符串?
- 关于param赋值得问题(100分)
- Delphi中怎么样修改注册表中的Dword值?
- 怎样编写在局域网中收发邮件的程序?
- 请问怎样去掉windows2000 server的开机屏幕和关机屏幕!该死的金上毒霸,卸了之后还留下这么大一个尾巴让你难受!
- 如何将excel表转换成access?http://www.csdn.net/expert/topic/520/520224.shtm
- 急!!关于用Package开发的一个问题,回答都有分,如果分数不够继续添加!!
- 请问 TcxGrid 能实现象 TStringGrid 类似的功能吗?
ShellExecute(Handle, 'open','mailto:a@b' +'?cc=x@y' +'&bcc=z@d' +
'&subject="Hello%20how%20are%20you"' +
'&body="This%20is%0Aa%20two%20line%20message."',
nil, nil, SW_NORMAL);