OutLook 编程

雨点打透心脏的1/2处 2022-07-15 01:50 160阅读 0赞

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> Microsoft Outlook是可编程桌面信息管理程序。由于Microsoft Outlook本身不包含Visual Basic for Applications，但包括完整的类型库(type library)和Visual Basic Scripting Edition (VBScript)，因此，Outlook对象编程可以采用两种方法：即VBScript脚本编程方法和Automation自动化编程方法。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> VBScript脚本编程方法一般用于设计基于Outlook的本地化解决方案；而Automation（或OLE Automation）自动化编程方法则是用于建立用户自己的群件或邮件系统。可以使用早期绑定或后期绑定来开始一个Automation过程。本文将以后期绑定为例介绍在Delphi 5编程环境下，Outlook的Automation对象编程方法。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> Outlook基于Microsoft Exchange消息系统，更具体地说是基于MAPI(Messaging Application Programming Interface)来存储数据。若将Outlook安装到一台没有其他任何消息组件的计算机中，则安装程序会自动安装基于MAPI的Microsoft Exchange消息系统。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 与任何一种消息系统一样，Microsoft Exchange使用一个层次化的文件夹(Folder)集合来存储数据。文件夹可以包含子文件夹（如收件箱、发件箱等）和条目（Item）（如邮件消息、约会、联系人和任务等）。正是由于这种不确定性，使Outlook编程与以文档为中心的其他Office产品编程相比更具挑战性，是所有Microsoft Office程序中对象编程最复杂的一种。Automation解决方案在很大程度上就是在这种文件夹层次中导航。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 在Outlook对象模型中，Application对象包含NameSpace对象；NameSpace对象包含给定数据源（如MAPI消息库）中所有文件夹，即MAPIFolder对象集合；MAPIFolder对象包含该文件夹中所有条目对象；每个条目对象包含用于对其进行控制的可编程对象。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●Application对象是整个模型的根对象，由CreateOleObject或GetActiveOleObject 函数返回；</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●NameSpace对象代表任何可识别数据源，如MAPI消息库；</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●Folders对象集合包括指定消息库（或任何可识别数据源）及其下级文件夹中所有的MAPIFolder文件夹对象；</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 1．在Delphi 5中，采用后期绑定来初始化一个Automation过程时，建议引用outlook8.pas单元，该单元包括Outlook类型库中所用常量定义。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 若使用后期绑定，则所有对象变量均必须为Variant类型，如OutlookApplication, OutlookNameSpace等。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 4．调用Outlook名字空间的Logon 方法登记到邮件系统。该方法的四个参数的含义分别为Microsoft Exchange Profile文件名、口令、是否显示标准登录对话框、是否建立一个新的Microsoft Exchange会话。例如：</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookNameSpace.Logon(ProfileStr, PasswordStr, False, True);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 此外，还可以使用文件夹集合Folders（索引）方法查找文件夹。这是查找自定义、非标准文件夹的唯一方法。如：</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> urgentFolder := olMAPI.Folders(“Mailbox － Zhang Chunming”).Folders(“Urgent”);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> if OutlookReciepientItem.Resolved &lt;&gt; 0 then</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> GetSharedDefaultFolder(OutlookReciepientItem,</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●可以用Items（名字）方法返回指定的条目对象。如：下面语句返回指定文件夹中题目为“会议通知”的条目对象：</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookMailItem:=OutlookFolder.Items(‘会议通知’);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●也可以用Items（索引）方法返回指定的条目对象。返回指定文件夹中第一个条目对象的方法如下：</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 下面例子遍历指定文件夹（MAPIFolder对象）中所有条目对象集合，并显示条目主题。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●还可以用Items条目集合的Find方法查找条目。这是在Outlook文件夹中查找那些没有唯一标识的条目的唯一可行的方法。如：</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookMailItem := OutlookFolder.Items.Find(‘[Subject] = “会议通知”’);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 一旦找到满足搜索条件的第一个条目，可以用FindNext方法继续搜索其余条目。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●用Application对象的CreateItem方法创建默认条目对象，如AppointmentItem、ContactItem、JournalItem、MailItem、NoteItem、PostItem或TaskItem等。Outlook自动将新建条目保存到默认文件夹中。下面语句创建一个新邮件：</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookContactItem := Outlook.CreateItem(olContactItem);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> ●用Items对象集合的Add方法创建指定类型的条目对象。若未指定条目对象类型，则默认为父文件夹条目对象类型。若该文件夹从未指定类型，则默认条目对象类型为MailItem。下面语句将在当前Contacts文件夹中新建一个ContactItem条目。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookContactItem := OutlookFolder.Items.Add(olContactItem);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookContact := OutlookFolder.Items.Add(‘IPM.Contact.MyForm’);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 最后，调用Item对象的Save或Send方法保存或发送新建条目。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 不论是MAPIFolder对象还是Item对象，均可以调用Display方法显示对应的窗口。如OutlookContactFolder.Display可以显示联系人文件夹，OutlookTaskItem.Display可以显示任务条窗口等。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 首先调用发件箱文件夹Items条目对象集合的Add方法创建新邮件条目对象（olMailItem类型）；其次调用Recipients 对象集合的Add方法来创建一个收件人，调用Attachments对象集合的Add方法来增加一个附件；然后设置邮件消息的Subject（主题）、Body（正文）（事实上所有Outlook对象都有主题和正文属性）、To（收件人）等属性；最后调用Send方法发送邮件。</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> { 增加收件人（若地址薄中已有此人，则仅用其名字即可，否则必须包括完整地址，如OutlookNameSpace.CurrentUser.Address）}</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookMailItem := OutlookFolder.Items.Add(olMailItem);</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> OutlookMailItem.Body := ‘此处为邮件内容’;</td> 
  </tr> 
 </tbody> 
</table>

<table style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun; font-size:14px; background-color:rgb(156,174,193)"> 
 <tbody> 
  <tr> 
   <td style="margin:0px; padding:0px; font-family:Verdana,宋体,sans-serif; line-height:18px"> 注意：为避免程序运行时产生异常，程序做了相应的异常处理，如：调用收件人的Resolve方法以确保收件人的有效性等。</td> 
  </tr> 
 </tbody> 
</table>