推荐：将OL“收件箱”加入IE收藏夹的代码

FENGJUN

推荐：将OL“收件箱”加入IE收藏夹的代码

Sub FaveChange()

Dim appolApp As Outlook.Application Dim nmsName As Outlook.NameSpace Dim fldFolder As Outlook.MAPIFolder Dim strName As String

Set appolApp = New Outlook.Application 'Create instance of namespace Set nmsName = appolApp.GetNamespace("MAPI") Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox) 'Prompt user for a Favorites list name strName = _ InputBox("Type the name of the folder as it will appear in the Favorites list.") Call FaveList(fldFolder, strName)

End Sub

Sub FaveList(ByRef fldFolder As MAPIFolder, ByVal strName As String) 'Add a Folder object to the Favorites list in Internet Explorer

'Call method with strName as name argument fldFolder.AddToFavorites fNoUI:=True, Name:=strName 'Display a message to the user MsgBox "The folder " & fldFolder.Name & _ " was added to the Internet Explorer Favorites list as " & strName & "."

End Sub

deakman

能不能介紹具體步驟阿,我很菜的...

xzqzgr

好

徒然客

Sub FaveChange()

Dim appolApp As Outlook.Application
Dim nmsName As Outlook.Namespace
Dim fldFolder As Outlook.MAPIFolder
Dim strName As String

Set appolApp = New Outlook.Application 'Create instance of namespace Set nmsName = appolApp.GetNamespace("MAPI")
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
'Prompt user for a Favorites list name
strName = InputBox("Type the name of the folder as it will appear in the Favorites list.")
Call FaveList(fldFolder, strName)

End Sub


Sub FaveList(ByRef fldFolder As MAPIFolder, ByVal strName As String)
'Add a Folder object to the Favorites list in Internet Explorer

'Call method with strName as name argument
fldFolder.AddToFavorites fNoUI:=True, Name:=strName
'Display a message to the user
MsgBox "The folder " & fldFolder.Name & _
" was added to the Internet Explorer Favorites list as " & strName & "."

End Sub

重新排版，需引用OUtlook工程库

wxlm

链接成功添加到IE收藏夹
但是点击后没反应。
IE提示：最可能的原因是:
•此网页上某些内容或文件所需的程序尚未安装