Скрипт Outlook для проверки наличия скрытых вложений

Question

У меня есть сценарий Outlook, который показывает вам получателя и предлагает пользователю «Вы уверены, что хотите отправить это электронное письмо в XXX?«Однако у нас есть проблема с плагином, который мы используем для отправки защищенных файлов, который запрашивает пользователя дважды из сценария, а не один раз. Они говорят мне перебирать предметы.Свойство Attachments для проверки имени файла, заканчивающегося на «.sf». Если он содержит это, чтобы прервать мой сценарий. Может кто-нибудь сказать мне, как это сделать?

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