让Outlook提示每封电子邮件附件

Question

这使用的是Outlook16。我正在尝试使它每次发送电子邮件时Outlook都会提示我提供附件。 （我意识到，如果您在邮件中提到“ attach”一词，它确实会提示您，但这对我来说并不令人满意）。我在ThisOutlookSession项目中保存了一个VB脚本，如下所示：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

  '## CHECK FOR MISSING ATTACHMENT:
  If Item.Attachments.Count = 0 Then
    answer = MsgBox("There's no attachment, send anyway?", vbYesNo)
    If answer = vbNo Then Cancel = True
    End If

End Sub

但是，当我发送电子邮件时，它不执行。我想念什么？我是VB的新手。