SmtpMail - 更改“发件人地址”命名

Question

我使用 SmtpMail 供用户转发网站内容。用户填写包含名字和电子邮件的表格。

发送的电子邮件具有完整的电子邮件地址作为收件人收件箱中的“发件人地址”（他们看到发件人：[电子邮件受保护]，而我希望他们看到发件人：乔）。

如何将“发件人地址”格式化为用户输入的名字？

谢谢！

Answer 1

MailAddress 类有一个可选参数，您可以在其中指定显示名称。我假设它存在时会被使用。

Dim from As MailAddress = New MailAddress("[email protected]", "Ben Miller")
Dim to As MailAddress = New MailAddress("[email protected]", "Jane Clayton")
Dim message As MailMessage = New MailMessage(from, to)

Answer 2

这一直对我有用：

    Dim myMessage As New MailMessage

    Dim myFrom As MailAddress = New MailAddress("[email protected]", "Bob Denver")
    Dim myTo As MailAddress = New MailAddress("[email protected]", "Steve Miller")

    myMessage.From = myFrom
    myMessage.To.Add(myTo)

Answer 3

我最终使用的格式是： mailer.From = name & “<” &电子邮件发送器和">"

这会格式化发件人地址以包括姓名和电子邮件地址。它将在大多数电子邮件客户端中显示为 Joe <[email protected]< /a>>。这是我想要的结果。

感谢 Knslyr 和 lincolnk 的支持。

Answer 4

此方法显示“Rameez”而不是“[电子邮件受保护]”

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim objRecip As Recipient
    Dim strMsg As String
    Dim res As Integer
    Dim strBcc As String
    On Error Resume Next

    strBcc = """Rameez"" <[email protected]>"

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
        If Not objRecip.Resolve Then
            strMsg = "Could not resolve the Bcc recipient. " & _
            "Do you want still to send the message?"
            res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
            "Could Not Resolve Bcc Recipient")
            If res = vbNo Then
                Cancel = True
            End If
        End If
    Set objRecip = Nothing

    End Sub