没有合适的资源?快使用搜索试试~ 我知道了~
outlook vba
5星 · 超过95%的资源 需积分: 9 27 下载量 54 浏览量
2011-04-13
01:28:02
上传
评论
收藏 349KB DOC 举报
温馨提示
试读
39页
outlook vba outlook vba outlook vba outlook vba outlook vba outlook vba outlook vba outlook vba
资源推荐
资源详情
资源评论
Activate 事件
当浏览器或检查器成为活动窗口时发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可
用。
Sub object_Activate()
object该表达式的值为 Explorer 或 Inspector 对象。
示例
本代码示例在 Activate 事件发生时,使用 WindowState 属性最大化顶层的浏览器窗口。该示例代码必
须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。
Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = myOlApp.ActiveExplorer
End Sub
Private Sub myOlExp_Activate()
If myOlExp.WindowState = olNormalWindow Then _
myOlExp.WindowState = olMaximized
End Sub
AdvancedSearchComplete 事件
AdvancedSearch 方法完成后发生。AdvancedSearchComplete 事件用于返回由 AdvancedSearch 方
法创建的对象。
Private Sub expression_ AdvancedSearchComplete(ByVal SearchObject As Object)
expression该变量引用一个在类模块中以事件方式声明的 Application 类型对象。
SearchObject 由 AdvancedSearch 方法返回的 Search 对象。
说明
只有当程序执行 AdvancedSearch 方法时才会触发该事件。
示例
以下示例显示搜索返回的对象数。
Private Sub olApp_AdvancedSearchComplete(ByVal SearchObject As Search)
'Get Search object's results collection.
Dim myResults As Results
Set myResults = SearchObject.Results
'Display the number of objects found in the search
MsgBox "The number of objects found in the search is: " & myResults.Count
End Sub
AdvancedSearchStopped 事件
当执行指定 Search 对象的 Stop 方法后发生。
Private Sub application_ AdvancedSearchStopped(ByVal SearchObject As Object)
expression该变量引用一个在类模块中以事件形式声明的 Application 类型对象。
SearchObject 由 AdvancedSearch 方法返回的 Search 对象。
说明
触发该事件后,Search 对象的 Results 集合将不再更新。该事件只能在程序中触发。
示例
以下示例显示被停止的 Search 对象的名称。
Private Sub olApp_AdvancedSearchStopped(ByVal SearchObject As Search)
'Inform the user that the search has stopped.
MsgBox "An AdvancedSearch has been stopped. " & _
"The results that are returned are not necessarily the complete results of the
search."
End Sub
AttachmentAdd 事件
当附件添加到项目中时发生。
Sub object_AttachmentAdd(Attachment As Attachment)
object该对象的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Attachment%必选。添加到项目中的 Attachment。
示例
本 VBScript 示例在添加了嵌入附件后,检查项目的大小,并在项目大小超过 500,000 字节时显示警告信
息。
Sub Item_AttachmentAdd(ByVal NewAttachment)
If NewAttachment.Type = 1 Then
Item.Save
If Item.Size > 500000 Then
MsgBox "Warning: Item size is now " & Item.Size & " bytes."
End If
End If
End Sub
AttachmentRead 事件
当打开项目中的附件进行阅读时发生。
Sub object_AttachmentRead(ByVal Attachment As Attachment)
object该对象的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Attachment%必选。已打开的 Attachment。
示例
本 VBScript 示例提醒用户也保存对原始嵌入文件所做的更改。
Sub Item_AttachmentRead(ByVal ReadAttachment)
If ReadAttachment.Type = 1 then
MsgBox "If you change this file, save your changes to the original as well."
End If
End Sub
BeforeAttachmentSave 事件
在保存附件前发生。
Sub object_BeforeAttachmentSave(ByVal Attachment As Attachment, Cancel As Boolean)
object该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Attachment必选。要保存的 Attachment。
Cancel%可选(VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则
保存操作没有完成,附件没有被更改。
说明
在 VBScript 中,如果将该函数的返回值设为 False,则保存操作被取消,附件没有被更改。
示例
本 VBScript 示例通知用户不允许保存附件。它返回 False 取消保存操作。
Function Item_BeforeAttachmentSave(ByVal SaveAttachment)
MsgBox "You are not allowed to save " & SaveAttachment.Name
Item_BeforeAttachmentSave = False
End Function
BeforeCheckNames 事件
在 Microsoft Outlook 开始解析项目的收件人集合中的名称前发生。
Sub object_BeforeCheckNames(Cancel As Boolean)
object该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Cancel%可选(VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则
取消操作,而且不解析收件人集合中的名称。
说明
在 VBScript 中,如果将该函数的返回值设为 False,则取消操作,而且不解析收件人集合中的名称。
示例
本 VBScript 示例询问用户是否要解析名称,并在用户回答“否”时返回 False 取消解析操作。
Function Item_BeforeCheckNames()
If MsgBox ("Do you want to resolve names now?",4) = 7 Then
Item_BeforeCheckNames = False
End If
End Function
BeforeDelete 事件
项目删除前发生。
Sub expression_ BeforeDelete(ByVal Item As Object, Cancel As Boolean)
expression “应用于”列表中的一个对象,该对象在类模块中以事件形式声明。
Item 必选,Object 类型。正在删除的项目。
Cancel必选,Boolean 类型。当事件发生时为 False。如果事件过程将此参数设为 True,将不完成该
操作,并且不删除项目。
说明
为了在通过某项操作删除邮件、通讯组列表、日记条目、任务、联系人或公告时触发该事件,必须打开一
个检查器。
每删除一个项目,该事件发生一次。
示例
以下示例提示用户注意是否要删除指定项目。如果用户单击“否”,将不删除项目。如果用户单击“是”,将
删除项目,并向用户显示一条消息。
Private Sub objMail_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
'Prompts the user before deleting an item
Dim strPrompt As String
'Prompt the user for a response
strPrompt = "Are you sure you want to delete the item?"
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbNo Then
'Don't delete the item
Cancel = True
Else
MsgBox ("Item Deleted")
'Delete the item
Cancel = False
End If
End Sub
BeforeFolderSwitch 事件
在浏览器导航到新文件夹前发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。
注意ÎÎ如果切换到的文件夹位于不支持自动化功能的命名域(例如文件系统)中,那么 NewFolder 将为
Nothing。
Sub object_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As Boolean)
object该表达式的值为 Explorer 对象。
NewFolder必选。浏览器切换到的 MAPIFolder 对象。
Cancel可选。当事件发生时,为 False。如果事件过程将该参数设置为 True,将取消导航,而且不改变
当前文件夹。
示例
本示例防止用户切换到名为 Off Limits 的文件夹。示例代码必须放在类模块中,并且在 Microsoft Outlook
调用该事件过程前必须调用 Initialize_handler 例程。
Dim myOlApp As Outlook.Application
Public WithEvents myOlExp As Outlook.Explorer
Public Sub Initialize_handler()
Set myOlExp = myOlApp.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeFolderSwitch(ByVal NewFolder As Object, Cancel As
Boolean)
If NewFolder.Name = "Off Limits" Then
MsgBox "You do not have permission to access this folder."
Cancel = True
End If
End Sub
全部显示
BeforeGroupAdd 事件
在将新组添加到 Outlook 面板前发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。
Sub object_BeforeGroupAdd(Cancel As Boolean)
object该表达式的值为 OutlookBarGroups 集合对象。
Cancel可选。当事件发生时,为 False。如果事件过程将该参数置为 True,新组将不添加到“Outlook
面板”中。
示例
本示例防止用户向“Outlook 面板”中添加新组。示例代码必须放在类模块中,并且在 Microsoft Outlook 调
用该事件过程前必须调用 Initialize_handler 例程。
Dim myOlApp As New Outlook.Application
Dim WithEvents myOlGroups As Outlook.OutlookBarGroups
Dim myOlBar As Outlook.OutlookBarPane
Sub Initialize_handler()
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
剩余38页未读,继续阅读
资源评论
- Ta_long2012-03-29几个函数 写的不少 用处有限吧
- big_worm2018-09-19学习了,有借鉴意义
tj5460
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功