Question

有没有办法可以在onitemsend中使用以下命令MsgBox（mail.To），仅用于返回电子邮件地址，以及友好/别名？我需要单独的电子邮件地址，因为它用于对我们的CRM进行SQL查找。目前，如果我使用MsgBox（mail.To），我得到：

Joe Bloggs（joe.bloggs@company.com）但是我想： joe.bloggs@company.com

我相信这样做是因为Outlook会在我的地址簿中查找电子邮件，因为有一个条目无法帮助。

非常感谢

Answer 1

试试这个：

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

使用MailItem.Recipients集合并循环浏览所有收件人。使用Recipient.Address / Name / Type属性。

Answer 3

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

可能？

仅限MsgBox（mail.To）电子邮件地址，而不是友好名称

3 个答案: