Tip of The Day

Retrieve contact name from an email address Sometimes you need to retrieve a name from an email address, this could be 1000s of email addresses in your database. The following code is a solution that can help you. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim value As String = (RetrieveNameFromEmailAddress("kevin@keycodeconsultancy.com")) End Sub Private Function RetrieveNameFromEmailAddress(ByVal EmailAddress As String) As String Dim SearchString As String = Nothing Dim SearchChar As String = Nothing Dim MyPos As Integer = 0 Try SearchString = Trim(EmailAddress) SearchChar = "@" SearchString = Trim(SearchString) MyPos = InStr(1, SearchString, SearchChar, 1) MyPos = Trim(MyPos) If MyPos > 0 Then EmailAddress = Mid(EmailAddress, 1, MyPos - 1) End If Return EmailAddress Catch ex As Exception End Try End Function

Send this Tip to yourself
Email

 

The next Tip of the day will be avaliable on

Monday 06 September 2010

If you have any technical problem to implement any of our Tip of the day tips or interested in learning or deploying any of our Tips of the day tips into your application, database or web site or would like a user guide based on a tip with a fully functional tip of the day tip or you want to get to understand how to use these scripts or code to their potential then please contact us. We will be able to help you.

Receive your free copy of Customers Base  database application today.

Tip of The Day

Retrieve contact name from an email address

Sometimes you need to retrieve a name from an em...read more

Sign up to receive free Digital I.T tips

Name   

Email