首页 文章

使用VBA访问Outlook中的文件夹

提问于
浏览 次
2

我正在使用以下内容将邮件移动到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 .

vba outlook livelink

1 回答

  • 3

    根据官方文档，没有比你正在做的更好的方法，除非你需要多次找到该文件夹 .

    MSDN建议的选项是obtain the folder object from the folder path，但这基本上与您已经在做的事情相同 .

    问题是Folder Object仅表示“代表文件夹树的 one level 处特定子集中的所有可用Outlook文件夹 . ”（强调添加）

    一个可能的变通办法是使用NameSpace.GetFolderFromID，但你需要知道的 EntryID ，以及可能的 StoreID ，这通常意味着你必须要找到的文件夹第一反正 . 但你可以保存 EntryID 和 StoreID 以备将来立即召回 .

    如果您想深入研究使用 EntryId 和 StoreID ，这里是Working with EntryIDs and StoreIDs上的开发人员参考 .

    回复于

相关问题