如何下载OUTLOOK邮件主题中包括特定词语的邮件附件

songjiecf

OUTLOOK VBA小白。EXCEL还稍稍懂一点。随着邮箱越来越大，文件也越来越多找个文件不好找，想把有用的文件下载到本地。看了论坛里好多都是下载所有文件的附件。对于我不太实用。我需要把邮件主题是包括特定词语的邮件附件进行下载。例如：“管理办法”，或“操作流程”进行下载。大佬 们帮帮我吧。OUTLOOK是2013。对于，说明一下我的OUTLOOK挂有3个邮箱，分别是我个人的，机构的，部门的。

songjiecf

大线等大佬

skywalker006

我也是新手，我目前有个办法可以下载个人邮箱指定标题邮件的附件，我是最新版outlook，不知道你的版本好用不，试试吧
Sub test1()
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
End Sub

songjiecf

skywalker006 发表于 2019-12-12 17:19
我也是新手，我目前有个办法可以下载个人邮箱指定标题邮件的附件，我是最新版outlook，不知道你的版本好用 ...

是在OL里面建个模块 COPY用么？
\\z\auto 是自己生成的文件夹？

songjiecf

我靠 ，好用啊。炒鸡快。谢谢

songjiecf

objMessage.Subject = "Test attachment" 如何实现模糊查询呢？主题里包括Test attachment词，但不是主题就是这个

songjiecf

我搞定了。
objMessage.Subject like "*Test attachment*"
实现模糊查询

梁三刀木

songjiecf 发表于 2019-12-12 19:02
我搞定了。
objMessage.Subject like "*Test attachment*"
实现模糊查询

请问 你扫码枪的 乱码问题解决了吗？

Rain_wu

同学问一下，就是这个代码是找某一个主题的文件，比如要循环找多个主题文件，我试过用数组去循环，但是到了If objMessage.Subject = "Test attachment" Then  我是想用调用数组去 代替里面的 "Test attachment"，但是双引号写进去知乎被认为是字符串了，不打双引号有报错，有法子解决吗

闻启学

Rain_wu 发表于 2020-3-24 12:39
同学问一下，就是这个代码是找某一个主题的文件，比如要循环找多个主题文件，我试过用数组去循环，但是到了 ...

转换类型   str（arr（1,1））  arr（） 默认是可变类型  转换一下 看看