Código fuente para facilitar el envió de correos o mail en vb.net.
Imports System
Imports System.Net
Imports System.Net.Mail
Module Email
Sub Main()
‘datos del servidor…
Dim host As String = “servidor_smtp” ‘ingreso el servidor smtp
Dim puerto As Integer = 25 ‘indico en que puerto hay que conectarse al servidor
‘datos de la cuenta…
Dim usuario As String = “username” ‘indico mi nombre de usuario
Dim contrasenia As String = “password” ‘indico mi password
‘datos del mensaje en si mismo…
Dim de As String = “username@yahoo.com.ar” ‘ingreso el mail de origen (mi cuenta)
Dim para As String = “cliente@dominio.com.ar” ‘ingreso el mail del destinatario
Dim asunto As String = “asunto del mensaje” ‘indico cual es el asunto del mensaje
Dim cuerpo As String = “cuerpo del mensaje” ‘escribo el mensaje en si
Try
Dim mensaje As MailMessage = New MailMessage(de, para, asunto, cuerpo) ‘creo el mensaje
Dim clienteSMTP As SmtpClient = New SmtpClient(host, puerto) ‘creo la conexion con el servidor
clienteSMTP.UseDefaultCredentials = False ‘no hay que usar las credenciales por defecto
clienteSMTP.Credentials = New System.Net.NetworkCredential(usuario, contrasenia) ‘hay que usar mis propias credenciales
clienteSMTP.Send(mensaje) ‘envio el mensaje y listo!
cliente.SMTP.EnableSsl = True
‘Aviso que ya lo envié…
Console.WriteLine(“Mensaje enviado exitosamente.”)
Catch ex As Exception
Console.WriteLine(“Ha ocurrido un error: “ + ex.Message)
Finally
Console.WriteLine(“Presione ENTER para salir…”)
Console.ReadLine()
End Try
End Sub
End Module
Como puedo abrir la conexion en modo seguro (STARTTLS) ?
Tienes que poner esto, Ya he modificado el código fuente.
Si tienes alguna duda solo tienes que preguntar
cliente.SMTP.EnableSsl = True