Clase o modulo para enviar correo gmail/hotmail/yahoo

[**Aincrad**]

Hola , como dice el titulo alguien posee algún Buen code en VB.NET 2010 para enviar correos?

Bueno Tengo este modulo que encontre en internet pero no sirve :

Código (vbnet) [Seleccionar] Expandir

Imports System.Net
Imports System.Net.Mail

Module Correo

    Private correos As New MailMessage
    Private envios As New SmtpClient

    Sub enviarCorreo(ByVal emisor As String, ByVal password As String, ByVal mensaje As String, ByVal asunto As String, ByVal destinatario As String)
        Try
            correos.To.Clear()
            correos.Body = ""
            correos.Subject = ""
            correos.Body = mensaje
            correos.Subject = asunto
            correos.IsBodyHtml = True
            correos.To.Add(Trim(destinatario))

            correos.From = New MailAddress(emisor)
            envios.Credentials = New NetworkCredential(emisor, password)

            'Datos importantes no modificables para tener acceso a las cuentas

            envios.Host = "smtp.gmail.com"
            envios.Port = 587
            envios.EnableSsl = True

            envios.Send(correos)
            MsgBox("El mensaje fue enviado correctamente. ", MsgBoxStyle.Information, "Mensaje")

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Mensajeria 1.0 vb.net ®", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

End Module



[Eleкtro]

Lee aquí:

• Re: Como puedo enviar mails masivos con archivos adjuntos

Sobre todo lee la advertencia que hago sobre las 'aplicaciones menos seguras' de Google, ya que probablemente sea el motivo por el que no te funciona tu código.

Al final de mi comentario encontrarás dos clases completas con métodos de envío síncronos y asíncronos para GMail y Outlook/Live.com, escribí muchos overloads para cubrir (casi)todos los posibles escenarios de utilización.

EDITO: para enviar un correo por Yahoo, simplemente busca en Google la información del servidor SMTP (el hostname y el puerto) y lo adaptas al código del SMTP de Google y Microsoft Live.

Saludos!

[**Aincrad**]

HOLA, bueno el el link :
Re: Como puedo enviar mails masivos con archivos adjuntos

lo intente con el codigo que esta hay pero sale lo mismo que el codigo que puse arriba :

bueno eso ya me lo esperaba , entonces vi las 2 clases  que le dejaste (hotmail y gmail) solo necesito la de gmail esta : https://pastebin.com/wLHNr0rn

entoces cree una clase con el nombre de MailUtil pero en la parte de :

Código (vbnet) [Seleccionar] Expandir

Partial Public NotInheritable Class MailUtil : Inherits AestheticObject

me subralla la palabra : "AestheticObject"  y dice que :

Código [Seleccionar] Expandir

"El tipo AestheticObject no esta definido"

[Eleкtro]

Código (vbnet) [Seleccionar] Expandir

Inherits AestheticObject

Esa herencia debes eliminarla, simplemente borra eso y te funcionará. El código lo copié diréctamente de mi framework sin hacerle modificaciones, y la clase 'AestheticObject' no la copié/compartí.

saludos!

[**Aincrad**]

  ahora me sale 1 error al intentar usarlo asi  :

como lo intento usar :

Código (vbnet) [Seleccionar] Expandir

SendGMailText("Username@Gmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")

el Error:

Código [Seleccionar] Expandir

'SendGMailText' no está declarado.

creo que cree mal la clase , no se si es mucho pedir pero , me podriar dar algunos breves pasos a seguir?

[Eleкtro]

creo que cree mal la clase , no se si es mucho pedir pero , me podriar dar algunos breves pasos a seguir?

¿Como que "creaste" mal la clase?. La clase NO es instanciable, simplemente llama al método mediante su namespace:

Código (vbnet) [Seleccionar] Expandir

NAMESPACE_DE_TU_PROGRAMA.NET.Tools.MailUtil.SendGMailText( ...parámetros... )

Saludos

[**Aincrad**]

arggg . ahora lo puse así :

Código (vbnet) [Seleccionar] Expandir

SystemOS.NET.Tools.MailUtil.SendGMailText("grup.fisica.638@gmail.com", "*", txtAsunto.Text, rtbMensaje.Text, "maria7diaz@hotmail.com")

pero cuando depuro al presionar el botón que contiene el code  :

[Eleкtro]

Vaya, esta vez si que ha sido un fallo mio, no tuyo.

aquí tienes el código corregido, copiar y listo... no tienes que borrarle nada esta vez.

• https://pastebin.com/YXatPRiU

EDITO:
Ah, por cierto, elimina del código las condicionales de compilación...

la linea donde pone:

Código [Seleccionar] Expandir

#If NET45 OrElse NET46 Then
y:

Código [Seleccionar] Expandir

#End If

...si quieres poder utilizar los métodos asíncronos también.



El fallo era que precisamente esa sobrecarga que usas (y algunas otras más), al no especificar ningún archivo adjunto, le termina pasando una colección de archivos adjuntos nula al método principal 'SendGMail", y este intenta leer la colección nula, provocando así una excepción de referencia nula...

Código (vbnet) [Seleccionar] Expandir

Private Shared Sub SendGMail(ByVal username As String,
                            ByVal password As String,
                            ByVal subject As String,
                            ByVal body As String,
                            ByVal addresses As MailAddressCollection,
                            ByVal attachments As Collection(Of Attachment),
                            ByVal isBodyHtml As Boolean)

...
For Each attachment As Attachment In attachments
   msg.Attachments.Add(attachment)
Next attachment
...

¿Solución?, fácil:

Código (vbnet) [Seleccionar] Expandir

If (attachments IsNot Nothing) Then
   For Each attachment As Attachment In attachments
       msg.Attachments.Add(attachment)
   Next attachment
End If

PD: existe el mismo fallo de diseño en la clase que envia correos por live/hotmail.

saludos

[**Aincrad**]

hola , bueno el error se soluciono pero ahora me sale un error , (el error que me salia con los primeros codes que intente)

"Authentication Required"  bueno esto ya creo que es el Servidor Gmail , alguna solución?

[Eleкtro]

Repito de nuevo:

Lee aquí:

• Re: Como puedo enviar mails masivos con archivos adjuntos

Sobre todo lee la advertencia que hago sobre las 'aplicaciones menos seguras' de Google, ya que probablemente sea el motivo por el que no te funciona tu código.

...aclara si ya habilitaste el uso de aplicaciones menos seguras. Comprueba que el nombre de usuario y contraseña sean correctos, y prueba acctivando y desactivando la conexiónn segura (SmtpClient.EnableSsl) en el método que envía el email.

saludos