Это настолько легко, что сам Форт знать необязательно, достаточно понимания его постфиксности А может, и этого не требуется.

В av.cfg добавляете к SentVirus и RecvVirus по образу и подобию ещё и AdminVirus (как описание процедуры, так и её вызов). А шаблон сделать один из другого ещё проще. Текст по вкусу.

Ну смотрите. AV.CFG, отсылающий ТОЛЬКО извещение администратору:

( This is configuration file for Erobot.
    Example of antivirus reply. With this config Erobot will read
    incoming mail messages and create mail for virus sender and
    virus recipient. See the *.pat files for example of robot answers.
)

VARIABLE Recipients ( список получателей )
VARIABLE Senders ( список отправителей )
VARIABLE VirusName

: VIRUS-NAME ( — addr u )
    P1 @ COUNT
;
: VIRUS-FILE ( — addr u )
    INfile @ COUNT 11 — 0 MAX SWAP 11 + SWAP
;
: DOMAIN ( — addr u )
    P2 @ COUNT
;
: FROM ( — addr u )
    Senders @ ?DUP IF NodeValue XCOUNT ELSE S" " THEN
;
: TO- ( — addr u )
    Recipients @ ?DUP IF NodeValue XCOUNT ELSE S" " THEN
;
: DATE- ( — addr u )
    S" Date:" GetFieldValue
;
: SENDER ( — addr u )
    S" From:" GetFieldValue
;
: FileExists ( addr u — flag )
    R/O OPEN-FILE ?DUP
    IF NIP DUP 2 = SWAP 3 = OR 0=
    ELSE CLOSE-FILE THROW TRUE
    THEN
;
: PAT ( addr u — )
    2DUP FileExists
    IF
        TO- NewErobotSpoolFile 2DUP TYPE CR
        R/W CREATE-FILE-NOT-SHARED THROW EvalPattern
    ELSE TYPE ." — not exists" CR THEN
;

\ : RecvVirus S" agents\recv_virus.pat" PAT ;
\ : SentVirus S" agents\sent_virus.pat" PAT ;
: AdminVirus S" agents\virusalert.pat" PAT ;

: Get'From'AddressFromFileName ( — )
    INfile @ ?DUP
    IF COUNT 11 — 0 MAX SWAP 11 + SWAP
2DUP S" !" SEARCH 0= IF 2DROP EXIT THEN
DROP NIP OVER — \ addr u
2DUP TYPE CR
COPYBUFC Senders AddNode
    THEN
;
: ReplyProc
    S" From:" GetFieldValue Senders ParseRcpt
    S" To:" GetFieldValue Recipients ParseRcpt
    Get'From'AddressFromFileName
\ RecvVirus CR
\ SentVirus CR
    AdminVirus CR
;
: MessageEnd
    ['] ReplyProc CATCH .
    ICO @ DELETE-TRAY-ICON DROP
    BYE
;

И шаблон сообщения (virusalert.pat):

For: admins@local
From: "Mailer-Daemon" <postmaster@local>
To: "Administrator" <admins@local>
Date: %DATE-%
Subject: Внимание, вирусы!
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1251
Content-Transfer-Encoding: 8bit

В поступившем письме (см. mail\infected\%VIRUS-FILE%), отправленном с адреса %FROM% на адрес %TO-%, обнаружен вирус %VIRUS-NAME%

.

admins — это у меня список рассылки, в котором все администраторы прописаны.

Добавить вот такую строчку туда, где анализируются заголовки письма:


Ко мне тоже 9 посыпались. Что странно — в лидерах Avril.2, хоть он и без автозапуска. Но, похоже, Avril.1 сейчас его догонит и перегонит.

Вот так: