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

【问题标题】：Copy a personal contact list to a public folder将个人联系人列表复制到公用文件夹
【发布时间】：2015-08-10 14:00:47
【问题描述】：

我编写了将联系人列表复制到公用文件夹的代码，但如果我不在联系人源上，则它不起作用。

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 - oky@test.com").Folders("all public folder").Folders("test")

    objItem.Move objDestFolder

    Set objDestFolder = Nothing
End Sub

错误来自：

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

【问题讨论】：

标签： vba outlook copy directory contact

【解决方案1】：

这是正确的 - 您的代码假定要移动的项目已被选中。它做了它应该做的事情。

\你还想让它做什么？

【讨论】：