Bueno aqui les dejo el codigo que utilizo....
Código:
Dim email AsNew MailMessage("FROM", Me.txtDestino.Text, "PRUEBA", _ Me.txtCuerpo.Text) Dim envio AsNew SmtpClient("SMTPSERVER") Dim cache AsNew CredentialCache() cache.Add(New Uri("SERVIDOR"), "Basic", New NetworkCredential _ ("USUARIO@SERVIDOR", "CONTRASEÑA")) envio.Credentials = cache.GetCredential(New Uri("SERVIDOR"), "Basic") envio.Send(email)