MyException - 我的异常网
当前位置:我的异常网» Delphi » 怎样通过Delphi调用Outlook发送任务、会议、约会解

怎样通过Delphi调用Outlook发送任务、会议、约会解决方法(2)

www.MyException.Cn  网友分享于:2013-02-15  浏览:59次

OutlookFolder.Display;
end;
6.用MAPIFolder对象的Items属性返回该对象包含的条目对象集合。
有三种方法可以返回指定的条目对象:
●可以用Items(名字)方法返回指定的条目对象。如:下面语句返回指定文件夹中题目为“会议通知”的条目对象:
  OutlookMailItem:=OutlookFolder.Items(‘会议通知’);
●也可以用Items(索引)方法返回指定的条目对象。返回指定文件夹中第一个条目对象的方法如下:
  OutlookMailItem := OutlookFolder.Items(1);
下面例子遍历指定文件夹(MAPIFolder对象)中所有条目对象集合,并显示条目主题。
for i := 1 to OutlookFolder.Items.Count do
begin
Caption := Caption +‘-’ + String(OutlookFolder.Items[i]);
OutlookFolder.Items[i].Display;
end;
注意:若指定文件夹不包括任何条目,则Items对象集合的Count属性为0。
------解决方案--------------------
还可以用Items条目集合的Find方法查找条目。这是在Outlook文件夹中查找那些没有唯一标识的条目的唯一可行的方法。如:
OutlookMailItem := OutlookFolder.Items.Find(‘[Subject] = “会议通知”’);
一旦找到满足搜索条件的第一个条目,可以用FindNext方法继续搜索其余条目。
有两种方法可以建立新条目对象:
●用Application对象的CreateItem方法创建默认条目对象,如AppointmentItem、ContactItem、JournalItem、MailItem、NoteItem、PostItem或TaskItem等。Outlook自动将新建条目保存到默认文件夹中。下面语句创建一个新邮件:
OutlookMailItem := Outlook.CreateItem
(olMailItem);
下面语句创建一个新联系人:
OutlookContactItem := Outlook.CreateItem(olContactItem);
●用Items对象集合的Add方法创建指定类型的条目对象。若未指定条目对象类型,则默认为父文件夹条目对象类型。若该文件夹从未指定类型,则默认条目对象类型为MailItem。下面语句将在当前Contacts文件夹中新建一个ContactItem条目。
OutlookContactItem := Outlook.GetNamespace
(‘MAPI’).GetDefaultFolder (olFolderContacts)
.Items.Add;
也可以如下所示分成几行语句完成:
OutlookNameSpace := Outlook.GetNamespace(‘MAPI’);
OutlookFolder := OutlookNameSpace.
GetDefaultFolder(olFolderContacts);
OutlookContactItem := OutlookFolder.Items.Add(olContactItem);
还可以使用自定义表单向当前Contacts文件夹中加入新联系人,如:
OutlookFolder := OutlookNameSpace.
GetDefaultFolder(olFolderContacts);
OutlookContact := OutlookFolder.Items.Add(‘IPM.Contact.MyForm’);
最后,调用Item对象的Save或Send方法保存或发送新建条目。
不论是MAPIFolder对象还是Item对象,均可以调用Display方法显示对应的窗口。如OutlookContactFolder.Display可以显示联系人文件夹,OutlookTaskItem.Display可以显示任务条窗口等。
OutlookTaskItem.Display;
编程实例:创建并发送一个新邮件消息
首先调用发件箱文件夹Items条目对象集合的Add方法创建新邮件条目对象(olMailItem类型);其次调用Recipients 对象集合的Add方法来创建一个收件人,调用Attachments对象集合的Add方法来增加一个附件;然后设置邮件消息的Subject(主题)、Body(正文)(事实上所有Outlook对象都有主题和正文属性)、To(收件人)等属性;最后调用Send方法发送邮件。
完整的程序清单如下所示:
procedure SendMail;
var
Outlook: variant;{ Application }
OutlookNameSpace: variant;{ NameSpace }
OutlookFolder: variant;{ MAPIFolder }
OutlookMailItem: variant;{ MailItem }
OutlookRecipient: variant;{ Recipient }
OutlookAttachment: variant;{ Attachment }
begin
try
Outlook:=CreateOleObject(‘Outlook.
Application’);
except
ShowMessage(‘无法启动Microsoft Outlook!’);
Exit;
end;
try
OutlookNameSpace := Outlook.GetNamespace(‘MAPI’);
{ 创建新邮件消息 }
OutlookFolder := OutlookNameSpace.GetDefault
Folder(olFolderOutbox);
{ 增加收件人(若地址薄中已有此人,则仅用其名字即可,否则必须包括完整地址,如OutlookNameSpace.CurrentUser.Address)}
OutlookMailItem := OutlookFolder.Items.Add(olMailItem);
OutlookRecipient := OutlookMailItem.
Recipients.
Add(‘ZhangChunming’);
OutlookRecipient.Type := olTo;
if not OutlookRecipient.Resolve then
begin
ShowMessage(‘无法解析地址!’);
Exit;
end;
{ 插入附件(确保路径正确) }
OutlookAttachment := OutlookMailItem.
Attachments.Add(‘c:\readme.txt’);
OutlookAttachment.DisplayName := ‘样本附件’;
{ 设置邮件主题、邮件正文和重要性 }
OutlookMailItem.Subject := ‘邮件主题’;
OutlookMailItem.Body := ‘此处为邮件内容’;
OutlookMailItem.Importance := olImportanceHigh;
OutlookMailItem.Send;
finally
OutlookRecipient := Unassigned;
OutlookAttachment := Unassigned;
OutlookMailItem := Unassigned;
OutlookFolder := Unassigned;
OutlookNameSpace := Unassigned;
Outlook := Unassigned;

文章评论

程序员的鄙视链
程序员的鄙视链
Java程序员必看电影
Java程序员必看电影
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
 程序员的样子
程序员的样子
10个调试和排错的小建议
10个调试和排错的小建议
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
每天工作4小时的程序员
每天工作4小时的程序员
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
编程语言是女人
编程语言是女人
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
中美印日四国程序员比较
中美印日四国程序员比较
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
程序员和编码员之间的区别
程序员和编码员之间的区别
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
老程序员的下场
老程序员的下场
程序员都该阅读的书
程序员都该阅读的书
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
漫画:程序员的工作
漫画:程序员的工作
程序员必看的十大电影
程序员必看的十大电影
写给自己也写给你 自己到底该何去何从
写给自己也写给你 自己到底该何去何从
鲜为人知的编程真相
鲜为人知的编程真相
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
我的丈夫是个程序员
我的丈夫是个程序员
程序员应该关注的一些事儿
程序员应该关注的一些事儿
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
如何成为一名黑客
如何成为一名黑客
旅行,写作,编程
旅行,写作,编程
那些争议最大的编程观点
那些争议最大的编程观点
代码女神横空出世
代码女神横空出世
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
一个程序员的时间管理
一个程序员的时间管理
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有