Buenas otra vez;
He estado buscando bastante rato, y como bien diría Murphy, he encontrado la respuesta en varios lenguajes pero no en Vb, con winsock.
Lo más parecido que he visto es esto, aunque estáq en brasileño, se entiende:
;******************************************************************
Para fazer o envio de e-mails no ASP.NET utilizamos as classes MailMessage e SMTPMail, a primeira para montar a mensagem a segunda para fazer o envio, ambas no namespace System.Web.Mail.
Porém para enviar o e-mail precisamos apontar um servidor SMTP, um servidor de envio de e-mails.
Alguns servidores SMTP permitem que e-mails sejam enviados livremente. Mas outros servidores exigem que seja feita uma autenticação para o envio de e-mails. Então, como fazer a autenticação para o envio de uma mensagem ?
Para fazermos a autenticação devemos preencher alguns campos especiais na mensagem, indicando a forma de autenticação, login e senha do usuário. Veja como fica a autenticação e envio de uma mensagem :
Dim msg As New MailMessage
msg.Fields.Add("
http://schemas.microsoft.com/cdo/configuration/smtpserver", "mail.umServidor.com.br")
msg.Fields.Add("
http://schemas.microsoft.com/cdo/configuration/smtpserverport", 25)
msg.Fields.Add("
http://schemas.microsoft.com/cdo/configuration/sendusing", 2)
msg.Fields.Add
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1)
msg.Fields.Add("
http://schemas.microsoft.com/cdo/configuration/sendusername", "umlogin")
msg.Fields.Add("
http://schemas.microsoft.com/cdo/configuration/sendpassword", "umasenha")
msg.To = txtdestinatario.Text
msg.From = "
noreply@devaspnet.com.br"
msg.Body = "Bem vindo !"
msg.Subject = "Seja Bem vindo ao grupo devASPNet"
SmtpMail.SmtpServer = "mail.umServidor.com.br"
SmtpMail.Send(msg)
;*******************************************************************
He intentado cosas similares pero ni de coña, seguiré buscando y si encuentro algo os lo comento.
por otra parte si a alguien se le ocurre algo será bien recibido.
Un saludo