17/05/2007, 14:26
|
| | Fecha de Ingreso: mayo-2007
Mensajes: 2
Antigüedad: 17 años, 6 meses Puntos: 0 | |
Re: Enviar Mail si Outlook 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
|