Imports System.Net.Mail
Imports System.Net
Public Class Form1
Dim client As SmtpClient
Sub Invia()
If txtdestinatario.Text = "" Then
MsgBox("Errore nel campo destinatario", MsgBoxStyle.Critical, "Errore")
Return
End If
If txtmittente.Text = "" Then
MsgBox("Errore nel campo mittente", MsgBoxStyle.Critical, "Errore")
Return
End If
If txtoggetto.Text = "" Then
MsgBox("Errore nel campo oggetto", MsgBoxStyle.Critical, "Errore")
Return
End If
Dim msg As MailMessage
Dim dest As MailAddress
Dim author As New MailAddress(txtmittente.Text) 'Omesso il , "")
dest = New MailAddress(txtdestinatario.Text) 'Omesso il , "")
msg = New MailMessage
msg.Subject = txtoggetto.Text
msg.Sender = author
msg.From = author
msg.Body = testomsg.Text
msg.ReplyTo = author
msg.To.Add(dest)
client = New SmtpClient(txtserver.Text)
Try
client.Credentials = New System.Net.NetworkCredential("", "")
client.Send(msg)
MsgBox("Email inviata correttamente", MsgBoxStyle.Information, "Email inviata")
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.Critical, "ERRORE DI INVIO")
End Try
End Sub
Private Sub btninvia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninvia.Click
Invia()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
End
End Sub
Private Sub SmtpmailyahooitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahooitToolStripMenuItem.Click
txtserver.Text = "mail.libero.it"
End Sub
Private Sub MailhclamelacomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MailhclamelacomToolStripMenuItem.Click
txtserver.Text = "smtp.live.com"
End Sub
Private Sub Mail191itToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mail191itToolStripMenuItem.Click
txtserver.Text = "mail.191.it"
End Sub
Private Sub OutaliceitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OutaliceitToolStripMenuItem.Click
txtserver.Text = "out.alice.it"
End Sub
Private Sub SmtptiscaliitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtptiscaliitToolStripMenuItem.Click
txtserver.Text = "smtp.tiscali.it"
End Sub
Private Sub SmtpmailyahoocomToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpmailyahoocomToolStripMenuItem.Click
txtserver.Text = "smtp.mail.yahoo.com"
End Sub
Private Sub SmtparubaitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtparubaitToolStripMenuItem.Click
txtserver.Text = "smtp.aruba.it"
End Sub
Private Sub SmtpemailitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SmtpemailitToolStripMenuItem.Click
txtserver.Text = "smtp.email.it"
End Sub
End Class