Теперь вот ищу такую же напоминалку, но для MS Outlook. В самой программе, похоже, такого нет (или не нашёл). Может есть какой-то другой способ? Что-то типа плагина, что ли.

Модератор: mOLDman
puf писал(а):Усё.
Код: Выделить всё
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
strSubject = Item.Subject
If Len(Trim(strSubject)) = 0 Then
Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + _
vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
Cancel = True
End If
End If
End Sub
Да, для тех, кто в курсе.zar013 писал(а):Достаточно просто