[求助]如何用VBA将收件箱中指定的未读邮件下载到指定的文件夹中

hnymx2005

如何用VBA 将收件箱中指定的未读邮件(附件名为“报表”)下载到指定的文件夹中(D:\temp)

aaaaabbbbb

以下代码可将未读邮件保存到C:\下。
Sub SaveUnreadMail()
    Dim olApp As New Outlook.Application
    Dim nmsName As Outlook.NameSpace
    Dim fldFolder As Outlook.Folder
    Dim vItem As Object
    Set nmsName = olApp.GetNamespace("MAPI")
    Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)
    If fldFolder.UnReadItemCount > 0 Then
        For Each vItem In fldFolder.Items
           If vItem.UnRead = True Then
           strname = vItem.Subject
           strname = Replace(strname, "*", "_")
           strname = Replace(strname, "\", "_")
           strname = Replace(strname, "/", "_")
           strname = Replace(strname, "$", "_")
           strname = Replace(strname, "%", "_")
           strname = Replace(strname, "!", "_")
           strname = Replace(strname, "~", "_")
           strname = Replace(strname, "(", "_")
           strname = Replace(strname, ")", "_")
           strname = Replace(strname, "+", "_")
           strname = Replace(strname, ":", "_")
           vItem.SaveAs "C:\" & strname & ".txt", olTXT
           vItem.UnRead = False
           End If
        Next
    End If
End Sub

siyuan0226

请问如何让OL自动将收到的附件保存到一个文件夹下！谢谢各位！请给个详细方案！