Enviar Mail si Outlook

[DuKeConce]

Código PHP:

  Imports System.Net.Mail
 
Public Sub EnviarEmail()
 
        Dim Correo As New Net.Mail.MailMessage
        Dim smtp As New System.Net.Mail.SmtpClient
 
        Try
            Correo.From = New MailAddress("[email protected]", "Nombre del Destinatario")
 
                      
            Correo.Subject = "Sistema Notificando por e-mail"
            Correo.Body = "Primera linea del mensaje" & vbCrLf 
            Correo.Body &= "Segunda linea..."
           
 
            Correo.IsBodyHtml = False
            Correo.Priority = System.Net.Mail.MailPriority.High
 
            'Configuramos el SMTP y enviamos el mensaje
             smtp.Host = "localhost"   'localhost indica que tienes un smtp configurado en tu maquina, pero puedes usar otro.
 
            smtp.Send(Correo) 'enviando
        Catch ex As Exception
            'Registrar el error
            MsgBox("La notificación no pudo ser enviada." & vbCrLf & ex.Message, MsgBoxStyle.Information, "Notificaciones")
        End Try
 
            MsgBox("La notificación fue enviada satisfactoriamente.", MsgBoxStyle.Information, "Notificaciones")
 
End Sub