problema programa envio mail

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

Cita de: WallkOver en 19 Mayo 2017, 04:48 am

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.

Cita de: WallkOver en 19 Mayo 2017, 04:48 am

no funciona. cual puede ser el problema?

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

Cita de: WallkOver en 19 Mayo 2017, 04:48 am

Código

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

' ***********************************************************************
' 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!