Скрипт Hmailserver - VB

Формулировка задачи:

Добрый день! Есть задача: есть почтовый сервер, он настроен локально, раз в неделю отправляют документы во вложениях, нужно что бы сервер делал выборку по вложениям и искал документы определенного расширения и складывал их в определенную папку. Прикладываю что-то похожее на правду, но скорей всего оно абсолютно не правильное. Всем сердцем и душой надеюсь на вас

Sub OnAcceptMessage(oClient, oMessage)
  If oClient.Port = 25 Then      
     If StrComp("127.0.0.0", "127.0.0.1") Then

  If (InStr(1, oMessage.FromAddress, "@test.com", 1) > 0) Then
      If (oClient.Username = "") Then
    Dim oAttachment   
    Dim oRegExp
    Dim savefolder
    Set savefolder = "C:\dist"   
   
    Set oRegExp = new RegExp   
    For oAttachment = 0 to oMessage.Attachments.Count-1
    ' Test for undesirable attachments
      with oRegExp
          .Pattern = "^.*\.(bat|cmd|com|cpl|csh|docm|exe|hta|htb|inf|js|jse|lnk|msi|msp|pif|reg|scf|scr|shs|shb|vbe|vbs|wsf|wsh|zip)$"
          .IgnoreCase = True
          .Global = True
      end with
 
        oMessage.attachments.item(i-1).saveAsfile savefolder
        Result.Message = "Email Rejected : Attachment <" _
          & oMessage.Attachments(oAttachment).Filename & "> is not acceptable"
        Result.Value = 2      ' Reject'
   
         Next
    Set oRegExp = nothing
  End If 
End If
End If
End If 
End Sub

null

тут False

нашел скрипт на форуме hmailserver, но он через чур массивный вот линк https://www.hmailserver.com/forum/vi...chments#p91514

вот еще что-то похожее, только без выборкиhttps://www.hmailserver.com/forum/vi...achment#p76683 чувствую себя одиноко, как сам с собой общаюсь

Решение задачи: «Скрипт Hmailserver»

textual
                            Листинг программы 
                        

                            Sub SaveAttachments(oMessage)
  Dim Quarantine  
  Quarantine = True
  Dim File
  Dim FileExtensions
  FileExtensions = "(txt)"
  
  Dim Folder       
  Folder = "c:\dist\"
  Dim oAttachment
  Dim oRegExp 
  Set oRegExp = new RegExp    
  For oAttachment = 0 to oMessage.Attachments.Count-1
  with oRegExp
    .Pattern = "^.*\."& FileExtensions & "$" 
    .IgnoreCase = True
    .Global = False
   end With
   if (oRegExp.test(oMessage.Attachments(oAttachment).Filename)) Then
   If (Quarantine) Then
   File = Folder & oMessage.Attachments(oAttachment).Filename
 oMessage.Attachments(oAttachment).SaveAs(File)
   End If
   End If
   Next 
   Set oRegExp = Nothing
   End sub
                        