//定义全局变量
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//创建打开outlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.application');
except
Outlook:=GetActiveOleObject('Outlook.Application');
end;
OutlookNameSpace:=Outlook.GetNamespace('MAPI');
OutlookFolder:=OutlookNameSpace.GetDefaultFolder(6);
MailItem:=OutlookFolder.items;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
CreateOutLook;
WebBrowser1.Navigate('about:');
end;
//搜索未读邮件 并用webbrowser1显示邮件内容
procedure TForm1.bt_SearchMailClick(Sender: TObject);
var
sch:Variant;
Smail:Variant;
strF:string;
i:integer;
mailbody:WideString;
begin
strF:='[senderEmailAddress]="%s" and [unread]=true';
strF:=Format(strF,[Trim(Edit1.Text)]);
sch:=MailItem.Restrict(strF);
mailbody:='找到符合条件的邮件数量：'+inttostr(sch.count);
for i:=1 to sch.count do
begin
Smail:=sch.item[i];
mailbody:=mailbody+Smail.HTMLBody;
end;
(webbrowser1.Document as IHtmlDocument2).body.innerHTML:='<div>'+mailbody+'</div>';
end;
//发送邮件
procedure TForm1.tb_SendMailClick(Sender: TObject);
begin
MailItem:=outlook.CreateItem(0);
MailItem.BodyFormat:=2;
MailItem.HTMLBody:='<html><Body>'
+'HI:<br> 你好!很久不见，最近可好？'
+'</body></html>';
MailItem.Recipients.add('baronyang@foxmail.com');
MailItem.Subject:='致朋友';
MailItem.Attachments.add('F:\MyFiles\login.ini');
MailItem.Attachments.add('F:\MyFiles\XXXXX.doc');
MailItem.Display;
end;
