Vba 如何在Outlook 2007中强制设置主题字段？

我总是忘记在电子邮件中写主题，所以我想让主题字段成为必选字段。

---

你能帮我吗？

我有一个类似的例行程序，只检查我是否提到“附件”这个词，如果我想取消发送，会提示我，我必须填写以下行：

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

项目.显示

---

这样我就可以添加附件了。这样，您就可以用一个消息框提示添加主题…

这是一个什么样的编程问题？也许你可以纠正一下你的拼写：）是的，我不怀疑。但以什么方式？这个问题毫无意义。要么你怀疑，要么你不怀疑有VBA代码解决了这个问题，所以我想它一定与编程有关。啊，VBA是缺少的信息。不知道为什么我没有想到。。。对不起：）

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