Outlook VBA教程:SetIcon方法

设置指定 Microsoft Outlook 面板快捷方式的图标。

expression.SetIcon(Icon)

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

Icon  必选,Variant 类型。图标的路径。

VBA示例

以下示例将所有指向 MAPIFolder对象的快捷方式的图标设置为图像 Mail.ico(位于用户计算机上)。本示例假设指定位置存在该图标。


Sub SetFolderIcon()
    Dim OlApp As New Outlook.Application
    Dim objOlBar As Outlook.OutlookBarPane
    Dim objolGroup As Outlook.OutlookBarGroup
    Dim objOlShortcuts As Outlook.OutlookBarShortcuts
    Dim objOlShortcut As Outlook.OutlookBarShortcut
    Dim intTop As Integer
    Dim i As Integer
    Set objOlBar = OlApp.ActiveExplorer.Panes.Item("OutlookBar")
    Set objolGroup = objOlBar.Contents.Groups.Item(1)
    Set objOlShortcuts = objolGroup.Shortcuts
    intTop = objOlShortcuts.Count
    For i = intTop To 1 Step -1
        Set objOlShortcut = objOlShortcuts.Item(i)
        If TypeName(objOlShortcut.Target) = "MAPIFolder" Then
            objOlShortcut.SetIcon _
                ("C:\Program Files\Microsoft Office\Office\forms\1033\Mail.ico")
        End If
    Next i
End Sub

上页:Outlook VBA教程:SetCurrentFormPage方法 下页:Outlook VBA教程:ShowCategoriesDialog方法

Outlook VBA教程:SetIcon方法:相关链接

Outlook VBA教程:ShowCategoriesDialog方法 Outlook VBA教程:ShowFormPage方法
Outlook VBA教程:ShowPane方法 Outlook VBA教程:SkipRecurrence方法
Outlook VBA教程:Snooze方法 Outlook VBA教程:Sort方法
Outlook VBA教程:Start方法 Outlook VBA教程:StartTimer方法
Outlook VBA教程:StatusReport方法 Outlook VBA教程:Stop方法
Outlook VBA教程:StopTimer方法 Outlook VBA教程:Update方法
Outlook VBA教程:Action对象 Outlook VBA教程:Actions对象
Outlook VBA教程:AddressEntries对象 Outlook VBA教程:AddressEntry对象
Outlook VBA教程:AddressList对象 Outlook VBA教程:AddressLists对象
Outlook VBA教程:Application对象 Outlook VBA教程:AppointmentItem对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号