How to Count total number of attachments in outlook - vba

Question

I was actually going through the below code for counting the attachments from selected emails.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
But this is actually considering the logo in signature and any embedded or inserted pictures in email body and showing the wrong result.
So, here I need help on below two questions:
Is there any way to skip them ?
Is there any code for counting the total documents in a zip or rar file attachment in the email ?
If there is any code, can we include that here ?

Answer 1

Untested but one method would be to loop on all attachments and check if their filename ends with .zip or .rar
Option Explicit
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Outlook.MailItem
Dim AttCount As Long
Dim strMsg As String
Dim nRes As Long
Dim objAttach As Outlook.Attachment
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Loop on attachements
For Each objAttach In Item.Attachments
'increment counter if the attachement extention is .zip or .rar
If LCase(Right(objAttach.FileName, 4)) = ".rar" Or LCase(Right(objAttach.FileName, 4)) = ".zip" Then
AttCount = AttCount + 1
End If
Next objAttach
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

Answer 2

Both of the things you want to do are a bit tricky.
I don't know if there's a predictable way to determine if a given attachment is a logo or embedded image. There might be, but some quick testing shows that Outlook reports the AttachmentType of the attachment as olByValue (1) regardless if it's a signature, logo, PDF or whatever. You might have luck by "black-listing" specific file-names or attachments, if you identify that all the logo attachments have similar names (e.g., in your count, skip files that are named image001.jpg. Alternatively, you could white-list specific attachments and only show attachments that are Excel, Word, or PDF files, for example.
Regarding ZIP/RAR archives: It seems that VBA doesn't have native support for opening ZIP archives. However, it appears that you can make calls to the shell for processing them. You might want to start searching for something like this.