将个人联系人列表复制到公用文件夹

Question

我编写了代码来将联系人列表复制到公共文件夹，但如果我不在联系人源上，则无法工作。

Sub Movecopycontacts()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.NameSpace
    Dim objSourceFolder As Outlook.MAPIFolder
    Dim objDestFolder As Outlook.MAPIFolder
    Dim objItem As ContactItem
    Set objOutlook = Application
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set objSourceFolder = objNamespace.GetDefaultFolder(olFolderContacts)
    Set objItem = Application.ActiveExplorer.Selection.Item(1)
    Set objDestFolder = objNamespace.Folders("Public folder - [e-mail]").Folders("all public folder").Folders("test")
    objItem.Move objDestFolder
    Set objDestFolder = Nothing
End Sub

错误来自:

Set objItem = Application.ActiveExplorer.Selection.Item(1)

Answer 1

这是正确的-您的代码假设要移动的项已被选中。它做它应该做的。

你还想让它做什么?