CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: junahu en Martes 5 de Julio de 2005, 20:47
Título: Cdo.message
Publicado por: junahu en Martes 5 de Julio de 2005, 20:47
:comp: Hola amigos, tengo un problema. Estoy creando un proyecto con Visual Basic .Net para mandar una correo. Pues no consigo que me funcione. No para de salirme "No se puede tener acceso al objeto 'CDO.Message'". He hecho todo lo que he leído por Internet, pero nada. Os mando el código primero y si me podéis ayudar os lo agradezco.
Public Class Form1 Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim m As New MailMessage SmtpMail.SmtpServer = "smtp.iespana.es" m.From = "mi_correo@iespana.es" m.To = "correo_al_que_mando_el_mensaje@yahoo.es" m.Subject = "asunto" m.Body = "cuerpo del mensaje"
SmtpMail.Send(m)
End Sub End Class //////////////////////////////////////////////////////////////////////////
Título: Re: Cdo.message
Publicado por: Soultaker en Martes 12 de Julio de 2005, 02:13
Yo lo hago asi, y me funciona muy bien.
Código: Text
Dim l_smtp As SmtpMail
Public Sub MailSend(ByVal _MailFrom As String, ByVal _MailTo As String, Optional ByVal _Subject As String = Nothing, Optional ByVal _Body As String = Nothing)
Dim l_mail As New MailMessage
l_mail.From = _MailFrom
l_mail.To = _MailTo
l_mail.Subject = _Subject
l_mail.Body = _Body
l_smtp.Send(l_mail)
End Sub
En caso que no te siga funcionando, has la pruba cono otro SmtpServer. Te recomiendo que primero lo pruebes con el IIS