从早期绑定到晚期绑定

Question

我按照以下说明从早期绑定转换为后期绑定： Convert Early Binding VBA to Late Binding VBA : Excel to Outlook Contacts

代码使用早期绑定，但现在出现

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

在下面一行：

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

我试过了

dim olfolderinbox as object

Answer 1

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

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

换行

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

只要myRecipient 正确，就会解决问题。