MS Outlook и напоминалка о "subject"

Вопросы, советы и консультации на любые темы.

Модератор: mOLDman

Правила форума
Запрещаются:
1) Оскорбления других участников.
2) Нецензурные выражения.
Аватара пользователя
Генннадий
Администратор
Сообщения: 15871
Зарегистрирован: 17.05.2008, 20:06
smartphone: SG S9
Откуда: Свет Акивы
Благодарил (а): 94 раза
Поблагодарили: 90 раз

Заслуженный участник покетовки

Даритель

MS Outlook и напоминалка о "subject"

Сообщение Генннадий »

Когда-то очень давно, когда я ещё пользовался Outlook Express-ом, меня раздражало напоминание перед отправкой о том, что я не указал тему послания.
Теперь вот ищу такую же напоминалку, но для MS Outlook. В самой программе, похоже, такого нет (или не нашёл). Может есть какой-то другой способ? Что-то типа плагина, что ли. :?:
SG-S21__α700__RX100M6
puf
Пользователь
Сообщения: 976
Зарегистрирован: 25.12.2005, 20:07
smartphone: Iphone 15ProMax
Откуда: Bat-Yam
Благодарил (а): 4 раза
Поблагодарили: 11 раз

Даритель

Re: MS Outlook и напоминалка о "subject"

Сообщение puf »

хотел стереть :)
Аватара пользователя
Генннадий
Администратор
Сообщения: 15871
Зарегистрирован: 17.05.2008, 20:06
smartphone: SG S9
Откуда: Свет Акивы
Благодарил (а): 94 раза
Поблагодарили: 90 раз

Заслуженный участник покетовки

Даритель

Re: MS Outlook и напоминалка о "subject"

Сообщение Генннадий »

puf писал(а):Усё.
:shock:
Может, я неясно сформулировал. :unknown: Попробую ещё раз.
Нужно напоминание перед отправкой письма, о том, что в строчке Subject (Тема) ничего не указано.
SG-S21__α700__RX100M6
Аватара пользователя
zar013
Модератор
Сообщения: 4724
Зарегистрирован: 18.09.2007, 19:27
smartphone: Galaxy S21
Откуда: Ashdod
Благодарил (а): 8 раз
Поблагодарили: 29 раз

Заслуженный участник покетовки

Даритель

Re: MS Outlook и напоминалка о "subject"

Сообщение zar013 »

Генннадий,
Достаточно просто (работает для 2003 и 2007, может и для 2010):
1. В Outlook жмёшь Alt+F11
2. Получаешь такую штуку:
Изображение
3. Дабл-клик на ThisOutLookSession
4. Вставляешь в появившееся окно следующий скрипт:

Код: Выделить всё

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
5. Нажимаешь сейв и закрываешь окно.
6. В меню выбираешь Tools->Macro->Security, отмечаешь опцию Warning for all macro и жмёшь ОК. Всё.
Изображение
Аватара пользователя
Генннадий
Администратор
Сообщения: 15871
Зарегистрирован: 17.05.2008, 20:06
smartphone: SG S9
Откуда: Свет Акивы
Благодарил (а): 94 раза
Поблагодарили: 90 раз

Заслуженный участник покетовки

Даритель

Re: MS Outlook и напоминалка о "subject"

Сообщение Генннадий »

zar013 писал(а):Достаточно просто
Да, для тех, кто в курсе. :)
zar013, большое спасибо! Только что попробовал-всё работает.
+3 за то, что всегда в курсе!
SG-S21__α700__RX100M6
Ответить

Вернуться в «Требуется помощь»