17/05/2007, 14:26
|
| | Fecha de Ingreso: mayo-2007
Mensajes: 2
Antigüedad: 17 años 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 |