안녕하세요. 업무용으로 아웃룩을 쓰고 계시는 분들 많으시죠. 일을 하다 보면 메일이 잔뜩 쌓이고, 또 여러 메일에 들어있는 여러 첨부 파일들을 다 다운받아야 할 때도 있습니다. 예전 같았으면 메일을 하나하나 열어서 다운받아야 했을텐데, 우리에게는 VBA가 있어서 한번에 다운받을 수가 있습니다. 아래 코드는 아웃룩에서 "계정이름" 아래에 있는 "폴더이름"의 모든 메일에 대하여 첨부파일을 확인하여 확장자가 pdf면 다운받아서 "C:\Temp\"에 저장하는 코드입니다. 이름이 중복되는 파일도 모두 받기 위하여 파일 이름 앞에 "YYYYMMDD_HHNN"을 추가하여 저장하도록 했습니다. 전체 코드 Sub SaveAttachments() Dim olApp As Object Dim olNS As Object Dim..
