Excel VBA，设置一个Outlook文件夹，这是一个公用文件夹

Question

我正在尝试将电子邮件从收件箱文件夹(名为“A_Classer”)移动到 Outlook 公用文件夹(目标文件夹的变量名为 olFolder)
我尝试了 getshareddefaultfolder 方法和 OpenSharedFolder 方法，但我无法解决我的语法问题
共享文件夹的名称是“Québec”，它的路径(来自 Windows 属性)是(“Dossiers publics - guillaume.hebert@cima.ca/Tous les dossiers publics/Québec”)
代码停在:set olFolder...

下面是我尝试过的所有版本的代码

Sub move_to_public_folder()

Dim msg As Outlook.MailItem
Dim olFolder As Outlook.Folder         'public folder where I want the email to be moved
Dim sourceFolder As Outlook.Folder           'current folder of the emails that are to be moved
Dim OlApp As Object

Dim myNamespace As Outlook.Namespace
Dim myRecipient As Outlook.Recipient

Set OlApp = CreateObject("Outlook.Application")                         'Outlook application call
Set myNamespace = OlApp.GetNamespace("MAPI")

Set myRecipient = myNamespace.CreateRecipient("Guillaume Hébert")
myRecipient.Resolve
If myRecipient.Resolved Then
    Cells(1, 1) = Cells(1, 1) + 1
End If

Set olFolder = myNamespace.OpenSharedFolder("Québec")            'FIRST try I made
'Set olFolder = myNamespace.OpenSharedFolder _                    'Second try I made
    '("Dossiers publics - guillaume.hebert@cima.ca/Tous les dossiers publics/Québec")
'Set olFolder = myNamespace.GetSharedDefaultFolder _              'Last try I made
                    '(myRecipient, olPublicFoldersAllPublicFolders)



Set sourceFolder = Session.GetDefaultFolder(sourceFolderInbox)
Set sourceFolder = sourceFolder.Folders("A_Classer")
If sourceFolder Is Nothing Then Exit Sub

I = sourceFolder.Items.Count
nbre_op = I                                                         'détermine combien de courriel dans le répertoire
I = 1
While I <= nbre_op
    Set msg = olFolder.Items(1)
    msg.Move olFolder
    I = I + 1
Wend

Set OlApp = Nothing

结束子

预先感谢您提供的所有帮助

Answer 1

您是否连接到 Exchange 服务器？

如果您使用 OpenSharedFolder您需要指定 URL 的方法。此方法用于访问以下共享文件夹类型:

网络日历 (webcal://mysite/mycalendar)

RSS 提要 (feed://mysite/myfeed)

Microsoft SharePoint Foundation 文件夹 (stssync://mysite/myfolder)

iCalendar 日历 (.ics) 文件

vCard 联系人 (.vcf) 文件

Outlook 邮件 (.msg) 文件

我建议使用 GetSharedDefaultFolder该方法返回一个 Folder 对象，该对象代表指定用户的指定默认文件夹。例如，您可以获取收件箱文件夹，然后您可以找到所需的文件夹。

运行以下行时，您在代码中遇到什么错误？
'Set olFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olPublicFoldersAllPublicFolders)