Есть ли способ обнаружить, что сообщение Outlook не имеет вложения?

Question

Я искал какое-то решение для этого сейчас и нуждаюсь в некоторой помощи.

Мне нужно определить, когда кто-то отправит мне сообщение в мою учетную запись Outlook, если у нее нет атташентов.

У меня сложилась ситуация.

отправляется сообщение электронной почты мне Существует spacific текст в теме Он имеет вложение Если у него есть вложение, он посылает ответ 1 и перемещает сообщение в папку A Если это не имеет attachmnet он посылает ответ 2.And перемещает сообщение в папку B

Любая помощь будет приветствоваться

Большое спасибо

Answer 1

Вы можете сделать это очень легко в 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 

Это может быть изменено для вашей конкретной необходимости, но это довольно просто.

Простой поиск в Google. Дайте credit тому парню, который его написал.