在特定文件夹中打开电子邮

时间:2015-02-07 21:49:59

标签: vba excel-vba outlook excel

我在Outlook中的特定文件夹中访问电子邮件时遇到问题。

当我将电子邮件放入收件箱时,以下代码行有效。

Set OtlkApp = GetObject(, "Outlook.application")
Set ns = OtlkApp.GetNamespace("MAPI")
Set fldr = ns.GetDefaultFolder(olFolderInbox)

但是,当我尝试访问名为" tempfiles"的文件夹时,当我尝试使用此代码打开它时,找不到该对象。

Set fldr = ns.Folders("tempfiles")

语法是否正确?我错过了什么吗?

1 个答案:

答案 0 :(得分:2)

根据文件夹的级别(收件箱的相同级别或子文件夹),您可以扩展文件夹属性:

'INBOX FOLDER
Set inboxfldr = ns.GetDefaultFolder(olFolderInbox)

'TEMPFILES SUBFOLDER
Set tempfilesfldr = inboxfldr.Folders("tempfiles")

'TEMPFILES FOLDER (SAME LEVEL AS DEFAULT FOLDERS -INBOX, CALENDAR, TASKS, ETC.)
Set tempfilesfldr = inboxfldr.Parent.Folders("tempfiles")