Torna al Thread

Private Sub Invio() Dim smtpServer As New SmtpClient() Dim mail As New MailMessage() smtpServer.Credentials = New Net.NetworkCredential(My.Settings.Mail.ToString, TextBoxPw.Text) 'Metti la porta del tuo HOST di posta smtpServer.Port = 25 smtpServer.Host = My.Settings.Smtp.ToString smtpServer.EnableSsl = False mail = New MailMessage() mail.From = New MailAddress(My.Settings.Mail.ToString) mail.To.Add(TextBoxDestinatari.Text) mail.Subject = TextBoxOggetto.Text mail.Body = TextBoxCorpo.Text smtpServer.Send(mail) End Sub
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5