Enviar Correo Con Vb.net (fallo)

[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.