Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New Net.NetworkCredential("xxxxx@outlook.com", "ppppp")
SmtpServer.Host = "smtp.live.com"
SmtpServer.Port = 25
'
SmtpServer.EnableSsl = True
mail.From = New MailAddress("xxxxx@outlook.com")
mail.To.Add("test@gmail.com")
mail.Subject = "Λαθος"
mail.Body = "This is for testing SMTP mail." + Session("eponimo") + " " + Session("selida")
SmtpServer.Send(mail)
Αυτός είναι ο κώδικας που έχω στο load της φόρμας