매일 아침 나는 한 사람으로부터 이메일을 받았는데, 거기에는 스프레드시트 첨부 파일이 포함되어 있었습니다. 저는 이러한 이메일을 포착하는 Outlook 규칙을 만들었습니다. 이제 각 첨부 파일을 YYYY-MM-DD.xls 파일 이름으로 로컬 폴더에 자동으로 저장할 수 있습니까?
메일의 첨부 파일에는 무작위로 생성된 파일 이름이 있으므로 파일 이름을 선택하려면 메일이 전송된 날짜를 가져와야 합니다. 참고: 이것은 내 노트북에 있으므로 이메일이 내가 받은 날이 아닌 다른 날에 전송될 가능성이 있습니다(예: 하루 동안 전원이 꺼져 있는 경우). 따라서 "오늘 날짜"를 사용하는 것은 실행 가능한 옵션이 아닙니다.
편집하다: Outlook 2013에서 Windows 7 사용
답변1
원하는 것을 수행하려면 약간의 VBA와 규칙을 함께 혼합해야 합니다. 사용 중인 Outlook 버전이 확실하지 않으므로 여기서는 보장할 수 없습니다. 이는 Outlook 2010에서 테스트되었습니다.
이 문서는 설정을 완료하는 데 도움이 될 것입니다.Outlook에 첨부 파일을 자동으로 저장하는 규칙.
아래 코드는 파일 이름 형식을 yyyy-mm-dd
.
Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat
dateFormat = Format(Now, "yyyy-mm-dd")
'Change this path to the your folder location
saveFolder = "c:\temp\"
objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"
Set objAtt = Nothing
End Sub
이 스크립트를 실행하기 위해 이 규칙을 설정하면 이 사람이 첨부 파일을 받을 때마다(및 확장명 제공 .xls
) 모든 첨부 파일이 저장됩니다. 이를 변경하려면 규칙을 수정하거나 비활성화해야 합니다.