自动检测share mailbox的邮件并保存附件到本地

skywalker006

我在网上找到一下代码，可以实现手动运行宏，能下载自己inbox里指定标题邮件的附件到本机。
但是我想下载的是share maiobox里面某一个文件夹里指定标题的邮件附件，怎么改呢？
另外能不能设置成自动检测邮件而不是手动运行宏，我在rule里设置了，但是不生效。求高手指点，谢谢。

Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)

Set colItems = objFolder.Items
On error Resume Next

For Each objMessage in colItems
  If objMessage.Subject = "Test attachment" Then
    intCount = objMessage.Attachments.Count
    If intCount > 0 Then
        For i = 1 To intCount
            objMessage.Attachments.Item(i).SaveAsFile "\\Z\auto\" &  _
                objMessage.Attachments.Item(i).FileName
        Next
      End If
    End If
Next

闻启学

建议这个 运行一次后 用事件运行   见这个帖子
小闻趣话之一获得邮件的中全部附件
http://club.excelhome.net/thread-1451224-1-1.html
(出处: ExcelHome技术论坛)
自动检测邮件 有可能会有重复邮件

skywalker006

闻启学 发表于 2019-12-12 19:53
建议这个 运行一次后 用事件运行   见这个帖子
小闻趣话之一获得邮件的中全部附件
http://club.excelhom ...

好的 多谢指点  我试试