MsgBox (mail.To) E-Mail-Adresse nur und nicht freundlich Name

Question

Gibt es eine Möglichkeit, ich kann den folgenden Befehl MsgBox (mail.To) innerhalb einer onitemsend verwenden, um nur die E-Mail-Adresse und die freundlichen/Alias-Namen zurückgeben? Ich brauche nur die E-Mail-Adresse, die für eine SQL-Abfrage in unserem CRM verwendet wird. Im Moment, wenn ich MsgBox (mail.To) i erhalten:

Joe Bloggs (joe.bloggs@company.com) aber ich möchte: joe.bloggs@company.com

I Glauben Sie, dass es dies tut, weil Outlook die E-Mail in meinem Adressbuch nachschlägt, weil es einen Eintrag gibt, dem nicht geholfen werden kann.

Vielen Dank

Answer 1

Try this:

Dim str As String = mail.To 
    Dim lst As String() = str.Split({" "}, StringSplitOptions.RemoveEmptyEntries) 
    Dim email As String = "" 
    For Each w1 In lst 
     If w1.Contains("@") Then 
      email = w1 
     End If 
    Next 
    email = email.Replace("(", "") 
    email = email.Replace(")", "") 
    MsgBox(email) 

Answer 2

Verwenden Sie die MailItem.Recipients Sammlung und Schleife durch alle Empfänger. Verwenden Sie die Recipient.Address/Name/Type Eigenschaften.

Answer 3

Dim mail As New MailMessage() 
mail = New MailMessage() 
mail.From = New MailAddress("your@mail.com", "Your Firends Name") 

vielleicht?