Delphi调用outlook - dato0123 - ITeye博客

`

dato0123

浏览: 914736 次

最近访客更多访客>>

u012363178

spirit5800

hksy

fengyunbo

博主相关

博客

微博

相册

收藏

留言

关于我

文章分类

全部博客 (1706)

社区版块

存档分类

最新评论

wmaizai163：有源码文件么可调试的那种发我邮箱可以么 3906902 ...
java文件传输
shenselongge：排版能否改改
Mina2.0框架源码剖析（一）
grandry：谢谢！这是一个困扰我多时的问题
delphi的tclientdataset的中文过滤使用注意事项
LongXiTianXia：我不知道哪里下载那个组件
基于朴素贝叶斯分类器的文本分类算法（下）
LongXiTianXia：可以说一下分词组件怎么使用吗？
基于朴素贝叶斯分类器的文本分类算法（下）

Delphi调用outlook

阅读更多

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

分享到：

使用C语言扩展Python（一） | delphi调用Excel查找定位

2010-05-15 20:51
浏览 656
评论(0)
查看更多

评论

发表评论

您还没有登录,请您登录后再发表评论

相关推荐

delphi调用Outlook的接口: delphi调用Outlook的接口，是老外写的。测试是OK的。

delphi 调用 outlook 发送带附件的邮件: delphi 调用 outlook 发送带附件的邮件

delphi两种方法调用Outlook发邮件: delphi两种方法调用Outlook发邮件两种方法，第一种会弹出三次询问，而第二种只弹出一次询问，大家有时间可以看看两种方法为什么会有不同的结果。顺便发个邮件告诉我啊。代码里有我的邮件地址。。。呵呵。

Delphi读取OutLook Express邮件及WAB通訊錄: 本程序采用Delphi7编写的，没有用任何其他第三方控件，非调用OutLook程序實現，邮件信息和WAB通讯录读取功能核心代码采用开放的免费代码；二、缺点：邮件信息的显示效果没有做好，WAB文件不能创建。

Delphi7 编程 100 实例: ToolBar工具栏控件的使用动态建立主菜单选项窗口界面的动态分隔条动态设置选项卡页面在标题栏中自定义按钮窗体开合窗帘效果 Windows XP界面效果实现OutLook滚动工具栏效果在下拉列表...

Delphi 7编程100例: Delphi 7编程100例 ToolBar工具栏控件的使用动态建立主菜单选项窗口界面的动态分隔条动态设置选项卡页面在标题栏中自定义按钮窗体开合窗帘效果 Windows XP界面效果实现OutLook滚动工具栏效果在下拉列表框中...

Delphi编程100例: 实现OutLook滚动工具栏效果在下拉列表框中显示树形视图自定义系统的About项修改系统级菜单实现透明窗体效果爆破特技窗体只允许建立一次子窗体的MDI程序从外部DLL中调用子窗口新颖的资源管理器界面如何生成...

Delphi7编程100例: 实现OutLook滚动工具栏效果在下拉列表框中显示树形视图自定义系统的About项修改系统级菜单实现透明窗体效果爆破特技窗体只允许建立一次子窗体的MDI程序从外部DLL中调用子窗口新颖的资源...

《Delphi7编程100例》代码: 《Delphi7编程100例》代码目录：---------------------------------------------ToolBar工具栏控件的使用动态建立主菜单选项窗口界面的动态分隔条动态设置选项卡页面在标题栏中自定义按钮窗体开合窗帘效果Windows XP...

DELPHI7 100个源代码实例+目录: ToolBar工具栏控件的使用 ...实现OutLook滚动工具栏效果在下拉列表框中显示树形视图自定义系统的About项修改系统级菜单实现透明窗体效果爆破特技窗体只允许建立一次子窗体的MDI程序从外部DLL中调用子窗口 ......

Delphi开发范例宝典目录: 实例012　OutLook界面　14 实例013　带导航菜单的主界面　15 实例014　图形化的导航界面　16 1.5　特色程序界面　18 实例015　类QQ的程序界面　18 实例016　类似Windows XP的程序界面　20 实例017　以图形按钮显示的...

delphi7编程百例: ToolBar工具栏控件的使用动态建立主菜单选项窗口界面的动态分隔条动态设置选项卡页面在标题栏中自定义按钮窗体开合窗帘效果 Windows XP界面效果实现OutLook滚动工具栏效果...

专业屏幕取词引擎GetWord: Windows 2000/Windows XP/Windows Server 2003/Windows Vista/windows 7支持的软件开发环境: GetWord支持所有主流的软件开发环境，如Visual Studio 6.0, Visual Studio .Net 2003, Visual Studio .Net 2005, Delphi ...

专业屏幕取词引擎getword: 9. 支持各种常见办公软件，如微软Office、Outlook Express等. 10. 支持各种常见浏览器，如IE、FireFox、Mozilla、MyIE、Netscape等. 11. 支持鼠标取词、热键取词等多种取词模式. 支持ActiveX、Raw Dll等多种调用...

专业屏幕取词引擎-GetWord v5.0: 9. 支持各种常见办公软件，如微软Office、Outlook Express等. 10. 支持各种常见浏览器，如IE、FireFox、Mozilla、MyIE、Netscape等. 11. 支持鼠标取词、热键取词等多种取词模式. 支持ActiveX、Raw Dll等多种调用接口...

vc++ 应用源码包_1: 利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...

vc++ 应用源码包_2: 利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...

vc++ 应用源码包_6: 利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...

vc++ 应用源码包_5: 利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...

vc++ 应用源码包_3: 利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框...

Global site tag (gtag.js) - Google Analytics