none
Envoyer un mail avec une pièce jointe RRS feed

  • Question

  • Bonjour j'essaye de trouver un code pour envoyer un mail avec un pièce jointe.

    J'ai le code général mais lorsque je tente d'insérer la pièce jointe,le code est faux .

    Ci joint mon code :

    Imports System.Net.Mail

    Imports System.Net.Mail.Attachment

    Imports System.IO

    Public Class Form1

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

            Dim EmailMessage As New MailMessage()

            Try

                Dim myMail As New System.Net.Mail.MailMessage

                EmailMessage.From = New MailAddress("moi")

                EmailMessage.To.Add("destinataire")

                EmailMessage.Subject = "Sujet"

                EmailMessage.Body = "Bonjour…"

                Dim attachedFile As New System.Net.Mail.Attachment("ma pièce jointe")

                myMail.Attachments.Add(attachedFile)

                Dim SMTP As New SmtpClient("smtp.office365.com")

                SMTP.Port = 587

                SMTP.EnableSsl = True

                SMTP.Credentials = New System.Net.NetworkCredential("My mail adress", "mon mot de passe")

                SMTP.Send(EmailMessage)

            Catch ex As Exception

            End Try

        End Sub

    dimanche 3 mai 2015 05:15