숨겨진 첨부 파일을 확인하는 Outlook 스크립트

Question

수신자를 보여주고 사용자에게 "이 이메일을 XXX로 보내시겠습니까?"라고 묻는 Outlook 스크립트가 있습니다. 그러나 스크립트에서 사용자에게 한 번이 아닌 두 번 메시지를 표시하는 보안 파일을 보내는 데 사용하는 플러그인에 문제가 있습니다. 그들은 ".sf"로 끝나는 파일 이름을 확인하기 위해 items.Attachments 속성을 반복하라고 지시합니다. 이것이 포함되어 있으면 내 스크립트를 중단하십시오. 누구든지 이 작업을 수행하는 방법을 말해 줄 수 있습니까?

Private Sub Application_ItemSend _ (ByVal Item As Object, Cancel As Boolean)
Dim strMsg As String
Dim Atmt As Variant

If Item.Class = "43" Then
   For Each Atmt In Item.Attachments
       If Right(Atmt.FileName, 3) = ".sf" Then
          GoTo NonEmailError
       End If
   Next Atmt

   If Item.CC = "" Then
      strMsg = "To recipients: " & Item.To & vbCrLf & _
       "Are you sure you want to send this message?"
   Else
      strMsg = "To recipients: " & Item.To & vbCrLf & _
      "Cc recipients: " & Item.CC & vbCrLf & _
      "Bcc recipients: " & Item.BCC & vbCrLf & _
       "Are you sure you want to send this message?"
   End If
Else
    GoTo NonEmailError
End If

On Error GoTo NonEmailError

NonEmailError:
' The item being sent was not an e-mail and so don't prompt the user anything
Exit Sub

End Sub

Answer 1

For Each첨부 파일 목록을 반복하는 스크립트에 루프가 필요합니다 . 아래와 같은 것. 참고로 이는 의사 코드입니다. 나는 그것을 시도하지 않았습니다:

For Each Atmt In item.Attachments
    If Right(Atmt.FileName, 3) = ".sf" Then
       --  Your code here
    EndIf
Next Atmt