如何在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

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

Answer 3

我有一个类似的例行程序，只检查我是否提到附件一词，并会提示我是否要取消发送，我必须加入：

Item.Display

这样我就可以添加附件了。这样您就可以使用消息框提示添加主题...