[아웃룩] 첨부파일 일괄 다운로드

다들 아웃룩 잘 사용하시나요?

메일 보관함에 있는 첨부파일을 모두 다운로드 받고 싶을 때가 있는데요.

그럴 때 유용한 기능을 소개해드리려고 합니다.

메일 보관함에 있는 첨부파일 일괄 다운로드!

그럼 아래로 가실까요?

 

Sub SaveAttachments() 

    Dim olApp           As Object 

    Dim olNS            As Object 

    Dim olFolder        As Object 

    Dim olItems         As Object 

    Dim olItem          As Object 

    Dim olAtt           As Object 

    Dim sSaveToFolder   As String 

    Dim prefix          As String 

     

    sSaveToFolder = "C:\Temp\" 

     

    Set olApp = CreateObject("Outlook.Application") 

    Set olFolder = olApp.GetNamespace("MAPI").Folders("OOOOO@gmail.com").Folders("받은 편지함").Folders("폴더명") 

    Set olItems = olFolder.Items 

     

    For Each olItem In olItems 

        If olItem.Attachments.Count > 0 Then 

            prefix = Format(olItem.ReceivedTime, "YYYYMMDD_HHNN") & "_" 

            For Each olAtt In olItem.Attachments 

                olAtt.SaveAsFile sSaveToFolder & prefix & olAtt.FileName 

                olItem.Save 

 

            Next olAtt 

        End If 

    Next olItem 

     

    Set olApp = Nothing 

    Set olNS = Nothing 

    Set olFolder = Nothing 

    Set olItems = Nothing 

    Set olItem = Nothing 

    Set olAtt = Nothing 

     

End Sub

 3. 실행 버튼을 누르면 빨간 밑줄에 있는 경로에 파일이 저장된다.  

(전) 

 

(후)