CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Cdo.message

(1/1)

junahu:
: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.

//////////////////////////////////////////////////////////////////
Imports System.Web.Mail

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
//////////////////////////////////////////////////////////////////////////

Soultaker:
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

 :comp:

Navegación

[0] Índice de Mensajes