Para enviarte un correo a ti prueba esto, a mi me va de lujo:
Dim mail As New MailMessage
mail.To = "
[email protected]"
'Tu correo destino
mail.From = "
[email protected]"
'Tu correo
mail.BodyFormat = MailFormat.Text
mail.Subject = "AsuntoPrueba"
'asunto
mail.Body = "Espero que algun dia llegue"
'mensaje 'ahora viene la autentificación
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "
UsuarioCorreo")
mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "
ContraseñaCorreo")
SmtpMail.SmtpServer = "smtp.calidad.org"
'nombreservidor
Try
SmtpMail.Send(mail)
Label1.Text = "Mensaje enviado con exito"
Catch ex As Exception
Label1.Text = "Se ha producido un error al intentar mandar el e-mail"
End Try