Delphi调用outlook

最新推荐文章于 2021-07-02 17:08:04 发布

iteye_5736

最新推荐文章于 2021-07-02 17:08:04 发布

阅读量370

点赞数

//定义全局变量 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;