outlook vba

outlook

5星 · 超过95%的资源需积分: 9 121 浏览量更新于2023-03-16 收藏 349KB DOC 举报

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

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

剩余38页未读，继续阅读

tj5460

粉丝: 0
资源: 2

自动保存Outlook邮件的附件(利用VBA)

VBA解析outlook邮件

OutLook的VBA

outlook VBA编程

outlook vba check Excel

Outlook VBA.docx

outlook vba 通过发送ipmsg信息

outlook VBA 自动保存邮件及附件代码

Outlook VBA -全部回复时带附件

outlook vba导出为excel

最新资源