Autor
|
Tema: Clase o modulo para enviar correo gmail/hotmail/yahoo (Leído 6,698 veces)
|
**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 : 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
|
|
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
Conectado
Mensajes: 9.878
|
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 pm por Eleкtro »
|
En línea
|
|
|
|
**Aincrad**
|
HOLA, bueno el el link : Re: Como puedo enviar mails masivos con archivos adjuntoslo 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/wLHNr0rnentoces cree una clase con el nombre de MailUtil pero en la parte de : Partial Public NotInheritable Class MailUtil : Inherits AestheticObject
me subralla la palabra : " AestheticObject" y dice que : "El tipo AestheticObject no esta definido"
|
|
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
Conectado
Mensajes: 9.878
|
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 am por Eleкtro »
|
En línea
|
|
|
|
**Aincrad**
|
ahora me sale 1 error al intentar usarlo asi : como lo intento usar : SendGMailText("Username@Gmail.com", "Password", "Email Subject", "Message Body", "Address@Server.com")
el Error: '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
Conectado
Mensajes: 9.878
|
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: NAMESPACE_DE_TU_PROGRAMA.NET.Tools.MailUtil.SendGMailText( ...parámetros... )
Saludos
|
|
|
En línea
|
|
|
|
**Aincrad**
|
arggg . ahora lo puse así : 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
Conectado
Mensajes: 9.878
|
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. EDITO:Ah, por cierto, elimina del código las condicionales de compilación... la linea donde pone: #If NET45 OrElse NET46 Then y: ...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... 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 isBodyHtml As Boolean) ... For Each attachment As Attachment In attachments msg.Attachments.Add(attachment) Next attachment ...
¿Solución?, fácil: 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
|
|
« Última modificación: 11 Febrero 2018, 03:31 am por Eleкtro »
|
En línea
|
|
|
|
**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?
|
|
|
En línea
|
|
|
|
Eleкtro
Ex-Staff
Conectado
Mensajes: 9.878
|
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
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Clase para enviar Correo desde Java [by BadDevil]
« 1 2 »
Java
|
Pablo Videla
|
14
|
11,918
|
6 Agosto 2009, 02:54 am
por Pablo Videla
|
|
|
Gmail permite importar correos de hotmail.es y yahoo.es
Noticias
|
wolfbcn
|
5
|
6,741
|
22 Marzo 2011, 18:21 pm
por Novlucker
|
|
|
Gmail, Hotmail y Yahoo! son vetados en Irán
Noticias
|
wolfbcn
|
0
|
1,515
|
14 Mayo 2012, 21:16 pm
por wolfbcn
|
|
|
Busco un codigo VB6 para enviar correo por hotmail
Programación Visual Basic
|
worldnirvana
|
1
|
2,037
|
18 Agosto 2015, 04:24 am
por ThunderCls
|
|
|
Gmail vs Hotmail (Outlook), cuál es mejor para tu correo electrónico gratis
Noticias
|
wolfbcn
|
1
|
3,819
|
23 Marzo 2019, 22:52 pm
por gabriel1995
|
|