保存邮件附件 如何可以保存自建文件夹的所有附件？

avis_cx

Private Sub CommandButton2_Click()
On Error Resume Next

If MsgBox("本程序处理对象是OutLook的收件箱中所有包含附件的邮件,处理结果将附件保存在'C:\EvaluationMail'目录下,点击按钮执行本程序。确定执行?", vbYesNo) = vbNo Then Exit Sub

  Dim myolapp As New Outlook.Application
   
  Set fs = CreateObject("Scripting.FileSystemObject")
  
  If Not fs.FolderExists("C:\EvaluationMail") Then fs.CreateFolder ("C:\EvaluationMail")
   
  Set myNameSpace = myolapp.GetNamespace("MAPI")
  
  Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox)
   
  For i = 1 To myfolder.Items.Count
   
  Set mymailitem = myfolder.Items(i)
     
     With mymailitem
           
      Set myAttachments = mymailitem.Attachments
        
        para = myAttachments.Item(1).DisplayName
        
        myAttachments.Item(1).SaveAsFile "C:\EvaluationMail\" + IIf(IsNull(myAttachments.Item(1).DisplayName), i, myAttachments.Item(1).DisplayName)
            
     End With
     
  Next
  
    MsgBox "程序执行完毕！请到目录中察看附件保存情况。", vbDefaultButton1, "宏提示"
   
    UserForm4.Hide
End Sub


想改成保存outlook下自定义文件夹“inner”的所有邮件附件。。谢谢！！

avis_cx

Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders("inner")可以实现在inbox下的子文件夹的附件收取，可是要是这个inner和inbox是同级的文件夹时该怎么写啊？谢谢~