java 调用outlook_使用VBA访问Outlook中的文件夹

我正在使用以下内容将邮件移动到Outlook中的文件夹 .

Dim chemin() as String

chemin = Split(path, "/")

Set myNameSpace = Application.GetNamespace("MAPI")

Set myFolder = myNameSpace.Folders("LiveLink").Folders("Livelink HQE").Folders("Entreprise").Folders(chemin(1)).Folders(chemin(2)).Folders(chemin(3))

myEntryID = myFolder.EntryID

myEntryID = myFolder.StoreID

objMail.Move myNameSpace.GetFolderFromID(myEntryID, storeID)

一切都在起作用 . 如您所见，该文件夹位于Livelink中 . Livelink服务器响应速度实际上很慢，我对此无能为力 .

我担心的是使用.Folders()这么多次，而像 .Folders("Livelink/root/folder1/folder2/") 这样会更快 . 但是，这不是明显的工作，而且由于.Folders命令需要来ping服务器的Livelink每次，它实际上需要整整10秒只执行这行代码(以及更深层次的是文件夹，时间越长，更是达到它) .

有没有其他方法可以直接访问Outlook中的特定文件夹来移动邮件？我知道每个文件夹(甚至是Livelink中的文件夹)都有某种Outlook ID，但我没有看到任何方法可以使用它 . 我尝试了以下内容，但它还没有工作：

Dim folder As MAPIFolder

Dim myNameSpace As Outlook.NameSpace

Set myNameSpace = Application.GetNamespace("MAPI")

Set folder = myNameSpace.GetFolderFromID(target, Application.GetNamespace("MAPI").Folders("LiveLink").storeID)

这在执行GetFolderfromID()时给出了一个错误 . var target 实际上是我要将邮件复制到的文件夹的EntryID .