可能重复:
Outlook 2007 VBA to get reference to additional Inbox
Wwe需要通过文件-> open ->其他用户的文件夹在Microsoft中打开其他用户收件箱。那我们需要检查一下邮件。我们已经尝试了下面的代码
Set olApp=CreateObject("Outlook.Application")
Set olns=olApp.GetNameSpace("MAPI")
Set objFolder=olns.GetDefaultFolder(6)
For each item1 in objFolder.Items
msgbox item1.subject
Next
但是使用此代码,我们无法从其他用户收件箱中读取邮件,因为GetDefaultFolder
方法参数为6。有人能帮个忙吗
发布于 2012-03-09 21:12:45
您可能需要使用以下内容:
Dim objFolder As Outlook.Folder
Set objFolder = Application.Session.PickFolder
这应该会弹出一个框,允许您选择要从其中读取的文件夹。但是,这个选项需要一些用户交互。
您还可能希望尝试使用以下更改的代码:
Set ObjFolder = Application.Session.GetDefaultFolder(variable)
变量是默认文件夹的名称(对于收件箱来说是olFolderInbox )
https://stackoverflow.com/questions/9599200
复制相似问题