这是一道李维也不会的DELPHI难题,我敢打赌......(5分)

  • 主题发起人 主题发起人 delphiyesterday
  • 开始时间 开始时间
D

delphiyesterday

Unregistered / Unconfirmed
GUEST, unregistred user!
调用OUTLOOK发EMAIL时,如何把richedit1里的内容按原格式调入OUTLOOK里的内容框?
我的调用代码是这样,但格式全乱:
ShellExecute(Handle,'open',pchar( 'mailto:'+trim(edit11.Text)+
'?cc='+''+
'&bcc='+''+
'&Subject='+''+
'&body='+richedit1.Text) ,nil,nil,SW_SHOW);
 
content-type=text/rtf
 
lichengbin,什么意思呵?我的内容格式是.txt或.rtf都可以.帮下....
 
李维很厉害吗?
 
哪你也不会嘛。。。。
 
up.....first
 
先拷贝
用OLE方式打开OUTLOOK,粘贴。
格式都不会丢失的。
 
wr960204,能不能给具体的实现代码呵?急.
 
lichengbin的意思是不是这样:
ShellExecute(Handle,'open',pchar( 'mailto:'+trim(edit11.Text)+
'?cc='+''+
'&bcc='+''+
'&Subject='+''+
'&content-type=text/rtf&body='+
richedit1.Text),nil,nil,SW_SHOW);
 
你的RICHEDIT里肯定有软回车之类的东西。就酸你用COPY ,PASTE过去也会乱。你先试试看是不是?要想不变的话,处理这些出问题的字符。在把处理过的TEXT交给OL
 
后退
顶部