Dim SmtpClient As New SmtpClient(ServerSMTP, portSMTP) Dim mail As New MailMessage() SmtpClient.EnableSsl = sslSMTP SmtpClient.Timeout =2000 SmtpClient.UseDefaultCredentials = False SmtpClient.Credentials = New Net.NetworkCredential(UserSMTP, pswSMTP) mail.From = New MailAddress(mittente) For i As Integer = 0 To Destinatari.Length - 1 mail.To.Add(Destinatari(i)) Next mail.Subject = Oggetto mail.IsBodyHtml = IsHtml mail.Body = Corpo SmtpClient.Send(mail)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)