共用方式為


OutlookBarShortcut.Target 屬性 (Outlook)

會傳回 Variant ,指出快捷方式窗格群組中指定 之快捷方式 的目標。 唯讀。

語法

expressionTarget

表達 代表 OutlookBarShortcut 物件的 變數。

註解

傳回類型取決於捷徑類型。 如果捷徑代表 Outlook 資料夾,則傳回類型為 Folder。 如果捷徑代表檔案系統資料夾,則傳回類型為 Object。 如果捷徑代表檔案系統路徑或 URL,則傳回類型為 String

範例

此 Microsoft Visual Basic for Applications (VBA) 範例會逐步執行第一個快捷方式窗格群組中的 快捷方式 。 它會計算是 Outlook 資料夾的捷徑數目,並顯示該計數。

Sub DeleteShortcuts() 
 Dim myOlBar As Outlook.OutlookBarPane 
 Dim myolGroup As Outlook.OutlookBarGroup 
 Dim myOlShortcuts As Outlook.OutlookBarShortcuts 
 Dim myOlShortcut As Outlook.OutlookBarShortcut 
 Dim myTop As Integer 
 Dim x As Integer 
 Dim count As Integer 
 
 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) = "Folder" Then 
 count = count + 1 
 End If 
 Next x 
 MsgBox ("Number of shortcuts that are Outlook folders:" & count) 
End Sub

另請參閱

OutlookBarShortcut 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應