Outlook VBA如何定位到某个文件夹
以下图为例,我要将"201507"下面子文件夹"test"中标题满足某个条件的邮件自动保存到硬盘,可是要如何定位到"test"?语句如何写?...
以下图为例,我要将"201507"下面子文件夹"test"中标题满足某个条件的邮件自动保存到硬盘,可是要如何定位到"test"?语句如何写?
展开
展开全部
Sub findOBinSpec()
Dim NS As Outlook.NameSpace
Dim FD As MAPIFolder
Dim ITM As Object
Set NS = Session.Application.GetNamespace("MAPI")
Set FD = NS.Folders("201507").Folders("test")
For Each ITM In FD.Items
MsgBox (ITM.Subject)
Next
End Sub
请参考，这样可以获取文件夹下文件名
Dim NS As Outlook.NameSpace
Dim FD As MAPIFolder
Dim ITM As Object
Set NS = Session.Application.GetNamespace("MAPI")
Set FD = NS.Folders("201507").Folders("test")
For Each ITM In FD.Items
MsgBox (ITM.Subject)
Next
End Sub
请参考，这样可以获取文件夹下文件名
追问
非常感谢,就是晚了点,我已用Set FindFolder = Application.GetNamespace("MAPI").Folders("201507").Folders("test")搞定.
但新问题又来了,如果201507是个公共邮箱,所有人的邮件都会抄送一份到201507,可是newmail事件是响应的Di邮箱,如何才能响应201507呢
追答
这个是outlook的设置问题，VBA控制不了邮件的接收的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
