outlookvba - CSDN文库

outlook

vba

5星 · 超过95%的资源需积分: 9 104 浏览量更新于2023-05-30 评论收藏 349KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

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页未读，继续阅读

big_worm

2018-09-19

学习了，有借鉴意义

tj5460

粉丝: 0
资源: 2

会员权益专享

outlook vba

评论2

会员权益专享

最新资源

outlook vba

评论2

outlook vba 自动保存附件

Outlook VBA开发-按发件人自动分类邮件

写一个Outlook VBA的代码，功能是实现根据邮件内容，将邮件自动转发到Excel中有相同内容的那一行的第一列的邮箱中

vba自动下载outlook邮件附件

vba写一段代码操作outlook公共邮箱

excel vba outlook .send方法

vba写一段代码操作outlook

vba outlook sender

帮我用VBA写一个爬取邮件内容的代码

Excel_VBA教程

怎么用vba来发送邮件 需要源代码

Vba怎么使用第三方软件

写一个批量发送邮件的VBA代码

用VBA指定工作表另存为xlsx并发电邮给多个指定人员

怎么用VBA来发送邮件，需要源代码

VSTO开发者指南（中文版）

access 2010 圣经

会员权益专享

最新资源

怎么用vba来发送邮件需要源代码