Outlook Add-in(COM加载项)技术指南
OnDisconnection事件中,我们销毁所有的全局对象。
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的事件。
OnBeginShutdown事件中,我们销毁所有的全局对象。
在VB中,我们需要使用一些Outlook中的对象模型。下面我们一一列出:
这是整个模型的根对象。
根对象提供对其他对象模型的访问。在 Outlook 中使用 VBA 时,Application 对象被隐含声明,
这样您可以选择是否使用 Application 关键字。
用于访问存储项目(如文件夹)。“MAPI”是唯一可以使用的名称空间。
这是显示 Outlook 项目集合的默认界面。每个不同的项目类型都有不同的浏览器。
在Office应用程序中,尽管菜单和工具栏按钮看上去不太一样,但实质上它们是相同类型的对象。
CommandBars集合包含程序中的所有命令条,如:工具条和菜单条。
每一个CommandBars集合都有一个CommandBar对象和它对应,CommandBar 对象可以包含其它的 CommandBar 对象,这些对象是作为按钮或菜单命令来用的。每一个CommandBar都将通过CommandBarControls 对象被引用,
CommandBarControls又可以包含一组CommandBarControl对象。每一个CommandBarControl可以包含一个CommandBar对象,并可以通过它来存取控件属性。每一个CommandBarControl对象,实际是对应CommandBarControls中的控件集合。
CommandBarControl可以有三种表现形式:
n 弹出式 (CommandBarPopup): 相当于菜单条的一个菜单项?
n 组合框(CommandBarComboBox):类似于工具条中组合框控件。它包括一个工具栏和紧接着工具栏的一个下拉箭头。单击该按钮,将显示出更多的带图标的菜单命令。
n 按钮(CommandBarButton):相当于标准的工具栏按钮,即带有图标的按钮。
Items对象集合包括指定文件夹中所有Item条目对象。其中,
Item对象用于包含特定的 Outlook 数据,例如电子邮件消息、约会或联系人。
Ø Outlook.AppointmentItem 日程的条目对象
Ø Outlook.ContactItem 联系人的条目对象
Ø Outlook.MailItem 邮件的条目对象
Ø Outlook.NoteItem 便笺的条目对象
Selection对象包括在用户界面中用户选定的项目组。
在VB中,我们需要填写类似于“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不保证所给信息在发布之日以后的准确性。
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=12756