5,392
社区成员
发帖
与我相关
我的任务
分享
try
Outlook.Connect;
Item:=Outlook.CreateItem(olMailItem) as _MailItem;
Item.GetInspector;
//处理收件人
Item.To_:=lbSENDER.Caption;
if lbCC.Caption<>'' then
Item.CC:=lbCC.Caption;
//处理标题 :如果不包含RE和答复,则加上RE;
S:=lbTITLE.Caption;
if (Pos('RE:',UpperCase(S))<>1)and(Pos('答复:',UpperCase(S))<>1)and(Pos('答复:',UpperCase(S))<>1) then
S:='RE: ' + S;
Item.Subject:=S;
Item.HTMLBody:=Content.Text;
Item.Display(False); //在这里打开Outlook写邮件窗口,内容为Content.Text
Outlook.Disconnect;
except
on E:System.Sysutils.Exception do
begin
Msgbox('错误:调用Outlook时发生错误:' + E.Message, 0);
end;
end;