Basic - ENVIAR EMAILS DE ALERTA DESDE APLICACION VB.NET

 
Vista:
sin imagen de perfil

ENVIAR EMAILS DE ALERTA DESDE APLICACION VB.NET

Publicado por Daisy (1 intervención) el 02/07/2015 20:28:44
SALUDOS: ME URGE CONOCER PORQUE NO FUNCIONA MI PROGRAMACION QUE REALICE PARA ENVIO DE EMAIL DE ALERTA. LES MUESTRO LA PROGRAMACION PARA QUE PUEDAN AYUDARME. LES AGRADECERE SUS RECOMENDACIONES LO ANTES POSIBLE YA QUE MI DEADLINE VENCIO.
GRACIAS.

Imports System.Net
Imports System.Net.Mail
Public Class ClassAlertEmail
Public Function SendMail(ByRef MEM As String) As String
'SmtpClient.UseDefaultCredentials = False
' Dim credentials As New NetworkCredential("cuentadelcliente.com", "password")
'smtpClient.Credentials = credentials
' smtpClient.Send(message)
Dim EmailMessage As New MailMessage()
Try
EmailMessage.From = New MailAddress("cuentadelcliente.com ")
EmailMessage.To.Add("cuentadelcliente.com ")
EmailMessage.Subject = "Alerta email Integration"
EmailMessage.Body = "Hubo un error en la integración... "

Dim SMTP As New SmtpClient("smtpout.secureserver.net")
SMTP.UseDefaultCredentials = False
SMTP.Port = 25
SMTP.EnableSsl = False
SMTP.Credentials = New System.Net.NetworkCredential("cuentadelcliente.com", "password")
' LogCommands.LogShow(MEM & "PASO POR FUNCION HASTA EL SEND 1 ==== ")
SMTP.Send(EmailMessage)
' LogCommands.LogShow("LUEGO DEL SEND 3 ===")
Catch ex As Exception
' LogCommands.LogShow("LUEGO DEL SEND 2 ===")
End Try
'LogCommands.LogShow("PASO POR FUNCION HASTA EL FINAL")
End Function
End Class


NOTA:
LOS LOGCOMMANDS SON DISPLAY MESSAGE QUE ME MIUESTRA POR DONDE VA. Y LOS MUESTRA TODOS.

POR FAVOR SUGIERANME QUE PUEDE ESTAR MAL O FALTAR. O SI HAY QUE CONFIGURAR ALGO EN VISUAL STUDIO O EN EL SERVIDOR. GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder