Tạo thông báo cho MS Outlook khi tiêu đề trống

Trước giờ toàn sử dụng Thunderbird nên khi tiêu đề trống thì nó có thông báo, 2 bữa nay chuyển qua dùng MS Outlook thì bị complain là sao gửi email không có Subject. Giựt mình, trước giờ mình gửi email lúc nào cũng kỹ lắm mà sao lần này đoản thế.
Ngẫm nghĩ lại 1 chút thì nhớ rằng thằng MS Outlook nó không thèm thông báo gì khi mà email không có subject. Mò mẫm trên Google thì được 1 hướng dẫn tạo thông báo khi "Subject is empty"


1. Vào Menu Tools > Macro > Visual Basic Editor

2. Sau đó bạn sẽ thấy 1 cửa sổ của trình soạn thảo Visual Basic hiện ra như sau:

3. Chọn "ThisOutlookSession" thì sẽ hiển thị 1 cửa sổ bên phải. Bạn code đoạn code này vào cửa sổ mới:

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 

4. Chọn Save và đóng lại cửa sổ VisualBasic Editor.

5. Tiếp tục chọn Menu Tools > Macro > Security. Chọn như trong hình:

6. Bước cuối cùng là tắt MS Outlook và mở lên lại. Sẽ có 1 thông báo hiện lên. Bạn cho Enable Macros

  

7.Bạn hãy thử soạn 1 email và bỏ trống Subject đi sẽ thấy có 1 câu thông báo bé bé.