OUTLOOK的批量下载附件，，求助更改子账户下的文件夹

cuigou2004

Sub 批量保存附件()
    Dim olApp As New Outlook.Application
    Dim nmsName As Outlook.NameSpace
    Dim vItem As Object
    Set nmsName = olApp.GetNamespace("MAPI")
    Set myFolder = nmsName.GetDefaultFolder(olFolderInbox)
    Set fldFolder = myFolder.Folders("For Download")

    For Each vItem In fldFolder.Items

       '-----Save Attachment-------
        For Each att In vItem.Attachments
            att.SaveAsFile "D:\Email Attachment Temp\" & att.FileName
        Next
        '------Save Attachment--------
    Next

    Set fldFolder = Nothing
    Set nmsName = Nothing
End Sub




上面的代码是之前在网上找的，直接把该文件夹下的邮件附件保存，但是现在有一个问题，就是我在OUTLOOK下有另外一个子账户，我利用上面的代码提示无法找到我子账户内的"For Download"文件夹 这个如何修改？求高手帮忙修改一下，

dsd999

把图截屏发上来，看看你的账户目录情况。

闻启学

Set Folder = Application.Session.Accounts.Item(“自己的账号名称”).Session.GetDefaultFolder(olFolderInbox)