SmtpMail - Ändern Sie die "From-Adresse" in den Namen

Question

Ich verwende SmtpMail, damit Benutzer Website-Inhalte weiterleiten können. Der Benutzer füllt ein Formular aus, das den Vornamen und die E-Mail-Adresse enthält.

Die gesendete E-Mail hat die vollständige E-Mail-Adresse als "Von-Adresse" im Posteingang der Empfänger (sie sehen Von: Joe@Gmail.com, während ich möchte, dass sie Von: Joe sehen).

Wie kann ich die "Von-Adresse" formatieren, damit der eingegebene Vorname des Benutzers angezeigt wird?

Vielen Dank!

Answer 1

Die MailAddress-Klasse verfügt über einen optionalen Parameter, in dem Sie einen Anzeigenamen angeben können. Ich gehe davon aus, dass er verwendet wird, wenn er vorhanden ist.

Dim from As MailAddress = New MailAddress("ben@contoso.com", "Ben Miller")
Dim to As MailAddress = New MailAddress("jane@contoso.com", "Jane Clayton")
Dim message As MailMessage = New MailMessage(from, to)

Answer 2

Dies hat für mich immer funktioniert:

    Dim myMessage As New MailMessage

    Dim myFrom As MailAddress = New MailAddress("bob@contoso.com", "Bob Denver")
    Dim myTo As MailAddress = New MailAddress("steve@contoso.com", "Steve Miller")

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

Answer 3

Das verwendete Format war am Ende: mailer.From = name & "<" & emailer & ">"

Dieses Format formatiert die Absenderadresse so, dass der Name sowie die E-Mail-Adresse enthalten sind. Es wird in den meisten E-Mail-Clients als Joe angezeigt. Dies war das gewünschte Ergebnis.

Vielen Dank an Knslyr und lincolnk für die Unterstützung.

Answer 4

Diese Methode zeigt 'Rameez' anstatt von 'Rameez@abc.com.pk'

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"" "

    Set objRecip = Item.Recipients.Add(strBcc)
    objRecip.Type = olBCC
        If Not objRecip.Resolve Then
            strMsg = "Kann den Bcc-Empfänger nicht auflösen. " & _
            "Möchten Sie die Nachricht trotzdem senden?"
            res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
            "Konnte Bcc-Empfänger nicht auflösen")
            If res = vbNo Then
                Cancel = True
            End If
        End If
    Set objRecip = Nothing

    End Sub