65.9K
CodeProject 正在变化。 阅读更多。
Home

Outlook 2007 的空白主题警告

starIconstarIconstarIconstarIcon
emptyStarIcon
starIcon

4.60/5 (8投票s)

2009 年 4 月 23 日

CPOL

1分钟阅读

viewsIcon

69455

Outlook 不会验证空主题行。本文提供了一种实现相同功能的机制。

引言

如今,在专业领域,Outlook 是最流行的电子邮件客户端。主题行是任何电子邮件中非常重要的一部分。一个好的主题行可以吸引电子邮件读者的注意力。你有没有遇到过通过 Outlook 发送电子邮件而忘记填写主题行的情况?在点击“发送”按钮后,你才意识到自己犯了一个错误。你是否经常忘记在电子邮件中包含主题行?Outlook 不会验证空主题行。

Using the Code

我们将按照以下步骤验证 Outlook 2007 的空主题行。

  1. 转到“工具”->“宏”->“Visual Basic 编辑器”。或者,直接按 Alt + F11。
  2. Visual Basic 编辑器窗口将打开。
  3. 在左侧窗格中,你将看到“Microsoft Outlook 对象”或“Project1”,展开它。现在,你将看到“ThisOutLookSession”条目。
  4. Step 2

  5. 双击“ThisOutLookSession”。它将打开一个代码窗格。
  6. 将以下代码复制并粘贴到代码窗格中
  7. 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

    现在,只需保存项目即可。

    还有一项设置需要进行,那就是启用宏。转到“工具”->“宏”->“安全性”。将打开一个对话框。选择“对所有宏选项发出警告”。

完成了!现在你可以开始使用了。

关闭 Outlook 并再次打开它。你将收到有关安全问题的通知。请参见下图

点击“启用宏”。

现在,尝试发送一个空主题行的电子邮件。尽情享受吧....

历史

  • 2009 年 4 月 23 日:初始发布。
© . All rights reserved.