Enviar EMAIL desde VB

[Ever Cerna]

Buenos días,

Una consulta estaba viendo el control que hiso leandro para enviar EMAIL, bueno alguien por allí logro terminar ese control, o en todo caso como puedo hacer para enviar correos, desde vb, configurando mi cuenta ya sea de GMAIL O HOTMAIL a cualquier DESTINO, estuve revisando en Internet y no encuentro uno queme funcione a la perfección, haber si alguien me orienta.

De antemano muchas gracias.

http://leandroascierto.com/blog/e-mail-control/#comments

[LeandroA]

Hola Ever, ese control no sirve para enviar email, es solo para entrar direcciones de correo de forma fácil tal como es cuando tipeas en hotmail (hoy en día cambiaron el diseño pero la idea es la misma) , si quieres enviar email desde vb6 un metodo es utilizando una libreria llmada cdo http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm

también si te interesa hay un proyecto que hice hace mucho tiempo y esta en esa pagina, en el cual se puede enviar email con texto enriquecido, también utiliza cdo.
(puede que el navegador te lo marque como malicioso, pero descargalo igual y por las duda elimina el ejecutable.)
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/enviar-mail-en-formato-html.htm

[obethermy]

solo lo he probado por gmail.
1.-Primero averiguar la configuracion que usa gmail
2.-Desbloquear el puerto gmail para trabajarcon el programa.
Te apunto me nota de la  misma:http://leandroascierto.com/foro/index.php?topic=3207.msg17589#msg17589
3.- Programar:
Crear un textbox(Text1.Text) para el mensaje con multiline=true y scrollbars=3. Dos Commandbutton (Enviar y Salir).

Código: (VB) [Seleccionar]

'Evento cdo para enviar email
Private WithEvents oMail As clsCDOmail

Private Sub cmdenviar_Click()
 Call enviar
End Sub

Private Sub CmdSalir_Click()
 Call Salir
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
 If KeyAscii = 27 Then
  Call Salir
 End If
End Sub

Private Sub Salir()
 Unload Comentarios
 Set Comentarios = Nothing
End Sub

Private Sub enviar()
    Set oMail = New clsCDOmail
    With oMail
         'datos para enviar
        .servidor = "smtp.gmail.com"
        .puerto = 465
        .UseAuntentificacion = True
        .ssl = True
        .usuario = "minombrede@gmail.com"
        .PassWord = "tuclave"
        .Asunto = "TuAsunto"
        .Adjunto = ""
        .de = "minombrede@gmail.com"
        .para = "minombrepara@gmail.com"
        .mensaje = Text1.Text
        .Enviar_Backup ' manda el mail
    End With
    Set oMail = Nothing
End Sub

' envio completo
Private Sub oMail_EnvioCompleto()
    MsgBox "Mensaje enviado", vbInformation
End Sub

' error al enviar
Private Sub oMail_Error(Descripcion As String, Numero As Variant)
    MsgBox Descripcion, vbCritical, Numero
End Sub

Private Sub Form_Load()
 Comentarios.Width = 4920
 Comentarios.Top = 0
 Comentarios.Height = 5175
 Comentarios.Left = 0
 Text1.Text = "Hola," + vbNewLine
 Text1.Text = Text1.Text + vbNewLine
 Text1.Text = Text1.Text + "Deseo darle mi opinion sobre TuHipicoBanca" + vbNewLine
 Text1.Text = Text1.Text + "Problemas:" + vbNewLine
 Text1.Text = Text1.Text + vbNewLine
 Text1.Text = Text1.Text + "Sugerencias y peticiones:" + vbNewLine
 Text1.Text = Text1.Text + vbNewLine
 Text1.Text = Text1.Text + "Caracteristicas de mi sistema (sistema operativo,etc.)" + vbNewLine
 Text1.Text = Text1.Text + vbNewLine
 Text1.Text = Text1.Text + "Servidor: " + GetSetting(App.Title, "conexion", "servidor") + vbNewLine
 Text1.Text = Text1.Text + "Datos: " + GetSetting(App.Title, "conexion", "datos") + vbNewLine
 Text1.Text = Text1.Text + "Licencia:" + vbNewLine
 Text1.Text = Text1.Text + "Volumen Serial: " + GetSerialNumber + vbNewLine
 Text1.Text = Text1.Text + "Nombre del Equipo:" + ComputerName + vbNewLine
 Text1.Text = Text1.Text + "Modelo del HD: " + Trim$(GetDriveInfo(0).Model) + " Serial del HD: " + Trim$(GetDriveInfo(0).SerialNumber) + vbNewLine
 Text1.Text = Text1.Text + "Direccion Mac: " + leerIDcomputadora
 Text1.Text = Text1.Text + vbNewLine
 Text1.Text = Text1.Text + "Saludos,"
End Sub


[Ever Cerna]

Muchisimas gracias Leandro por el aplicativo muy bueno lo estuve probando y me funciona todo ok, voy a implementarlo en el sistema que estoy asiendo y lo acomodare a mi necesidad muchisimas gracias nuevamente Lea.

Y obethermy gracias amigo estuve probando el aplicativo de leandro, y me lanzaba error cuando trataba de enviar correos con la cuenta gmail, pero me percate que se tenia que activar la seguridad de google, con el link que me dejaste lo active y todo perfecto.

Ahora la pregunta es?, siempre tengo que aser lo mismo si trato de enviar correo con otra cuenta de gmail?

Gracias de antemano por tu tiempo

Gracias...

[Waldo]

No quiero desvirtuar, pero justo hace unos días tenía que agregar a una app la función de enviar mail, hace un tiempito me estoy haciendo amigo de .net y tengo que reconocer que con .net es muy fácil, viene con una clase nativa SmtpMail, seteas las propiedades y sale el mail.

[gasafonso]

Buenas tardes queridos amigos, Yo hice algo con el ejemplo de Lea

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/enviar-mail-en-formato-html.htm

y como queria agregarle varias de direcciones de mails que cargo previamente en un archivo .txt llamado misclientes.txt

Código: (VB) [Seleccionar]

Private Sub Form_Load()
Dim xline As String
'***************************************************************************************************
'***************************************************************************************************
'      inicia el formulario cargando los mails del archivo misclientes.txt y enviando al
'      titular una copia de lo enviado
'***************************************************************************************************
'***************************************************************************************************

Set mcIni = New clsIni
    INI_PATH = App.Path & "\config.ini"
    With mcIni
         TxtPara.Text = .getValue(INI_PATH, "datos", "usuario")
         
     End With


Open "C:\enviaemail\misclientes.txt" For Input As FreeFile
        Line Input #1, xline
        TxtCCO.Text = xline
 Close #1


y tengo un archivo .ini que cargo lo siguiente

Código: (VB) [Seleccionar]

[datos]
servicio Mail=1
servidor=smtp.gmail.com
usuario=gasafonso@gmail.com
password=´ÂÒà©Ç¼³Õ
puerto=465
ssl=1
Aut=1
textpara.text=ESPELUSEMARTA@GMAIL.COM;gasafonso@gmail.com;ventas.pampasur@gmail.com

Mis problemas es

1- no se como cargar toodos los mails de forma automatica

2-no me los carga en text.txt


y me da este error



gracias

[gasafonso]

perdon me olvide de poner el error

[LeandroA]

hola, estuve chequeando la aplicación si aun andaba y si, funciona pero tenes que activar esta opcion https://www.google.com/settings/security/lesssecureapps
después hice unos cambios por otros errores que tenia en la aplicacion, uno de ellos es que si lo configurabas desde el proyecto no andaba desde el ejecutable y viceversa (por la encriptacion del password.) y un detalle en el menú.

http://leandroascierto.com/blog/archivos/enviar-email-en-html.zip

ahora Gaston en cuanto a tu problemas para cargas las direcciones mediante el txt, quizás es porque este tenga saltos de linea? en tal caso remplaza el salto de lina por "; " asegurate de que en la caja de texto quede las direcciones de correo bien escritas con el punto y coma de separador.
cualquier cosa subi lo que tengas y lo chequeamos (sin los datos del .ini)

[gasafonso]

Lea, hice lo de la activación y ahora no me anda ni el tuyo modificado , ni el mio anterior
Si a alguien se le ocurre algo , les agradezco


Saludos

[LeandroA]

Gaston mil perdon, tenia un error en la encriptacion del password y no estaba funcionando descargalo nuevamente

http://leandroascierto.com/blog/archivos/enviar-email-en-html.zip

[gasafonso]

Hola lea, sigue sin funcionar amigo !!!

No se si es un tema mio o del programa


Saludos

[Ever Cerna]

Buenas, a mi se me funciona a la perfección, cual es el error que te muestra

[gasafonso]

Es te !!!!!!!!!!



[/quote]

[Ever Cerna]

uhmm como has configurado el servidor SMTP? Bueno a mi si me funciona a la perfeccion sin ningun problema.

[gasafonso]

Buenas !!! ahi me anduvo , era un tema de permisos de Gmail

Saludos