Replace Or Trim Email Address

[DMT Dave]

Hi Guy's what is the best method to trim or replace and email address ?

So if i have an incoming email, I may have the following in a text box

To: dave@home.com <dave@home.com>

How do I take out everything between <> so I get dave@home.com ?



Many Thanks

[Micron]

I think this topic was just covered within the last couple of days. I didn't participate so it would be hard for me to find. You could try or maybe a participant will provide a link.

[orange]

Hi Dave,

Here's a sample function. And test routine.

Function ShortEmail(email As String) As String
  
    Dim LB As Integer, RB As Integer 'LB Left Brace RB  Right Brace
    LB = InStr(email, "<")
    RB = InStr(email, ">")
    'Debug.Print "email original: " & email
    If RB > 0 And LB > 0 Then
        email = Trim(Mid(email, 1, LB - 1))
        'Debug.Print "email revised: " & email
    End If
    ShortEmail = email
End Function

Sub testshortemail()

    Dim mail(2) As String, i As Integer
    mail(0) = "dave@home.com <dave@home.com> "
    mail(1) = "sombodycalled.bob@gmail.com"
    mail(2) = "    imaGambler@genie.net <ig@genie.net>"

    For i = 0 To 2
        Debug.Print ShortEmail(mail(i))
    Next i
End Sub

which gives:

dave@home.com
sombodycalled.bob@gmail.com
imaGambler@genie.net

[Welshgasman]

Just look for the separating characters(s) and use the rest.
Instr() will help find that character, Left() will get your required string.

[DMT Dave]

Thank you guy's just couldn't think of the method, weather it was Instr, Trim, Replace or which way to go about it but thank you for your answers, I think with the recent loss of family member, I can't see the wood for the trees!, i should make a short list of what i'm doing then at a later date when the mind set is right, ask then but i just can't stop wanting to learn

Will test it out

Thanks again