发送邮件之前先加密附件

Question

我想确保我发送的所有带有附件的邮件都已加密。因此可以使用VBA在Outlook中进行设置。自动加密还是其他？

或者，也许有人可以帮助我解决这个问题：

到目前为止，我已经编写了这段代码，它会创建一个弹出窗口（大于2，因为我的签名中有2个附件）：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strSubject As String
    Dim lngAttach As Long
    Dim strPrompt As String
    strSubject = Item.Subject
    lngAttach = Item.Attachments.Count

    If lngAttach > 2 Then
        strPrompt = "Have you encrypted the file?"

        If MsgBox(strPrompt, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check") = vbNo Then
            Cancel = True
        End If    
    End If

End Sub

如果答案是否定的，如果我希望它自动打开附件，我该怎么做？