저장 첨부 파일 내가 다음 스크립트 실행 규칙을 만들고 싶습니다 전망

Question

매크로를 사용하여 이메일로 \ temp 폴더를하지만 objAtt 때문에 작동하지 않습니다 가치는 아무것도 아니다. 몇 가지 이유로 라인은 다음과 같습니다.

Dim objAtt As Outlook.Attachment 

이유가 무엇인지 알 수없는 이유로 첨부 파일을 obAtt 변수에 할당하지 않습니다. 여기서 첨부 파일은 .csv 파일입니다.

나는 Windows 10에서 Outlook 2016을 사용하고 있습니다. 왜 이런 일이 일어나고 있는지에 관해서는 기쁘게 생각합니다.

Answer 1

개체를 작성한 곳을 작성하고 작성하지 않아야하므로 개체를 설정해야합니다.

그래서 MailItem과 어떤 관계에 있었는지 알지 못했습니다. 또한 더

을 통해 갈 첨부 파일의 모음이, 참조 :

Public Sub SaveToDisk(ItM As Outlook.MailItem) 
Dim oAttS As Outlook.Attachments 
Dim objAtt As Outlook.Attachment 
Dim saveFolder As String 
Dim dateFormat 

dateFormat = Format(Now, "yyyy-mm-dd") 
saveFolder = "c:\temp\" 

Set oAttS = ItM.Attachments 

For Each objAtt In oAttS 
    objAtt.SaveAsFile saveFolder & "\" & dateFormat & "_" & objAtt.FileName 
Next objAtt 

Set oAttS = Nothing 
Set objAtt = Nothing 

End Sub