Everyday I am receiving hundreds of mail containing header data and data about active users and concurrent users. I need to extract header information,active user and concurrent user data into excel from all mails. The data should append. For this I want a macro which will do this task.
Note: I kept all these mail into one folder. Plese see example of data
********Header information*******
ABC
PQRSTUVDF
123456
********End of Header information*******
---------------
--------------
----------------
Active Users 300
-------------------------
------------------------
Concurrent Users 10
----------------------------
Please help me!!! Thanks in advance....

Is it a Text File?

If it is a Text file you can read the entire contents of the file (http://vbadud.blogspot.com/2007/06/v...h-leading.html) and can filter the data through regular expressions

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

its not a text file I want to read the data from mail only

if it is outlook you can check at www.outlookcode.com . IT has lots of code snippets

Here is the simple VBA code to iterate the mails in draft folder that can give you some hint


Sub Check_Drafts_Folder()

Dim oNS As Outlook.NameSpace
Dim oFld As Outlook.Folder
Dim oItems As Outlook.Items

On Error GoTo OL_Error

Set oNS = Application.GetNamespace("MAPI")


Set oFld = oNS.GetDefaultFolder(olFolderDrafts)

Set oItems = oFld.Items

If oItems.Count <> 0 Then
MsgBox "There are some messages in the draft"
End If

Exit Sub
OL_Error:
MsgBox Err.Description
Err.Clear
End Sub

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips &amp; Tricks (http://www.vbadud.blogspot.com)