Как сделать предметную область обязательной в Outlook 2007?

Question

Я всегда забываю писать тему по электронной почте, поэтому хочу сделать поле темы обязательным. Можете ли вы помочь мне, пожалуйста?

Answer 1

Private Sub Application_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean)

  If Item.Subject = "" Then
    Item.Subject = InputBox("Please do not always forget the subject!")
  End If

  If Item.Subject = "" Then
    MsgBox "Won't send this without a subject."
    Cancel = True
  End If
End Sub

Answer 2

У меня есть похожая процедура, которая просто проверяет, упоминаю ли я слово «вложение», и подскажет мне, если я хочу отменить отправку, и мне нужно вставить в строку:

Item.Display

чтобы я мог добавить приложение. Таким образом, вы можете просто запросить с сообщением о добавлении темы ...

Answer 3

Do While Item.Subject = ""
Item.Subject = InputBox("..")
Loop