2010-10-25 3 views
1

Я использую SmtpMail для перехода на сайт. Пользователь заполняет форму, которая включает имя и адрес электронной почты.SmtpMail - Измените «От адреса» на «Имя»

Отправленный email имеет полный адрес электронной почты как «From address» в почтовом ящике получателей (они видят From: [email protected], пока я хочу, чтобы они видели From: Joe).

Как я могу отформатировать «From address», чтобы пользователи вводили имя?

Спасибо!

ответ

0

Формат Я закончил с использованием был: mailer.From = name & "<" & emailer & ">"

Это форматирует от адреса включает имя, а также адрес электронной почты. Он будет отображаться в большинстве почтовых клиентов как Joe <[email protected]>. Это был мой желаемый результат.

Thank you Knslyr и lincolnk для поддержки.

2

Класс 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) 
+0

Это вызывает страницу, чтобы не загружать ... любые идеи? – Joe

+0

@Joe ummmm .... нет. возможно, опубликовать код, с которым вы столкнулись? – lincolnk

+0

Ниже приведен раздел кода, который передает основные переменные почты. «приемник, почтовый клиент, nombre» - это 3 переменные, вытащенные из формы. Мне нужно, чтобы «nombre» проходил через поле mailer.from вместо почтового отправителя. mailer.To = receiver mailer.Bcc = "[email protected]" mailer.From = emailer mailer.BodyFormat = MailFormat.Html mailer.Subject = "Subject Line Here" Joe

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) 
0

Этот метод показывает «Rameez» вместо «» [email protected]

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