用于 Outlook 附件安全发送的 VB 代码

Question

我对VB一无所知。我有以下代码，如果邮件正文中提到“附件”一词，则会弹出提醒。我想要的是提醒邮件是否包含附件，并询问邮件是否应该安全发送（加密）。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
‘ Pops up a reminder if the word “attach” is found but there is no attachment on your email.
Dim m As Variant
Dim strBody As String
Dim intIn As Long
Dim intAttachCount As Integer, intStandardAttachCount As Integer

On Error GoTo handleError

‘Edit the following line if you have a signature on your email that includes images or other files. Make intStandardAttachCount equal the number of files in your signature.
intStandardAttachCount = 0

strBody = LCase(Item.Body)

intIn = InStr(1, strBody, “original message”)

If intIn = 0 Then intIn = Len(strBody)

intIn = InStr(1, Left(strBody, intIn), “attachment”)

intAttachCount = Item.Attachments.Count

If intIn > 0 And intAttachCount <= intStandardAttachCount Then

m = MsgBox(“It appears that you mean to send an attachment,” & vbCrLf & “but there is no attachment to this message.” & vbCrLf & vbCrLf & “Do you still want to send?”, vbQuestion + vbYesNo + vbMsgBoxSetForeground)

If m = vbNo Then Cancel = True

End If

handleError:

If Err.Number <> 0 Then
MsgBox “Outlook Attachment Reminder Error: ” & Err.Description, vbExclamation, “Outlook Attachment Reminder Error”
End If

End Sub

Answer 1

Mihn，我想将此作为评论发布，但它不支持这么多字符。

SLAks 说你应该学习 VBA 是正确的:)

两个主要优势：

1) 你学习一门新语言

2) 明天如果你得到如果卡住了，您可以自己进行编辑，而不必再次寻求帮助。这也将确保您不必为了解决方案而无休止地等待

您正在使用的代码，我相信最初是由 Dan Evans 编写的，它检查 .Subject 中的“附件”一词以及电子邮件的 .Body ，其用途不同，正如您在上面正确提到的那样。

对于您的疑问，请参阅以下内容。

提示

使用item.Attachments.Count 查看是否存在如上面代码所示的附件，然后简单地加密邮件。

警告

加密附件不是一个简单的过程。它比普通的 VBA 代码稍微高级一些。因此，请做好大量学习的准备；）

尝试一下，如果您遇到困难，只需发布​​您尝试过的代码，我们一定会帮助您（即，如果您在学习该语言方面表现出努力）:)

HTH

Sid