strmsg:='mailto:'+EmailEdit.text+'?Subject='+'主题'+'&Body=';
if mainform.WordMemo.Lines.Count>1 then
begin
strmsg:=Strmsg+mainform.wordMemo.lines[0];
for i:=1 to mainform.wordmemo.lines.count-1 do
strmsg:=strMsg+'%0d%0a'+mainform.wordmemo.lines;
shellexecute(handle,'open',pchar(strMsg),'','',Sw_show);
end;
我用这段调用过,而且只要mainform.wordmemo的text不是很多就可以完完全全的
写到outlook里去。我想用附件应该也是可以的。但是不知道怎么用啦。
再问:shellexe跟shellexecute应该是一样的吧。