Export Specific Text from multiple mails to excel Sheet

sultan1232

New member
Joined
Jan 13, 2016
Messages
1
Reaction score
0
Points
0
First Thing I don't know about VBA or Access form creation or anything. I am simply searching for a way to fetch specific data from the body of my outlook 2013 emails to Excel. The mail body is in the following format:


This resume has been forwarded to you at the request of Monster User XYZ123
Some one's name
Last updated:01/10/16
Job Title: no specified
Company: no specified
Rating: Not Rated
Screening score: no specified
Status: Resume Received
Some Place,FL 34586 US
Mobile: 9523545411 Home: 4454548745
Mail_ID
Quick View Links:
Links



In above mail seems it has tables

I ran below VBA script to get line numbers of the mail (Every mail in this format only)
----------------------------------------
Sub TestLines()
Dim olItem As Outlook.MailItem
Dim vText() As String
Dim sText As String
Dim i As Long
For Each olItem In Application.ActiveExplorer.Selection
sText = Replace(olItem.Body, Chr(160), Chr(32))
vText = Split(sText, Chr(13))
For i = 0 To UBound(vText)
MsgBox "Line " & i & vbCr & vText(i)
Next i
Next olItem
End Sub
--------------------------------------------------

And i want to Export only Name (line 2), Address (Line 9,10,11), Mobile (Line 12,13), E-Mail ID (Line 14)


I request you to help me in this and give some easy solution with VBA script


Thanks in advance



 
Back
Top