elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Clase o modulo para enviar correo gmail/hotmail/yahoo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Clase o modulo para enviar correo gmail/hotmail/yahoo  (Leído 1,839 veces)
**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Clase o modulo para enviar correo gmail/hotmail/yahoo
« en: 10 Febrero 2018, 18:14 »

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
  1. Imports System.Net
  2. Imports System.Net.Mail
  3.  
  4. Module Correo
  5.  
  6.    Private correos As New MailMessage
  7.    Private envios As New SmtpClient
  8.  
  9.    Sub enviarCorreo(ByVal emisor As String, ByVal password As String, ByVal mensaje As String, ByVal asunto As String, ByVal destinatario As String)
  10.        Try
  11.            correos.To.Clear()
  12.            correos.Body = ""
  13.            correos.Subject = ""
  14.            correos.Body = mensaje
  15.            correos.Subject = asunto
  16.            correos.IsBodyHtml = True
  17.            correos.To.Add(Trim(destinatario))
  18.  
  19.            correos.From = New MailAddress(emisor)
  20.            envios.Credentials = New NetworkCredential(emisor, password)
  21.  
  22.            'Datos importantes no modificables para tener acceso a las cuentas
  23.  
  24.            envios.Host = "smtp.gmail.com"
  25.            envios.Port = 587
  26.            envios.EnableSsl = True
  27.  
  28.            envios.Send(correos)
  29.            MsgBox("El mensaje fue enviado correctamente. ", MsgBoxStyle.Information, "Mensaje")
  30.  
  31.        Catch ex As Exception
  32.            MessageBox.Show(ex.Message, "Mensajeria 1.0 vb.net ®", MessageBoxButtons.OK, MessageBoxIcon.Error)
  33.        End Try
  34.  
  35.    End Sub
  36.  
  37. End Module
  38.  
  39.  


En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #1 en: 10 Febrero 2018, 19:03 »

Lee aquí:
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!


« Última modificación: 10 Febrero 2018, 19:41 por Eleкtro » En línea


**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #2 en: 10 Febrero 2018, 23:32 »

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 :



Citar

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
  1. Partial Public NotInheritable Class MailUtil : Inherits AestheticObject

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

Código:
"El tipo AestheticObject no esta definido"
En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #3 en: 11 Febrero 2018, 00:02 »

Código
  1. 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!
« Última modificación: 11 Febrero 2018, 00:04 por Eleкtro » En línea


**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #4 en: 11 Febrero 2018, 00:26 »

 :-\ ahora me sale 1 error al intentar usarlo asi  :

como lo intento usar :
Código
  1. SendGMailText("Username@Gmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")

el Error:

Código:
'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?
En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #5 en: 11 Febrero 2018, 00:38 »

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
  1. NAMESPACE_DE_TU_PROGRAMA.NET.Tools.MailUtil.SendGMailText( ...parámetros... )

Saludos
En línea


**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #6 en: 11 Febrero 2018, 01:12 »

arggg . ahora lo puse así :

Código
  1. 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  :


En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #7 en: 11 Febrero 2018, 03:13 »

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

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


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

la linea donde pone:
Código:
#If NET45 OrElse NET46 Then
y:
Código:
#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
  1. Private Shared Sub SendGMail(ByVal username As String,
  2.                             ByVal password As String,
  3.                             ByVal subject As String,
  4.                             ByVal body As String,
  5.                             ByVal addresses As MailAddressCollection,
  6.                             ByVal attachments As Collection(Of Attachment),
  7.                             ByVal isBodyHtml As Boolean)
  8.  
  9. ...
  10. For Each attachment As Attachment In attachments
  11.    msg.Attachments.Add(attachment)
  12. Next attachment
  13. ...

¿Solución?, fácil:
Código
  1. If (attachments IsNot Nothing) Then
  2.    For Each attachment As Attachment In attachments
  3.        msg.Attachments.Add(attachment)
  4.    Next attachment
  5. End If

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

saludos
« Última modificación: 11 Febrero 2018, 03:31 por Eleкtro » En línea


**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #8 en: 11 Febrero 2018, 13:25 »

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?

En línea


Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.709



Ver Perfil
Re: Clase o modulo para enviar correo gmail/hotmail/yahoo
« Respuesta #9 en: 11 Febrero 2018, 14:54 »

Repito de nuevo:

Lee aquí:
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
En línea


Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines