none
Nom d'expéditeur pour mail RRS feed

  • Question

  • Bonjour à tous, voilà donc j'aimerai qu'on eclaire ma lanterne car, j'ai créer une petite application pour envoyer des mail par SMTP, tout va bien tout marche, mais ce que j'aimerai faire, c'est que comme on peut choisir l'adresse d'envoie qui sera afficher, qu'on puisse aussi afficher un "pseudo" de son choix

    (Par exemple que si j'envoie un mail il ne s'affiche pas juste "XX@machin.fr" mais "Nom" par exemple)

    Donc je bosse sur VB 2008 et 2010, donc est-ce que ce serait possible (je sais que j'ai déjà vu de programme qui le font mais ils n'etait pas en VB je crois) et si oui avec quel code ?

    Merci d'avance.

    lundi 8 août 2011 09:09

Réponses

  • Bonjour,

     

    Cela n'est il pas coter serveur ?

    Dim mailClient As New SmtpClient()
    Dim Message As New MailMessage()
    Dim ToEmail As New MailAddress("email address", "User Name")
    Dim FromEmail As New MailAddress("email address", "User Name")
    'String builder is used for performance reasons whil appending strings
    Dim messageBody As New System.Text.StringBuilder()
    messageBody.Append("The text. html can be incorporated")
    messageBody.Append("Extra Text")
    messageBody.AppendLine()
    Message.Body = HttpUtility.HtmlDecode(messageBody.ToString)
    Message.Subject = "Subject"
    'Message is sent in html format
    Message.IsBodyHtml = True
    Message.To.Add(ToEmail)
    Message.From = FromEmail
    mailClient.Send(Message) 
    

     


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    • Marqué comme réponse Tfkmaster lundi 8 août 2011 15:19
    lundi 8 août 2011 14:04
    Auteur de réponse

Toutes les réponses

  • Bonjour,

     

    Cela n'est il pas coter serveur ?

    Dim mailClient As New SmtpClient()
    Dim Message As New MailMessage()
    Dim ToEmail As New MailAddress("email address", "User Name")
    Dim FromEmail As New MailAddress("email address", "User Name")
    'String builder is used for performance reasons whil appending strings
    Dim messageBody As New System.Text.StringBuilder()
    messageBody.Append("The text. html can be incorporated")
    messageBody.Append("Extra Text")
    messageBody.AppendLine()
    Message.Body = HttpUtility.HtmlDecode(messageBody.ToString)
    Message.Subject = "Subject"
    'Message is sent in html format
    Message.IsBodyHtml = True
    Message.To.Add(ToEmail)
    Message.From = FromEmail
    mailClient.Send(Message) 
    

     


    Cordialement,
    Xavier TALOUR
    Alias Troxsa SendMail
    Voir le profil de Xavier TALOUR sur LinkedIn
    • Marqué comme réponse Tfkmaster lundi 8 août 2011 15:19
    lundi 8 août 2011 14:04
    Auteur de réponse
  • Effectivement je n'avait pas vu que le nom pouvait être précisé après "email adress" ^^

    Merci Beaucoup

    lundi 8 août 2011 15:19