从早期绑定VBA Outlook更改为晚期绑定VBA Outlook

我已按照以下说明从早期绑定细节转换为晚期绑定细节：

这段代码在早期绑定时工作得很好，但现在出现了

Run-time error '5': invalid procedure call or argument 

在以下行：

Set SentItemsFolder = myNamespace.GetSharedDefaultFolder(myRecipient, olfolderinbox).Parent.Folders("Sent Items")

我试图通过使用来定义olfolderinbox

dim olfolderinbox as object

但这并不奏效

---

有什么想法吗？

当从早期绑定转换为晚期绑定时，还必须将命名枚举更改为其实际值

olFolderInbox是枚举的一部分。
它的值是6

将您的线路更改为

Set SentItemsFolder = myNamespace.GetSharedDefaultFolder(myRecipient, 6).Parent.Folders("Sent Items")

---

只要

myRecipient

正确，就会解决问题。

！它起作用了！非常感谢你的帮助Nacorid！