|
Outlook Add-in(COM加载项）技术指南 XML:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" />2.1.2.2. IDTExtensibility2_OnDisconnection事件OnDisconnection事件中，我们销毁所有的全局对象。 2.1.2.3. IDTExtensibility2_OnStartupComplete事件OnStartupComplete事件主要的工作就是，创建工具栏和按钮，如果它们不存在的话。 我们首先搜索EXPlorer对象的CommandBars集合，以察看我们的“短信速递”工具栏是否存在。如果找到该工具栏，则只需使之可见。 如果没有找到我们的工具栏，那么我们将创建工具栏： 通过传递命令栏的名称及Temporary参数，代码将把新的CommandBar对象添加到CommandBars集合中。 Temporary参数指出Outlook应该在Outlook会话间保持命令栏。然后，代码开始创建命令上的按钮。 为了创建按钮，代码将使用CommandBars对象的Controls集合。 然后，代码将把2个按钮控件添加到集合中。控件类型是由msoControlButton常量来标识的。 代码还将为所有控件传递ID 1；表示这个控件是自定义控件而不是内置控件。 代码还将传递Temporary参数并将它设置为False，以使Outlook在会话间保持按钮。 代码接收到来自于Control集合Add方法的CommandBarButton对象之后，它将开始设置CommandBarButton对象的属性： u Caption属性：控件的默认屏幕提示； u FaceId属性：指定按钮的外观。 u Style属性：比如，显示按钮外观和标题文本的msoButtonIconAndCaption。 您看到，我们前面声明g_oCreateSMSBHandler使用WithEvents关键词，被声明为Office.CommandBarButton， 它指出g_oCreateSMSBHandler用来响应CommandBarButton的事件。 2.1.2.4. IDTExtensibility2_OnBeginShutdown事件OnBeginShutdown事件中，我们销毁所有的全局对象。 在VB中，我们需要使用一些Outlook中的对象模型。下面我们一一列出： 2.2.1.Application对象这是整个模型的根对象。 根对象提供对其他对象模型的访问。在 Outlook 中使用 VBA 时，Application 对象被隐含声明， 这样您可以选择是否使用 Application 关键字。 2.2.2.NameSpace对象用于访问存储项目（如文件夹）。“MAPI”是唯一可以使用的名称空间。 2.2.3.Explorer对象这是显示 Outlook 项目集合的默认界面。每个不同的项目类型都有不同的浏览器。 2.2.4.CommandBars集合在Office应用程序中，尽管菜单和工具栏按钮看上去不太一样，但实质上它们是相同类型的对象。 CommandBars集合包含程序中的所有命令条，如：工具条和菜单条。 每一个CommandBars集合都有一个CommandBar对象和它对应，CommandBar 对象可以包含其它的 CommandBar 对象，这些对象是作为按钮或菜单命令来用的。每一个CommandBar都将通过CommandBarControls 对象被引用， CommandBarControls又可以包含一组CommandBarControl对象。每一个CommandBarControl可以包含一个CommandBar对象，并可以通过它来存取控件属性。每一个CommandBarControl对象，实际是对应CommandBarControls中的控件集合。 CommandBarControl可以有三种表现形式： n 弹出式 (CommandBarPopup): 相当于菜单条的一个菜单项? n 组合框(CommandBarComboBox)：类似于工具条中组合框控件。它包括一个工具栏和紧接着工具栏的一个下拉箭头。单击该按钮，将显示出更多的带图标的菜单命令。 n 按钮(CommandBarButton)：相当于标准的工具栏按钮，即带有图标的按钮。 2.2.5.Items集合Items对象集合包括指定文件夹中所有Item条目对象。其中， Item对象用于包含特定的 Outlook 数据，例如电子邮件消息、约会或联系人。 Ø Outlook.AppointmentItem 日程的条目对象 Ø Outlook.ContactItem 联系人的条目对象 Ø Outlook.MailItem 邮件的条目对象 Ø Outlook.NoteItem 便笺的条目对象 2.2.6.Selection集合 Selection对象包括在用户界面中用户选定的项目组。 在VB中，我们需要填写类似于“g_oCreateSMSBHandler_Click”函数，对按钮的点击作出响应。下面我们一一列出两个按钮的事件： 2.3.1. g_oCreateSMSBHandler_Click事件这个按钮的名称是“创建短信”。 “联系人列表”将从您的Outlook联系人中读取，只显示那些提供了移动电话号码的联系人。您点击某一个联系人，我们把这个联系人加入“收信人手机号码”的编辑框中。 本事件主要的事情就是，弹出一个“发送短信”的对话框。并取出联系人中设置了移动号码的。 其他的细节我们就不再介绍了，介绍一下默认Outlook联系人的获取问题： 首先我们通过 Set olContacts = g_oNS.GetDefaultFolder(olFolderContacts).Items 获得默认的联系人文件夹的Items集合。 然后，用 For Each olContact In olContacts 遍历这个Items集合。这个集合中的每一个对象都应该是一个“Outlook.ContactItem”Item对象。所以我们可以获得这个Item对象的显示名称和移动手机号码。 我们只显示那些拥有移动手机号码的联系人。 代码如下所示： ' 准备取出联系人中带有移动号码的作为收信人: ' Dim olContacts As Outlook.Items Dim olContact As Outlook.ContactItem ' ' GetDefaultFolder 方法基于 FolderType 参数返回默认的文件夹 ' （例如，olFolderInbox 常量将“收件箱”文件夹返回给当前登录的用户）。 ' 我们现在选择进入的是： ' 包含 ContactItem 对象和 DistListItem 对象的“联系人”文件夹 (olFolderContacts)。 Set olContacts = g_oNS.GetDefaultFolder(olFolderContacts).Items frmMenuMain.listContact.Clear Dim nIndex As Integer Dim szContactItem As String nIndex = 0 On Error Resume Next ' 遍历每一个联系人： For Each olContact In olContacts If Len(olContact.MobileTelephoneNumber) = 11 Then ' 联系人的显示名称： szContactItem = Replace(olContact.FileAs, "[", "") szContactItem = Replace(szContactItem, "]", "") ' 联系人的移动号码： frmMenuMain.listContact.AddItem szContactItem & "[" & _ olContact.MobileTelephoneNumber & "]", nIndex nIndex = nIndex + 1 End If Next On Error GoTo 0 |
[版权声明： 第二章部分文字引用自《Programming Microsoft Outlook and Exchange》一书，该书作者Thomas Rizzo，特此声明] 本文档仅供参考。本文档所包含的信息代表了在发布之日，zhengyun对所讨论问题的当前看法，zhengyun不保证所给信息在发布之日以后的准确性。
|
