Outlook VBA如何访问一个子目录(sent item)下的主题和保存附件

4125027

如题，我使用了outlook。
现在有个需求：在已发送邮件的子目录(Sent Item)中，需要找到部分主题("subject")是特定字符（如“发货申请”）的邮件，然后判定是否有特定的附件（“.xls”）。有符合条件的附件则保存到特定目录下（“C:\保存文件”）。
请大侠帮忙。

4125027

我自己定一下，免得沉底了。
我会excel的VBA，但是outlook的VBA还是一窍不通。

4125027

敬请大侠帮忙。
先谢谢了。
我有3000多份邮件需要处理。如果不用VBA来自动处理，第一工作量太大，第二容易出错。

闻启学

楼主这个 参考下这个帖子 小闻趣话之一获得邮件的中全部附件
http://club.excelhome.net/thread-1451224-1-1.html
(出处: ExcelHome技术论坛)

修改下判断就行 啊

4125027

闻启学 发表于 2020-10-29 20:16
楼主这个 参考下这个帖子 小闻趣话之一获得邮件的中全部附件
http://club.excelhome.net/thread-1451224-1 ...

好的。
谢谢。我先试一试。

4125027

我已经可以访问发件箱文件夹了。
但是有出现了另外一个很奇怪的事情。
imail不能把发件箱的所有的邮件遍历，到了445（MailCount =445）后，imail就会变为nothing。每次把下一封邮件移除后，问题都重复出现。
请大侠出手相助。

Sub GetAttachmentName()
'//获得邮件中的附件
    Dim OutApp As Outlook.Application
    Dim myNamespace As NameSpace
    Dim myFolder As MAPIFolder

    Dim Folder As MAPIFolder
    Dim imail As Outlook.MailItem
    Dim attFilename As String
    Dim myAttachment As Outlook.Attachment
    Dim ExcelApp
    Dim myWorkbook As Object
    Dim myWorksheet As Object
   
    Set OutApp = New Outlook.Application
    Set myNamespace = OutApp.GetNamespace("MAPI")
   
    Set myFolder = myNamespace.GetDefaultFolder(olFolderSentMail)    '//获得收件箱文件夹
   
   
    For Each imail In myFolder.Items
        
        imailsubject = imail.Subject
        imailto = imail.To
        imailtime = imail.CreationTime
        imailcc = imail.CC
        MailCount = MailCount + 1



        
        imailsubject = imail.Subject
        imailto = imail.To
        imailtime = imail.CreationTime
        imailcc = imail.CC
    Next imail
Exitimail:
    Set imail = Nothing
    Set myFolder = Nothing
    Set myNamespace = Nothing
    Set Application = Nothing
End Sub

闻启学

这个应该不可以i能 啊  收件箱是不是除了邮件外 还右其他文件