답변:
귀하의 질문에 대한 광범위한 답변은 매우 상세하지 않았습니다
다음 VBA를 사용하여 Outlook 폴더의 모든 메시지에서 모든 Excel 파일을 제거 할 수 있습니다
이 코드는 첨부 파일이 C : \ test에 저장 될 때받은 편지함의 모든 Excel 파일 아래에 "temp"라는 Outlook 폴더의 메시지를 확인합니다.
https://stackoverflow.com/questions/7890612/excel-vba-code-to-save-an-attachment-excel-file-from-an-outlook-email-that-was의 다른 샘플 코드
Sub SaveOlolAttachments()
Dim olFolder As Outlook.MAPIFolder
Dim olMsg As Outlook.MailItem
Dim olAtt As Outlook.olAttachment
Dim fsSaveFolder As String
strSaveFolder = "C:\test\"
'My testing done in Outlok using a "temp" folder underneath Inbox
Set olFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olFolder = olFolder.Folders("Temp")
If olFolder Is Nothing Then Exit Sub
For Each olMsg In olFolder.Items
For Each olAtt In olMsg.olAttachments
If Right$(olAtt.FileName, Len(olAtt.FileName) - InStrRev(olAtt.FileName, ".")) Like "xl?*" Then olAtt.SaveAsFile fsSaveFolder & olAtt.FileName
Next
Next
End Sub