Find Text within text

[DMT Dave]

Hi Guy's, is there a method of extracting just the email address from a text box ?

ie i want to click on the text box and add the email address to another text box

I am looking to do "on click" something like

Me.txtEmailAddress = "what is in bold"



*Your New Message
*Name: Me on Here
*Contact Number: 123456789
*Email Address: memonhere@home.com
*PostCode: GU6 6YT
etc
etc

This is not saved in a table yet, I am trying to extract the email before it's saved

[pbaldy]

Each bit is on a separate line? You can use the Split() function on the text with vbCrLf as the delimiter. Loop the result looking for "email address:", then grab everything after the colon.

[DMT Dave]

Hi pbaldy, yes the text i am wanting to extract or code to another text box is on ie: line 4 after *Email Address:

Kind Regards

[pbaldy]

Try what I suggested. I parse data out of emails that way.

[DMT Dave]

Are you able to put a quick example of this on here ? I don't think I have used the split function and vbCrlf as delimiter before

The only string delimiter I ever used is '" & something & "'"

I will understand and convert if I see an example,

This would be much appreciated

[pbaldy]

    Dim astrLines()           As String
    Dim L                     As Long


    astrLines = Split(strBody, vbCrLf)
    For L = 0 To UBound(astrLines)
      If InStr(1, astrLines(L), "Booking") > 0 Then

[DMT Dave]

Hi pbaldy, i have tried messing around with you code and can i heckers get ot working!

    Dim astrLines() As String, strBody As String
    Dim L As Long
    strBody = Me.txtMailMessage
    astrLines = Split(strBody, vbCrLf)
    For L = 0 To UBound(astrLines)
      If InStr(1, astrLines(L), "*Email Address:") > 0 Then
      MsgBox (astrLines)
            End If
     Next L

[pbaldy]

It is working, or it isn't? You'd want to use the Mid() function on the line after you've found the one with the email address.

[DMT Dave]

No it comes up type mismatch and highlights the MsgBox Line, initially it came up with For without next issue so i added next L

I probably don't understand the code, i was thinking of adding a msgbox to confirm it's found the email but it debugs with type mismatch

So it can't find the email i guess thats because it's debugging ??

Much appreciate your help

[pbaldy]

Well, you'd need to use the variable:

MsgBox astrLines(L)

[DMT Dave]

pbaldy you absolute star, that brought the MsgBox up *Email Address: joebloggs@home.com

How do i now extract joebloggs@home.com ???

Fabulous

[DMT Dave]

Is it just a case of using Mid funtion counting the charachters upto and including the colon ?

[DMT Dave]

Cant seem to extract the email from msgBox *Email Address: joebloggs@home.com, how do i extract just the email ?

[DMT Dave]

Got it, thank you very much for your help on this one, have a great evening

[pbaldy]

Happy to help and you too!