Sub Main()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This routine is unsupported and is provide for reference purposes only
'
' This primitive example checks MTA messages for .exe in the message
' contents and deletes any files that do!
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim sMsgCommandFile as String
Dim sMsgFile as String
Dim hFile As Long
Dim args() As String
Dim sFileLine as String

args() = Split(Command(), " ")
sMsgCommandFile = GetRegistryString("SOFTWARE\Mail Enable\Mail Enable\Connectors", "Connector Root Directory") & _
"\" & args(1) & "\Inbound\" & args(0)
sMsgFile = GetRegistryString("SOFTWARE\Mail Enable\Mail Enable\Connectors", "Connector Root Directory") & _
"\" & args(1) & "\Inbound\Messages\" & args(0)
hFile = FreeFile
bPerformAction = False
On Error goto Err Handler
Open sMsgFile For Input as #hFile
While Not EOF(hFile)
Line Input #hFile, sFileLine
if Instr(1,lCase(sFileLine),".exe") Then
 bPerformAction = True
Exit While
end if
Wend
Close (hFile)
if PerformAction = True Then
Kill(MsgCommandFile)
Kill(MsgFile)
Exit Sub

ErrHandler:
App.LogEvent "Could not process pickup event for Connector: " & ConnectorCode & _
" Message ID: " & MessageID
End Sub