none
Envoyer un Email en VB.NET (fichier extrait dans le body du message) RRS feed

  • Question

  • Bonjour à tous & à toutes,

    Je souhaiterai savoir si l'un d'entre vous sait comment envoyer un email en VB.NET? En faite je sais réaliser l'envoi d'un email en VB.NET, j'aimerai juste pouvoir envoyer un email dans lequel le Body comporterait non pas un simple texte mais carrément le texte d'un fichier.

    Exemple :

    Dim Message As New System.Net.Mail.MailMessage
    Dim SMTP As New System.Net.Mail.SmtpClient
    Dim Item As New System.Net.Mail.Attachment("Planning.txt")
        Message.From = New System.Net.Mail.MailAddress(Email@email.fr)
        Message.To.Add(Autre_Email@email.fr)
        Message.Subject = "Planning"
        Message.Body = ""
        Message.Attachments.Add(Item)
        SMTP.Port = "587"
        SMTP.Host = "smtp.live.com"
        SMTP.Credentials = New System.Net.NetworkCredential(Email@email.fr, Password)
        SMTP.EnableSsl = True
        SMTP.Send(Message)

    Dans Message.Body = "" au lieu d'y mettre un message, je voudrais que l'on y insère le message à partir d'un fichier .txt extrait.

    Je ne sais pas si je me fais comprendre.

    Merci de vos réponses.

    JPR


    dimanche 13 septembre 2015 17:33

Réponses

Toutes les réponses

  • Bonjour,

    Vous pouvez utiliser la classe System.IO.StringReader pour lire le contenu d'un fichier. Voici un lien vers l'article sur MSDN qui vous explique tout ça en détail : Comment : lire du texte dans un fichier

    dimanche 13 septembre 2015 18:37
  • Bonsoir,

    Merci de votre réponse, le lien m'a été très utile.

    Voici la solution à mon problème :

    Dim file As New System.IO.StreamReader("Planning.txt")
    Dim words As String = file.ReadToEnd()
    file.Close()
    Dim Message As New System.Net.Mail.MailMessage
    Dim SMTP As New System.Net.Mail.SmtpClient
    Dim Item As New System.Net.Mail.Attachment("Planning.txt")
        Message.From = New System.Net.Mail.MailAddress(Email@email.fr)
        Message.To.Add(Autre_Email@email.fr)
        Message.Subject = "Planning"
        Message.Body = words
        Message.Attachments.Add(Item)
        SMTP.Port = "587"
        SMTP.Host = "smtp.live.com"
        SMTP.Credentials = New System.Net.NetworkCredential(Email@email.fr, Password)
        SMTP.EnableSsl = True
        SMTP.Send(Message)

    Bonne soirée,

    JPR

    dimanche 13 septembre 2015 18:49