Check for attachment code not working

Status
Not open for further replies.

Alan McGowan

Senior Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
Hi,

I am using the code below to check for missing attachments after you hit the send button. If no attachments are found and you choose yes from the msgbox then a userform loads and all it well. However, if you press no in the msg box what I want to happen is that you are returned back to the email message. At present if you press no the email is sent regardless. Any suggestions?

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

If UserForm1.TextBox4.Value = "YES" Then

Dim lngAns As Long
Dim varArray As Variant
Dim strWordFound As String
varArray = Array("Attached", "Attach", "Enclosed", "Enclose")
For lngCount = LBound(varArray) To UBound(varArray)
If InStr(1, Item.Body, varArray(lngCount), vbTextCompare) Or InStr(1, Item.Subject, varArray(lngCount), vbTextCompare) Then
strWordFound = strWordFound & "," & varArray(lngCount)
End If
Next
strWordFound = Mid(strWordFound, 2)
If Len(strWordFound) > 0 And Item.Attachments.Count = 0 Then

If MsgBox("You mention attachments but none were found. Do you want to send the mail anyway?", _
vbYesNo + vbQuestion, "Attachment Missing") = vbYes Then
If UserForm1.TextBox2.Value = "YES" Then
UserForm3.Show
Else
Exit Sub
End If
End If

End If
End If
End Sub
 

Alan McGowan

Senior Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server
All now working using the code below:

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

If UserForm1.TextBox4.Value = "YES" Then

Dim lngAns As Long
Dim varArray As Variant
Dim strWordFound As String
varArray = Array("Attached", "Attach", "Enclosed", "Enclose")
For lngCount = LBound(varArray) To UBound(varArray)
If InStr(1, Item.Body, varArray(lngCount), vbTextCompare) Or InStr(1, Item.Subject, varArray(lngCount), vbTextCompare) Then
strWordFound = strWordFound & "," & varArray(lngCount)
End If
Next
strWordFound = Mid(strWordFound, 2)
If Len(strWordFound) > 0 And Item.Attachments.Count = 0 Then

If MsgBox("You mention attachments but none were found. Do you want to send the mail anyway?", _
vbYesNo + vbQuestion, "Email Attachment Missing") = vbYes Then
If UserForm1.TextBox2.Value = "YES" Then
UserForm3.Show
End If
Else
Cancel = True
End If
Else: UserForm3.Show
End If
ElseIf UserForm4.TextBox2.Value = "YES" Then UserForm3.Show
End If

End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
R Outlook Custom form check if there an attachment Outlook VBA and Custom Forms 2
Victor.Ayala Automated way to check the option "Show this folder as an email Address Book" Outlook VBA and Custom Forms 2
D Spell check Outlook VBA and Custom Forms 3
L Spell-check dictionary confusion Using Outlook 0
S How to export urls from email to excel and check the status of the url ? Using Outlook 5
N Private check box in table view Using Outlook 0
S Outlook to check for specific text Outlook VBA and Custom Forms 3
C Custom Outlook Form - Populate Information from Radio Button / Check Box Using Outlook 0
O Outlook 2016 This rule will only run when you check your email in Outlook.... Using Outlook 4
A Check for words in subject header before sending email Outlook VBA and Custom Forms 4
R Using "check for duplicates" for existing contacts Using Outlook 2
P Suppress dialog box on email check error? Using Outlook 5
Potty Ash MS Outlook 2010 custom form - validation or formula to request user to check a checkbox Outlook VBA and Custom Forms 16
I Check if sent email has been replied Outlook VBA and Custom Forms 1
K adding more rules to 'different domains check' macro Outlook VBA and Custom Forms 2
R Macro to check file name with outlook address book Outlook VBA and Custom Forms 0
Diane Poremsky Check Contacts before moving them to Hotmail Contacts folder Using Outlook 0
Diane Poremsky Check for missing attachments before sending a message Using Outlook 1
R Outlook 2010 Modify Style "Do not check spelling or grammar" not saving Outlook VBA and Custom Forms 0
K check for sender, follow to my personal adress and delete the sent folder. Outlook VBA and Custom Forms 1
J Send and Receive Button - only check default account? Using Outlook 1
Diane Poremsky Check Message Size Before Sending Using Outlook 0
B Check for different domains macro to be triggered by specific domains only Outlook VBA and Custom Forms 2
V Check/convert to emailaddresses Outlook VBA and Custom Forms 11
JorgeDario how to check a MailItem has a digital signature (SMIME) with vba? Outlook VBA and Custom Forms 1
O Unable to check name. Using Outlook 3
L Trying to check for the absence of mail. Outlook VBA and Custom Forms 1
S Check if two organisition is added then i have to give managers passward creteria to send mail Using Outlook 1
Peter H Williams check for new email automaticlly Using Outlook 12
C Unusual Signature & Spell Check Query Using Outlook 1
M Calendar navigation displays previous field records.check calendar is shared.. Using Outlook 3
A Can Rule Check Category Contact is assigned? Using Outlook 1
T Outlook 2007 forms: Check boxes and free text boxes not retaining data Using Outlook 1
L check if send message appears in SendItems forder before moving Using Outlook 0
C Create a rule to only check new content in email - disregard original content Using Outlook 3
M Outlook Rules check for new line character Using Outlook 1
G Outlook rule check for messages not received Outlook VBA and Custom Forms 2
E Outlook could not create the work file. Check the temp environment variable Using Outlook 8
B Custom real time, time format check Outlook VBA and Custom Forms 1
B BCM shuts down everytime I try to import/export or check for error BCM (Business Contact Manager) 10
D Check whether mail item is proper for sending or not Outlook VBA and Custom Forms 5
P Check for the distribution list existence Outlook VBA and Custom Forms 1
H out to check whether outlook configured or not Outlook VBA and Custom Forms 1
M Check Profile info Outlook VBA and Custom Forms 1
L Check sent email and reply if have specific words Outlook VBA and Custom Forms 2
Z Check if email was sent Outlook VBA and Custom Forms 1
Z All Day Event Check Box Outlook VBA and Custom Forms 1
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
Owl Export Outlook PDF Attachment as JPG? Outlook VBA and Custom Forms 3
Timmon Remove just one attachment before AutoForward Outlook VBA and Custom Forms 0

Similar threads

Top