V. 5.5/2000/2003

Oleg Krylov · Отправлено: **14:40, 04-02-2011** | #2

Штатного решения нет.

merlin333 · Отправлено: **06:52, 07-02-2011** | #3

Решил вопрос следующим образом:

1. Использовал скрипт (стащенный в инете)
Private Sub Application_ItemSend _
(ByVal Item As Object, Cancel As Boolean)
Dim strMessage As String
Dim lngRes As Long
If Item.Subject = "" Then
Cancel = True
strMessage = "Введите пожалуйста тему"
MsgBox strMessage, _
vbExclamation + vbSystemModal, "Missing Subject"
Item.Display
End If
End Sub

2. При старте ОС клиенту копируется(если файл есть то заменяется целиком) шаблонный файл (который содержит вышенаписанный код) VbaProject.otm в каталог
%userdir%\applicationdata\microsoft\outlook\

3. чтобы скрипт работал - пришлось отключить систему безопасности для макросов...

Все работает