Outlook VBA教程:Target属性

返回Outlook 面板组中指定快捷方式的目标。Variant 类型,只读。

expression.Target

expression   必选。该表达式返回OutlookBarShortcut对象。

说明

返回的类型依赖于快捷方式的类型。如果该快捷方式代表 Microsoft Outlook 文件夹,那么返回类型为 MAPIFolder。如果该快捷方式代表文件系统文件夹,那么返回类型为 Object。如果该快捷方式代表文件系统路径或 URL,那么返回类型为 String。

VBA示例

本 Microsoft Visual Basic/Visual Basic for Applications 示例遍历第一个“Outlook 面板”组中的快捷方式。如果找到不是 Outlook 文件夹的快捷方式,则删除它。


Dim myOlApp As New Outlook.Application
Dim myOlBar As Outlook.OutlookBarPane
Dim myolGroup As Outlook.OutlookBarGroup
Dim myOlShortcuts As Outlook.OutlookBarShortcuts
Dim myOlShortcut As Outlook.OutlookBarShortcut
Set myOlBar = myOlApp.ActiveExplorer.Panes.Item("OutlookBar")
Set myolGroup = myOlBar.Contents.Groups.Item(1)
Set myOlShortcuts = myolGroup.Shortcuts
myTop = myOlShortcuts.Count
For x = myTop To 1 Step -1
    Set myOlShortcut = myOlShortcuts.Item(x)
    If TypeName(myOlShortcut.Target) <> "MAPIFolder" Then
        myOlShortcuts.Remove x
    End If
Next x

如果使用 VBScript,则不必创建Application对象。本示例说明如何使用 VBScript 执行相同任务。


Set myOlBar = _
    Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myolGroup = myOlBar.Contents.Groups.Item(1)
Set myOlShortcuts = myolGroup.Shortcuts
myTop = myOlShortcuts.Count
For x = myTop To 1 Step -1
    Set myOlShortcut = myOlShortcuts.Item(x)
    If TypeName(myOlShortcut.Target) <> "MAPIFolder" Then
        myOlShortcuts.Remove x
    End If
Next

上页:Outlook VBA教程:Tag属性 下页:Outlook VBA教程:TeamTask属性

Outlook VBA教程:Target属性:相关链接

Outlook VBA教程:TeamTask属性 Outlook VBA教程:TelexNumber属性
Outlook VBA教程:Template属性 Outlook VBA教程:Title属性
Outlook VBA教程:To属性 Outlook VBA教程:Top属性
Outlook VBA教程:TotalWork属性 Outlook VBA教程:TrackingStatus属性
Outlook VBA教程:TrackingStatusTime属性 Outlook VBA教程:TransferSize属性
Outlook VBA教程:TransferTime属性 Outlook VBA教程:TTYTDDTelephoneNumber属性
Outlook VBA教程:Type属性 Outlook VBA教程:UnRead属性
Outlook VBA教程:UnReadItemCount属性 Outlook VBA教程:User1属性
Outlook VBA教程:User2属性 Outlook VBA教程:User3属性
Outlook VBA教程:User4属性 Outlook VBA教程:UserCertificate属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号