Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit On Public Class Form1 Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "Nemo sensetur ignorar legem, Recte est" Dim dominus As String = "???@free.fr" Dim titulus As String = "Ave Caesar, morituri te salutante" Dim corpus As String = TextBox1.Text System.Diagnostics.Process.Start("mailto:" & dominus & "?subject=" & titulus & "&body=" & corpus) End Sub End Class
' Mails : envoi direct Try Dim expediteur As String Dim expéditeurMDP As String Dim destinataire1 As String Dim destinataire2 As String ' ... Dim titre As String Dim message As String Dim piecejointe As New System.Net.Mail.Attachment("C:\Felix.exe") Dim fournisseur As String Dim portFournisseur As Integer Dim client As New System.Net.Mail.SmtpClient Dim DotNetMail As New System.Net.Mail.MailMessage()expediteur = "log@free.fr" expéditeurMDP = "" destinataire1 = "eh@hotmail.com" destinataire2 = "joe@free.fr" ' ... titre = "Bonjour" message = "Maître Corbeau sur un arbre perché," & vbCrLf message = message & vbCrLf & vbCrLf & "Joe." & vbCrLf fournisseur = "smtp.free.fr" portFournisseur = 587 ' selon fournisseur ' client.Credentials = New System.Net.NetworkCredential(expediteur, expéditeurMDP) client.Port = portFournisseur client.Host = fournisseur client.EnableSsl = False DotNetMail.From = New System.Net.Mail.MailAddress(expediteur) DotNetMail.To.Add(destinataire1) DotNetMail.To.Add(destinataire2) ' ... DotNetMail.Subject = titre DotNetMail.Body = message DotNetMail.Attachments.Add(piecejointe) client.Send(DotNetMail) DotNetMail.Dispose() piecejointe.Dispose() client.Dispose() client.Credentials.Dispose() Catch err As Exception MsgBox(err.ToString) Exit Sub End Try MsgBox("OK")