Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Ever Cerna en Septiembre 10, 2016, 09:30:51 am
-
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 (http://leandroascierto.com/blog/e-mail-control/#comments)
-
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
-
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).
'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
-
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...
-
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.
-
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
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
[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
-
perdon me olvide de poner el error
(https://s13.postimg.org/wtwsvfkxv/error.png) (https://postimg.org/image/wtwsvfkxv/)
-
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)
-
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
-
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
-
Hola lea, sigue sin funcionar amigo !!!
No se si es un tema mio o del programa
Saludos
-
Buenas, a mi se me funciona a la perfección, cual es el error que te muestra ???
-
Es te !!!!!!!!!!
(https://s13.postimg.org/wtwsvfkxv/error.png) (https://postimg.org/image/wtwsvfkxv/)
[/quote]
-
uhmm como has configurado el servidor SMTP? Bueno a mi si me funciona a la perfeccion sin ningun problema.
-
Buenas !!! ahi me anduvo , era un tema de permisos de Gmail
Saludos
-
Amigos, creee una cuenta yahoo y cuando lo voy a configurar me pone
(https://s11.postimg.org/jmxo35vjz/Error_Yahoo.jpg) (https://postimg.org/image/jmxo35vjz/)
Saludos
-
Activelas doc, eso debe estar en alguna parte de la configuracion de yahoo.
-
hola gente, con gaston ya vimos lo de gmail y para conocimiento de todos si ya activaron el uso de aplicaciones no seguras y no envia el correo es porque gmail detecta una acción sospechosa y bloquea el correo, esto se soluciona entrando desde el mismo pc en un navegador web e identificarse en gmail y seguramente les hará unas pruebas para asegurarse que son ustedes quien intenta acceder a la cuenta desde esa ubicación, una vez realizado este paso ya se puede enviar email y dicha pc. (esto por lo general sucede cuando no es el lugar habitual donde se logean en gmail.) (aun no sabemos que pasa con el correo masivo.)
con yahoo para activar el acceso web y pop hay que hacer los siguientes pasos, entra al correo de yahoo y en configuracion
(https://s22.postimg.org/aziunssvx/Sin_t_tulo3.png) (https://postimg.org/image/aziunssvx/)
luego seleccionan a la izquierda "cuenta" y en la derecha seleccionan su cuenta de yahoo.
(https://s9.postimg.org/4862x4kyz/Sin_t_tulo1.png) (https://postimg.org/image/4862x4kyz/)
y abajo de todo tildan la opcion pop (en mi caso estaba tildada pero puede que ya lo aya echo años anteriores.)
(https://s10.postimg.org/dhlknl00l/Sin_t_tulo.png) (https://postimg.org/image/dhlknl00l/)
-
Buen dia Amigos, queria contarles que envie mi consulta de como enviar mails masivos en gmail en el foro de ayuda de Google y me contestaron esto ;
(https://s21.postimg.org/4dhnc6uwj/Foro.jpg) (https://postimg.org/image/4dhnc6uwj/)
No entiendo bien como es esto de las directrices, pero seguire estudiandolo !!
Saludos
-
Buen día muchas gracias por retomar este tema, yo estoy haciendo pruebas pero no me corre, quizas ya lo resolvieron y no lo capto
me marca:
the transport failed to connect to the server
ya hicie cambio de permisos en mi cuenta como comentaba el sr. leandro pero sigo sin poder enviar
agradezco de antemano sus valiosos comentarios
saludos
-
con que servidor gmail o yahoo?
-
gracias por responder leandro es gmail
http://www.subirimagenes.com/privadas-error-2383913.html
(http://www.subirimagenes.com/imagedata.php?url=http://s2.subirimagenes.com/privadas/2383913error.png)
-
@crocotooth, fijate si desde el navegador web entras a la bandeja de tu correo de gmail, creo que en teoría debería comprobar que sos vos el que intenta acceder desde esa pc, al menos eso fue lo que impedía el acceso desde la pc de Gaston, ya si no es eso no tengo idea que mas podria ser.