Enviar e-mail vb.net Sugerencias!!!

[rikakashi]

Código vb:

''+++ PRIMERO EXPORTAR A PDF
                ''+++ rptDoc.ExportToDisk(ExportFormatType.PortableDocFormat, ruta & "\" & dtmov.Rows(0).Item(9).ToString & DateAndTime.DateString & ".pdf")
                message.From = New Net.Mail.MailAddress("correo remitente 'from'", "id de remitente 'de ejemplo: ClubE'")
                message.To.Add("CORREO DESTINARIO")
                message.Body = "TEXTO DEL MENSAJE"
                message.Subject = "TITULO DEL CORREO"
                Dim adjunto As New System.Net.Mail.Attachment(ruta & "\" & dtmov.Rows(0).Item(9).ToString & DateAndTime.DateString & ".pdf")
                message.Attachments.Add(adjunto)
                message.Priority = Net.Mail.MailPriority.Normal
                smtp.EnableSsl = True
                smtp.Port = "587"
                smtp.Host = "smtp.live.com"
                ''+++ smtp.Credentials = New Net.NetworkCredential("CORREO", "CONTRASEÑA") => USUARIO DE CORREO, LINEA OPCIONAL
                smtp.Send(message)
 

Este es mi codigo para enviar correo electronico el problema es que tengo que tener un correo en el servidor indicado en este caso hotmail para poder enviar un correo a otro usauario hotmail. mi peticion es si alguien me puede decir que lineas debo cambiar para poder enviar a cualquier server. y mejorar mi funcion

[laguzzigerardo]

En teoría tendría que enviar a otros servers. En general me manejo con google, pero si estas teniendo problemas de que los mails no llegan, capaz es por otro motivo.

[rikakashi]

Iniciado por rikakashi

Código vb:

smtp.Host = "smtp.live.com"
 

En esta linea indico el servidor de correos... y por ahora se encuentra establecido en el de hotmail y quiero saber como puedo utilizar todos los server de correo agregando yahoo, gmail o alguno empresarial

[giovani_loera]

No es necesario estasr registrado para enviar correos, solo tienes que poner el @ seguido del servidor. por ejemplo

msg.From = New MailAddress("correoX _@servidor", "", System.Text.Encoding.UTF8)

Tienes que checar que el puerto y el host se han los correctos.

Código vb:

msg.Subject = "Encabezado, Titulo"
            msg.SubjectEncoding = Text.Encoding.UTF8
            msg.IsBodyHtml = false
 
Dim client As New SmtpClient()
                client.Port = puerto
                client.Host = "host del Servidor"
 

Espero que te sirva

[rikakashi]

creo que tu ejemplo es similar al mio, solo que en que parte puedo adjuntar el archivo?