Find Details Within Email Search

[DMT Dave]

Hi Guy's, the below code will narrow down emails exchanged for the specific email address, is there a method i can find values within this range of emails (may not be one that is selected currently but within the email address) ?



For Example, to Find:

We Can Offer
Or
We Would Have To Charge
Or
Free Removal

Those are the 3 strings I would like to find within the searched email range ??

Is it possible to perhaps use instr for range of emails ?

Dim app As ObjectDim SearchString As String


Set app = GetObject(, "Outlook.Application")
On Error GoTo 0
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
app.Explorers.Add app.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
app.Explorers(1).Activate
End If
SearchString = Me.txtEmailAddress
app.ActiveExplorer.Search SearchString, olSearchScopeAllFolders
Set app = Nothing
DoCmd.RunCommand acCmdAppMinimize

[June7]

I tested this code. All it does is yellow highlight words in all emails (any part of email) that match words in search string.

What do you really want to accomplish?

Access can set link to Outlook folder.

[DMT Dave]

Hi June7, that's great so I may put a text box on the form called txtValueFound

If string matches: We Can Offer £000.00
txtValueFound = We Can Offer You £000.00" (however we retrieve the value whether it be 3 digits, 4 or 5 digits etc £1.00 or £10.00 or £100.00 (whatever value is found in search string)

Or

If String matches: We Would Have To Charge
txtValueFound = We Would Have To Charge £000.00" (however we retrieve the value whether it be 3 digits, 4 or 5 digits etc £1.00 or £10.00 or £100.00 (whatever value is found in search string)

Or

If String matches: We Can Offer Free Removal
txtValueFound = We Can Offer Free Removal

Fantastic if this can be achieved ?

Kindest

[June7]

Code does not match entire string as a unit, it matches each word. So if you search for We Can Offer Free Removal and email had only the word Offer it would be highlighted. Also, I don't know if can get feedback on which emails are matched.