有没有办法检测Outlook邮件是否没有附件?

时间:2014-01-16 11:34:43

标签: outlook

我一直在寻找解决方案一段时间,需要一些帮助。

我需要检测有人在没有附件时向我的Outlook帐户发送消息。

我有一种情况。

我发了一封电子邮件 主题中有空格 它有一个附件 如果它有附件,它会发送回复1并将消息移动到文件夹A. 如果它没有attachmnet,它会发送回复2.并将消息移动到文件夹B

欢迎任何帮助

非常感谢

1 个答案:

答案 0 :(得分:0)

您可以在VBScript中轻松完成此操作,如下所示:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
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), "attach")

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

这可以根据您的确切需要进行修改,但它非常简单。

简单的谷歌搜索。将credit给予撰写它的人。