Searching Specific Text

[DMT Dave]

Hi guys, happy new year to you all on here



The code below searches any email conversations absolutely perfect, i want to add something to search with any of the email conversations a specific value, ie any pricing agreements so i think because when the initial response goes out, there is a price offer so i am thinking of how to search for the £ sign within any part of the searchstring and return a message with £123.45 within any part of the email, is this easy to add to my code below ?? guessing there may need to be a sperate searchstring in the MailBody ??

Dim clEmail() As String, EmailAdd As String, MailBody As StringDim j As Integer
Dim app As Object
Dim SearchString As String


MailBody = Me.txtMailMessage


clEmail = Split(MailBody, vbCrLf)
For j = 0 To UBound(clEmail)
If InStr(1, clEmail(j), "Email Address:") > 0 Then
EmailAdd = Mid(clEmail(j), 16)
End If
Next j


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 = EmailAdd 'POSSIBLY ADD A 2nd PART OF SEACRH FOR POUND SIGN ??
app.ActiveExplorer.Search SearchString, olSearchScopeAllFolders
Set app = Nothing
DoCmd.RunCommand acCmdAppMinimize

[Micron]

If Instr(1,MailBody,"L")>0 Then....?

I can't easily make that character so I substituted L. I could have taken the time to retrieve it from a character map, but my coffee is calling for me...

[DMT Dave]

HI micron, haha thank you, don't forget your coffee! i will try what you have suggested, thank you, my Cappuccino is awaiting assistance haha

[DMT Dave]

Hi Guy's maybe i have done the wrong method here in finding a £ sign then returning the next characters but i have added the highlighted extra to post 1 just to see if i can return but nothing happens! is this a difficult task ?

Dim clEmail() As String, EmailAdd As String, MailBody As String
Dim j As Integer
Dim app As Object
Dim SearchString As String, myValue As String


MailBody = Me.txtMailMessage


clEmail = Split(MailBody, vbCrLf)
For j = 0 To UBound(clEmail)
If InStr(1, clEmail(j), "Email Address:") > 0 Then
EmailAdd = Mid(clEmail(j), 16)
End If
Next j


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 = EmailAdd
app.ActiveExplorer.Search SearchString, olSearchScopeAllFolders
Set app = Nothing
DoCmd.RunCommand acCmdAppMinimize
If InStr(1, MailBody, "£") > 0 Then
myValue = Mid(MailBody, InStr(1, MailBody, "£"), 7)
MsgBox (myValue)
End If

[Micron]

I see that I overlooked you were after a currency amount as well, not just the symbol. Sorry about that. Did you step through this code and watch what happens (basic trouble shooting)? It works for me if I eliminate anything to do with Outlook.
What if the figure, including the currency symbol, is not 7 characters?