Hi,
I receive mails from my Antivirus console.To my mailbox on the server.Every day i et 100's of them.Is there a way i can get a summary according to subject.
Like if it says
"Virus found in Machine 1 " 300 mails
"Virus found in Machine 2 " 200 mails
So on.
Is there a inbuilt option or can any one help me with a macro or script which can do this please.
regards
Sharath
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Hi, bsharath.
Try this.
Sub CountMessages()
'Change the file name and path as desired.
Const HTML_FILE = "C:\Subject Counts.html"
Dim olkFolder As Outlook.MAPIFolder, _
olkItem As Object, _
dicItems As Object, _
arrSubjects As Variant, _
arrCounts As Variant, _
objFSO As Object, _
objFile As Object, _
strBuffer As String, _
objIE As Object
Set olkFolder = Application.ActiveExplorer
Set dicItems = CreateObject("Scripting.Di
For Each olkItem In olkFolder.Items
If dicItems.Exists(olkItem.Su
dicItems.Item(olkItem.Subj
Else
dicItems.Add olkItem.Subject, 1
End If
Next
Set olkItem = Nothing
Set olkFolder = Nothing
arrSubjects = dicItems.Keys()
arrCounts = dicItems.Items()
For intIndex = LBound(arrSubjects) To UBound(arrSubjects)
strBuffer = strBuffer & " <tr><td>" & arrSubjects(intIndex) & "</td><td>" & arrCounts(intIndex) & "</td></tr>" & vbCrLf
Next
Set objFSO = CreateObject("Scripting.Fi
Set objFile = objFSO.CreateTextFile(HTML
objFile.WriteLine "<table>"
objFile.WriteLine strBuffer
objFile.WriteLine "</table>"
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Set objIE = CreateObject("InternetExpl
objIE.Navigate2 "file:\\" & HTML_FILE
Do Until objIE.readyState = 4
DoEvents
Loop
objIE.Visible = True
Set objIE = Nothing
End Sub
I have a pst attached to my outlook.
So i want the macro to get the subject count of all mails inside the inbox and should be able to change the path from mailbox to any other folder.
Inbox
Folder1
Or even be able to get the count of
Server Mailbox
Inbox
Folder1
Any of these ways i need to get the count.
Business Accounts
Answer for Membership
by: Klaatu01Posted on 2007-11-13 at 19:15:01ID: 20277403
If the Subject lines are that clearly worded you can use View > Arrange By > "Show in Groups" and then click the "Subject" column header and [+]/[-] collapse the views of e-mails grouped by Subject. Has this been tried already?
Also, using the (envelope) "Mail" view versus the (folder icon) "Folder List" view will allow you to have the 'Favorite Folders' in the upper-left corner of the main window and see an "Unread mail" count. Favorites Folders could include a count of unread mails by subfolder names if, for example, a few were created and some rules setup to sort the incoming e-mails into them by Subject line.
I use this method to track incoming & sorted messages using Favorite Folder view. Add folders created below "Mailbox - (lastname, firstname)" via use of a right-click on the new folder(s).
If this is not quite what you wanted, I have some thoughts on other approaches, but will leave with this first built-in features approach before purposing any additional alternatives.