Возможный дубликат:
Как сделать Outlook, который 2010 не предупреждает о пустом предмете?
Кто-то спросил это, но я никогда не видел ответ:
Существует ли установка, чтобы ПРЕКРАТИТЬ предупреждать меня о пустой строке темы?
Обновление: На самом деле, ударом к этому вопросу и "кем-то спросил это", я искал дубликаты:
Как сделать Outlook 2010 не Варк меня на пустой строке темы?
Это действительно отвечает на вопрос:
Option Explicit
'=========================================================================
' Prevents Outlook® 2010 to display a no-subject warning message
' (c) Peter Marchert - http://www.outlook-stuff.com
' 2010-07-15 Version 1.0.0
' 2010-07-19 Version 1.0.1
'=========================================================================
Private WithEvents colInspectors As Outlook.Inspectors
Private Sub Application_Startup()
'---------------------------------------------------------------------
' Set a reference to all forms
'---------------------------------------------------------------------
Set colInspectors = Outlook.Inspectors
End Sub
Private Sub colInspectors_NewInspector(ByVal Inspector As Inspector)
'---------------------------------------------------------------------
' This code is running if a form (e. g. an e-mail) will be opened
'---------------------------------------------------------------------
Dim objItem As Object
'---------------------------------------------------------------------
' Skip errors
'---------------------------------------------------------------------
On Error GoTo ExitProc
'---------------------------------------------------------------------
' Set a reference to the open item
'---------------------------------------------------------------------
Set objItem = Inspector.CurrentItem
'---------------------------------------------------------------------
' A new item does not have a received time
'---------------------------------------------------------------------
If Year(objItem.ReceivedTime) = 4501 Then
'-----------------------------------------------------------------
' Check if the subject is empty if an e-mail was created by a
' template with predefined subject.
'-----------------------------------------------------------------
If objItem.Subject = "" Then objItem.Subject = " "
End If
ExitProc:
'---------------------------------------------------------------------
' Delete the reference to the form and to the item
'---------------------------------------------------------------------
Set objItem = Nothing
Set Inspector = Nothing
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
'---------------------------------------------------------------------
' If the blank still exists it will now be removed (Outlook®
' will this not recognize)
'---------------------------------------------------------------------
Item.Subject = Trim(Item.Subject)
End Sub
Private Sub Application_Quit()
'---------------------------------------------------------------------
' Delete the reference to the forms
'---------------------------------------------------------------------
Set colInspectors = Nothing
End Sub
Старый ответ, для ссылки на объяснение выбора Microsoft:
Почему можно было бы хотеть отправить почту с пустой строкой темы? Вы отправляете почту с намерением, и предмет там для подведения этого. При оставлении строки темы пустыми увеличениями доверительный уровень спама и почта могли таким образом рассматриваться как спам.
Outlook был разработан как бизнес-класс или корпоративный почтовый клиент, не специально для персонального / домашнего использования. При получении большого количества писем, легче просканировать через строки темы, чем через тела содержания для определения что действие взять для каждой почты...
Замечательный: Много пользователей, перенесенных от передающих писем без строки темы так, чтобы они запросили Microsoft реализовать это поведение в Outlook 2010, Вы могли запросить опцию переключить это так, они могут реализовать его для следующего пакета обновления. Попробуйте обслуживание клиентов Microsoft...