Code to stop macro from executing when encountering a specific word

[kvitlauk]

Hi, all. After figuring out how to create a VBA code to stop sending e-mails with missing attachments, I am now trying to improve my code.
I am actually trying to solve two things:
1) To stop the macro from executing if I am replying to an earlier e-mail that includes buzzwords such as "attachment", "enclosed" etc. I have seen some suggestions with a search function (e.g. searching for the word "From:", which would be the first word to appear in a reply message) , but I just cannot seem to get it right for my code.
2) To stop the VBA from executing if there is a signature with images (which will be counted as attachments by Outlook). I have also seen some suggestions on how to solve this, but the result is the same - it just doesn't work properly
.
Below is my code without indention:

-----


Function SearchForAttachWords(ByVal s As String) As Boolean
Dim v As Variant

For Each v In Array("vedlegg", "vedlagt", "lagt ved", "enclosed", "attached", "Vedlegg", "Vedlagt", "Lagt ved", "Enclosed", "Attached")

If InStr(1, s, v, vbTextCompare) <> 0 Then
SearchForAttachWords = True
Exit Function
End If
Next
End Function


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

If Item.Attachments.Count > 6 Then Exit Sub
If Not SearchForAttachWords(Item.Subject & ":" & Item.Body) Then Exit Sub

Prompt$ = "Du har glemt å legge ved dokumenter. Vil du fremdeles sende mailen?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Glemt vedlegg?") = vbNo Then
Cancel = True
End If
End Sub

-----

Do you guys have any clue what to do next?

[SamT]

The Function looks perfect.

As to the Sub, I like this way.

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

With Item
If .Attachments.Count > 6 Then
GoTo OutaHere
ElseIf Not SearchForAttachWords(.Subject & .Body) Then
GoTo OutaHere
'ElseIf next Condition Then
' GoTo OutaHere
End If
End With

Prompt$ = "Du har glemt å legge ved dokumenter. Vil du fremdeles sende mailen?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Glemt vedlegg?") _
= vbNo Then Cancel = True

Exit Sub
OutaHere:
Cancel = True
End Sub

[kvitlauk]

The Function looks perfect.

As to the Sub, I like this way.

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

With Item
If .Attachments.Count > 6 Then
GoTo OutaHere
ElseIf Not SearchForAttachWords(.Subject & .Body) Then
GoTo OutaHere
'ElseIf next Condition Then
' GoTo OutaHere
End If
End With

Prompt$ = "Du har glemt å legge ved dokumenter. Vil du fremdeles sende mailen?"
If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Glemt vedlegg?") _
= vbNo Then Cancel = True

Exit Sub
OutaHere:
Cancel = True
End Sub


Thank you for indenting my code properly. It definitely looks a bit easier to read now.

My problem is still that I really don't know how to proceed. If the words "attach" or "enclosed" appear in a previous mail or a previous reply, the code still executes regardless if I don't mention the aforementioned words in my new reply. What I would like to understand is how to make the SearchForAttachWords skip previous messages and only look at the new reply (or new e-mail, for that matter).

[SamT]

Remove "Not" from here


ElseIf Not SearchForAttachWords

[skatonni]

You can use Instr to determine whether "From:" exists. This may not be 100% the start of old mail.


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

Dim strPrompt As String
Dim beforeFromPos As Long
Dim beforeFrom As String
If Item.Attachments.count > 6 Then Exit Sub

beforeFromPos = InStr(Item.body, "From:")

If beforeFromPos > 0 Then
beforeFrom = Left(Item.body, beforeFromPos - 1)
Else
beforeFrom = Item.body
End If

Debug.Print beforeFrom

If Not SearchForAttachWords(Item.Subject & beforeFrom) Then Exit Sub

strPrompt = "Du har glemt å legge ved dokumenter. Vil du fremdeles sende mailen?"
If MsgBox(strPrompt, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Glemt vedlegg?") = vbNo Then
Cancel = True
End If

End Sub