Enviar correo - respuesta para Ariel
Publicado por Claudia (47 intervenciones) el 03/05/2005 22:08:54
hola, al intentar responder la pregunta de como envair correos da un error, entonces lo envio por aca espero que les sirva ...
hola, te mando esta clase que yo tengo ... si tienes alguna pregunta buscamen en [email protected]
yo tengo una clase con funciones comunes que utilizo en mi apliccion, al ppo de la clase debes importar , en mi caso tengo una variable donde esta el nombre del servidor o ip (esta definida en el web.config, pero tambien puedes escribirla directamente
Imports System.Web.Mail
-- luego esta es la funcion, desde tu codigo la llamas pasandole los parametros
Public Function EnviarCorreo(ByVal xDestino As String, ByVal
xRemitente As String, ByVal xCopia As String, ByVal xAsunto As String,
ByVal xCuerpoCorreo As String, ByVal xOtraCopia As String) As Integer
Dim resultado As Integer
Dim objMM As New MailMessage()
objMM.To = xDestino
objMM.From = xRemitente
objMM.Cc = xCopia
objMM.Bcc = xOtraCopia
objMM.BodyFormat = MailFormat.Text
objMM.Priority = MailPriority.Normal
objMM.Subject = xAsunto
objMM.Body = xCuerpoCorreo
SmtpMail.SmtpServer = ConfigurationSettings.AppSettings("ServidorCorreoOtro")
SmtpMail.Send(objMM)
resultado = 1
Return (resultado)
End Function
suerte,
hola, te mando esta clase que yo tengo ... si tienes alguna pregunta buscamen en [email protected]
yo tengo una clase con funciones comunes que utilizo en mi apliccion, al ppo de la clase debes importar , en mi caso tengo una variable donde esta el nombre del servidor o ip (esta definida en el web.config, pero tambien puedes escribirla directamente
Imports System.Web.Mail
-- luego esta es la funcion, desde tu codigo la llamas pasandole los parametros
Public Function EnviarCorreo(ByVal xDestino As String, ByVal
xRemitente As String, ByVal xCopia As String, ByVal xAsunto As String,
ByVal xCuerpoCorreo As String, ByVal xOtraCopia As String) As Integer
Dim resultado As Integer
Dim objMM As New MailMessage()
objMM.To = xDestino
objMM.From = xRemitente
objMM.Cc = xCopia
objMM.Bcc = xOtraCopia
objMM.BodyFormat = MailFormat.Text
objMM.Priority = MailPriority.Normal
objMM.Subject = xAsunto
objMM.Body = xCuerpoCorreo
SmtpMail.SmtpServer = ConfigurationSettings.AppSettings("ServidorCorreoOtro")
SmtpMail.Send(objMM)
resultado = 1
Return (resultado)
End Function
suerte,
Valora esta pregunta


0