Enviar Correo Con Vb.net (fallo)

[chem]

Buenas! Estoi intentando enviar un correo electronico desde vb.net a una cuenta hotmail pero no hay manera :(. Les cuento lo que he intentado hasta el momento y mis problemas haber si alguien me puede ayudar.

Lo primero que he intentado meter es el siguiente codigo:

//1er INTENTO//

Código:

Imports System.Web.Mail



Module Module1

    Sub Main()

        Dim oMsg As MailMessage = New MailMessage

        ' TODO: Reemplace con la dirección de correo electrónico del remitente. 
        oMsg.From = "[email protected]"
        ' TODO: Reemplace con la dirección de correo electrónico del destinatario.
        oMsg.To = "[email protected]"
        oMsg.Subject = "A la mil va la vencida"

        'Body 
        oMsg.Body = "¡Hola mundo!"

        ' AGREGAR UN ARCHIVO ADJUNTO. 
        ' TODO: Reemplace con la ruta de acceso del archivo adjunto.
        Dim sFile As String = "C:\temp\Hello.txt"
        Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)

        oMsg.Attachments.Add(oAttch)

        ' TODO: Reemplace con el nombre de su servidor SMTP remoto.
        SmtpMail.SmtpServer = "hotmail.com"

        Try
            SmtpMail.Send(oMsg)
            MsgBox("Mensaje enviado")
        Catch ex As Exception
            MsgBox(ex.InnerException.ToString)
        End Try

        oMsg = Nothing
        oAttch = Nothing
    End Sub

End Module

-Añado la libreria system.messaging.dll
-El archivo a agregar existe ( comprobado )

Me da el siguiente error

************************ ERROR ***************************
An unhandled exception of type 'System.Web.HttpException' occurred in system.web.dll

Additional information: No se puede obtener acceso al objeto 'CDO.Message'.
************************************************** *******

No se si esta linea es correcta:

SmtpMail.SmtpServer = "hotmail.com"

o habria q poner otra cosa...

He seguido buscando y he leido que ese error podia ser debido a que faltaba la autentificacion asi que he probado con un nuevo codigo

//2º INTENTO//

Código:

Option Explicit On 
Module Module1
    Sub Main()
        Const ConfigNamespace As String = _
        "http://schemas.microsoft.com/cdo/configuration/"
        Dim oMsg As New CDO.Message
        Dim iConfig As New CDO.Configuration
        Dim Flds As ADODB.Fields = iConfig.Fields
        With Flds
            .Item(ConfigNamespace & "smtpserver").Value = _
            "hotmail.com"
            .Item(ConfigNamespace & "smtpserverport").Value = 25
            .Item(ConfigNamespace & "sendusing").Value = _
            CDO.CdoSendUsing.cdoSendUsingPort
            .Item(ConfigNamespace & "sendusername").Value = _
            "mi_usuario"
            .Item(ConfigNamespace & "sendpassword").Value = _
            "******"
            .Item(ConfigNamespace & "smtpauthenticate").Value = _
            CDO.CdoProtocolsAuthentication.cdoBasic
            .Update()
        End With
        With oMsg
            .Configuration = iConfig
            .From = "[email protected]"
            .To = "[email protected]"
            .Subject = "titulo"
            .TextBody = "mi mensaje"
            .Send()
        End With
        oMsg = Nothing
        iConfig = Nothing
    End Sub
End Module

- Agrego la libreria Microsoft CDO for Exchange 2000
- Relleno todos los datos necesarios en el codigo
- Sigo sin saber si --> .Item(ConfigNamespace & "smtpserver").Value = _
"hotmail.com" es correcto

Me da el siguiente error:

************************ ERROR ****************************
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in mensajeria3.exe

Additional information: Error de transporte en la conexión al servidor.
************************************************** ********

Siempre me da el error al enviar el mensaje... yo creo que debe ser que no pongo bien el SMTP server. Que habría que poner ahi para mandar el mensaje a una cuenta hotmail?

Si alguien me puede ayudar estaria muy agradecido! Un saludo.

(SO: Windows XP)

[Mickel]

un ejemplito usando outlook:
http://support.microsoft.com/?scid=kb;es;313803

[chem]

A la tercera va la vencida :). Muxas gracias x la informacion maikel, me a sido de gran ayuda!

[alexvilaspasa]

muu bienas, estoy intentando mandar mails desde visual basic .net, con cdo, pero no se... toda esa informacion que rellenas.. no se cual es, y el servidor tampoco... Me podeis ayudar?? I para mandar un archivo adjunto??

Un saludo!! y muchas gracias!!

[RootK]

lo movemos al foro de .Net y de paso te puedes dar una vuelta por las faq´s, ahi hay ejemplos para enviar email con archivos adjuntos, etc..

Movido desde foro de programación

[Gorgonitte]

Saludos esta es mi primer respuesta en el Foro, espero que te sea de ayuda.

Intenta con este codigo:

Código:

'Añadir esta linea despues del nombre de tu Public Class. en mi caso:

Public Class MailBox
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Ret As Long
        'Si el Api retorna 0 quiere decir que no hay ningun tipo de conexión de Red   
        If IsNetworkAlive(Ret) = 0 Then
            MsgBox("No existe conexion a internet" & vbNewLine + "Error enviando E-Mail." & vbNewLine & vbNewLine + "Por favor revise su conexion a internet" & vbNewLine + "e intentelo nuevamente.", MsgBoxStyle.Exclamation)
        Else
            Dim MyMailMsg As New MailMessage
            Dim HostName As String = My.Computer.Name
            Dim AddFile As New Mail.Attachment("Ruta del archivo")
            Try
                MyMailMsg.From = New MailAddress("[email protected]")
                MyMailMsg.To.Add("[email protected]")
                MyMailMsg.Subject = TextBox2.Text
                MyMailMsg.Attachments.Add(AddFile)
                MyMailMsg.Body = ("Mensaje a enviar")
                Dim SMTP As New SmtpClient("smtp.live.com") 'para enviar por Hotmail, SMTP de Gmail (smtp.gmail.com) veo que en tu codigo te falto agregar "smtp"
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "Clave de Ingreso")
                SMTP.Send(MyMailMsg)
                MsgBox("Tu E-Mail se ha enviado exitosamente" , MsgBoxStyle.Information, "Titulo de la Ventana")
                RichTextBox1.Text = ""
                TextBox2.Text = ""
            Catch ex As Exception
            MsgBox(ex.InnerException.ToString)
            End Try
            Me.Close()
        End If
    End Sub

Espero que les sirva.

[Klerith]

Gracias Gorgonitte me funciono perfecto desde Gmail.