Buonasera a tutti voi. Ho bisogno di un vostro aiuto. Ho questo codice, che dovrebbe provvedere ad inviare una mail :
Imports System.Net
Imports System.Net.Mail
Public Class email2
Dim ServerSmtp As New SmtpClient
Dim myEmail As New MailMessage
Dim myConnessione As Boolean
Private Sub email2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
myConnessione = My.Computer.Network.IsAvailable
If myConnessione = False Then
MsgBox("Manca la connessione ad internet")
Exit Sub
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
With ServerSmtp
.Credentials = New Net.NetworkCredential("*****@gmail.com", "*********")
.EnableSsl = True
.Port = 587 '465
.Host = "smtp.gmail.com"
End With
With myEmail
.From = New MailAddress("******@gmail.com")
.To.Add(toMsg.Text)
.Subject = oggettoMsg.Text
.IsBodyHtml = False
.Body = bodyMsg.Text
End With
ServerSmtp.Send(myEmail)
MsgBox("email spedita")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Il codice non funziona. Mi restituisce due errori diversi a seconda della porta che uso :
con la porta 587 di restituisce (mail e passwoard sono certe,le ho controllate e ricontrollate cento volte!):
con la porta 465 :
Certamente sto sbagliando qualcosa. Ho provato anche con MSN (con il relativi parametri) : stessi risultati!
Grazie