Envoi de mails grâce à Gmail​

Exemple d’envoi d’une demande de fichier GRIB. (Fonctionne le 30/10/2018)

Attention: il faut modifier les paramètres de gmail pour qu’il accepte les programmes hors Google.

Imports System.Net.Mail
Public Class FrmDepart
   Private Sub BtnSend_Click(sender As Object, e As EventArgs) Handles BtnSend.Click
        Try
            Dim Smtp_Server As New SmtpClient(« smtp.gmail.com », 587)
            Dim e_mail As New MailMessage()

            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential(« mrd.patrick.morand@gmail.com », « MonMotDePasse »)
            Smtp_Server.EnableSsl = True

            e_mail = New MailMessage()
            e_mail.From = New MailAddress(« mrd.patrick.morand@gmail.com »)
            e_mail.To.Add(« query@saildocs.com »)
            e_mail.Subject = « rdr »
            e_mail.IsBodyHtml = False
            e_mail.Body = TxtBody.Text

            Smtp_Server.Send(e_mail)
            MsgBox(« L’envoi du mail a été effectué… »)
            End
        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try
    End Sub
End Class