액세스 할 수없는 폴더에 저장하려고 할 때 규칙이 충돌합니다.

Question

두 개의 별칭 인 pod @ 및 invoices @가 포함 된 전자 메일 계정이 있습니다. pod @로 수신 한 메일을 POD 폴더 (HDD가 아닌 Outlook 폴더)로 이동하는 규칙이 있습니다. 내가 좋아하는 스크립트 VBA 코드를 실행 한

: Save attachments to a folder and rename them

은 그래서 첨부 파일이 다른 네트워크 드라이브에 저장됩니다 @ 송장에 대해 동일한 규칙을 설정해야합니다.

같은 위치에 있지만 다른 위치에 다른 스크립트를 추가하는 경우 Outlook 규칙을 설정할 때 스크립트를 선택할 수 없기 때문에 스크립트가 보이지 않게됩니다.

다른 네트워크 폴더에 첨부 파일을 저장하는 다른 규칙으로 스크립트를 실행하고 싶습니다. 다음 다른 네트워크 폴더에 첨부 파일을 저장 특정 Outlook 폴더에 메일을 이동로 전송 된 별칭 메일 결정할 것입니다 스크립트

또는

하나의 규칙.

또한 현재 스크립트를 실행하는 중에 문제가 발생했습니다. 첨부 파일을 저장하려고 할 때 네트워크 폴더와 네트워크 폴더에 액세스 할 수 없으면 규칙이 충돌합니다.

VBA 또는 다른 언어를 모른다.

편집 됨 :

아래의 대답에 따라 경찰 : 오류가 발생하면 최종 사용자가 알 수 및 파일이 저장되지 않도록

Public Sub saveAttachtoDisk_invoices (itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String Dim dateFormat 
    dateFormat = Format(Now, "yyyy-mm-dd H-mm") saveFolder = "C:\Temp\" 
    on error goto ErrorHandler 
    For Each objAtt In itm.Attachments  
     objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName 
    Next 
    on error goto 0 

    exit sub 

ErrorHandler: 
    debug.print itm.subject 
    debug.print err.number & ": " & err.description & " on save line in saveAttachtoDisk_invoices" 
    resume next 
End Sub 

나는 메시지를 덧붙였다. 이 줄을 ErrorHandler에 추가했습니다. 파일 이름과 경로가 존재하지 않는다는 설명이 표시됩니다.

Answer 1

다른 스크립트 이름을 사용하십시오. 네트워크 비 가용성으로 인해 오류를 우회하거나 저장 불가능한 첨부 파일을 저장하려고 시도 할 때 규칙이 충돌하지 않도록 할 수 있습니다.

Public Sub saveAttachtoDisk_invoices (itm As Outlook.MailItem) 
    Dim objAtt As Outlook.Attachment 
    Dim saveFolder As String Dim dateFormat 
    dateFormat = Format(Now, "yyyy-mm-dd H-mm") saveFolder = "C:\Temp\" 
    on error goto ErrorHandler 
    For Each objAtt In itm.Attachments  
     objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName 
    Next 
    on error goto 0 

exit sub 

ErrorHandler: 
debug.print itm.subject 
debug.print err.number & ": " & err.description & " on save line in saveAttachtoDisk_invoices" 
resume next 
End Sub