MsgBox (mail.To) nur E-Mail-Adresse und nicht freundlicher Name - vb.net, Outlook, vsto

Gibt es eine Möglichkeit, den folgenden Befehl zu verwendenMsgBox (mail.To) innerhalb eines onitemsend, um nur die E-Mail-Adresse und den Anzeigenamen / Aliasnamen zurückzugeben? Ich brauche nur die E-Mail-Adresse, die für eine SQL-Suche nach unserem CRM verwendet wird. Wenn ich MsgBox (mail.To) verwende, bekomme ich im Moment:

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

Ich glaube, dies geschieht, weil Outlook die E-Mail in meinem Adressbuch nachschlägt, da es einen Eintrag gibt, der nicht geholfen werden kann.

Danke vielmals

Antworten:

Versuche dies:

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)

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

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

könnte sein?