Correo electrónico entrante a través de SSL / incoming Email

HMG Samples and Enhancements

Moderator: Rathinagiri

paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

Re: Correo electrónico entrante a través de SSL / incoming E

Post by paimar »

Hola.

Vuelvo a contestar... Pues eso es una pena que no se termine de solucionar las peguillas que faltan. Necesitaba esto para enviar por email unos avisos caducidades de fechas y que con un reply se enviara la nueva fecha para que el programa la registrara en el dbf. Luego lo podria usar para otras altas/bajas/modificaciones.

Voy a ver si puede hacer el exe que lea en correo el visual fox y que graba el correo en la tabla para que luego lo lea desde minigui.

Ya os contare..

un saludo
Gipuzkoa - ESPAÑA
paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

Re: Correo electrónico entrante a través de SSL / incoming E

Post by paimar »

Hola.

Los dbfs de visual fox no se podian leer diractamente desde minigui no?

un saludo
Gipuzkoa - ESPAÑA
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Correo electrónico entrante a través de SSL / incoming E

Post by danielmaximiliano »

paimar wrote:Hola.

Los dbfs de visual fox no se podian leer diractamente desde minigui no?

un saludo
yo abro las tablas con esto

Code: Select all

 REQUEST DBFCDX, DBFFPT
   RDDSETDEFAULT ("DBFCDX")
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

Re: Correo electrónico entrante a través de SSL / incoming E

Post by paimar »

Muchas gracias Daniel y Fox si que habría sin problemas las de minigui no?
Gipuzkoa - ESPAÑA
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Correo electrónico entrante a través de SSL / incoming E

Post by danielmaximiliano »

paimar wrote:Muchas gracias Daniel y Fox si que habría sin problemas las de minigui no?
Estoy estancado en descomponer mediante el methodo :Retieve( nId , nLen ) el mensaje desde el servidor de Gmail y otros servidores, puedo recuperar todos los Email mediante
:RetieveAll() pero da un error cuando hay muchos mensajes en el servidor.

hice la consulta en Google Harbour user.
espero resolverlo en estos dias.
te dejo como esta ahora el codigo de Incomming E-mail.



otra cosa es que falla aqui, nose que pasa que no pasa el contenido de

Code: Select all

Procedure ServerConnect( )
/*****************************************************************************/ 
Local cMailAccount := ''
Local cPassword    := ''
 
 cMailAccount := GetProperty( 'Incomming' , 'cUser' , 'value' )
 cPassword	  := GetProperty( 'Incomming' , 'cPass' , 'value' )
agrega las siguiente lineas

Code: Select all


cMailAccount := 'danielmaximilianoherrera'
 cPassword    := '0123456'
no hace falta '@gmail.com' al usuario.

Trasnlate Google
I'm stuck in breaking through the methodo: Retieve (NID nLen) the message from the Gmail server and other servers, I can retrieve all e-mail with
: RetieveAll () but it gives an error when there are many messages on the server.

Google made ​​the Harbour user query.
I hope to solve these days.
I leave you now as this code Incomming E-mail.



otherwise it fails here, nose happens that bypasses content

Code: Select all

Procedure ServerConnect( )
/*****************************************************************************/ 
Local cMailAccount := ''
Local cPassword    := ''
 
 cMailAccount := GetProperty( 'Incomming' , 'cUser' , 'value' )
 cPassword	  := GetProperty( 'Incomming' , 'cPass' , 'value' )
add the following lines

Code: Select all


cMailAccount := 'danielmaximilianoherrera'
 cPassword    := '0123456'
Needless '@ gmail.com' user.
Last edited by danielmaximiliano on Sat Feb 09, 2013 2:21 am, edited 1 time in total.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
paimar
Posts: 64
Joined: Wed May 23, 2012 8:52 pm

Re: Correo electrónico entrante a través de SSL / incoming E

Post by paimar »

Buenas

Muchas gracias Daniel, si es así que lo vas a intentar ya espero porque lo del ejecutable externo preferiría evitarlo.

Estaré pendiente del hilo.

Gracias.



Google......and I




hello

Thank you very much Daniel, if you're going to try to fix it I will wait because I'd rather avoid the external executable.

I'll watch the thread.

Thank you.
Gipuzkoa - ESPAÑA
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Correo electrónico entrante a través de SSL / incoming E

Post by danielmaximiliano »

Hola a todos :
El amigo mjaviergutierrez pidio utilizar HBSendmail() con HMG, sucede que hace tiempo hubo cambios minimos en la libreria HBTIP.
se requiere para compilar tener instalado OpenSSL y hay 2 versiones para instalar 32 y 64 bits.

http://slproweb.com/download/Win32OpenS ... 1_0_1f.exe
http://slproweb.com/download/Win64OpenS ... 1_0_1f.exe

esto copiara a su sistema los componentes SSLeay32.dll y Libeay32.dll con estos 2 componentes instalados podemos correr nuestra aplicacion que hace uso de la libreria HBTIP.

puede suceder que no funcione correctamente ya que falta incluir como en anteriores versiones de HMG las librerias en HMG.HBC

Code: Select all

# ***** include this lines *****

libs=hbssl
libs=libeay32
libs=ssleay32

# ***** include this lines *****
Extraer en C:\hmg.3.2\LIB las libs faltantes.
LIB.rar
(151.85 KiB) Downloaded 392 times
ahora ya funciona en HMG las funciones HBSendmail() y las funciones internas de HBTIP
adjunto la nueva aplicacion con algunos defectos a corregir de Incomming / Outgoing eMail que hice hace tiempo atras.
Incomming.png
Incomming.png (121.54 KiB) Viewed 5994 times
InOutEmail.rar
(986 KiB) Downloaded 481 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Correo electrónico entrante a través de SSL / incoming E

Post by danielmaximiliano »

Hola a todos:
para que funcione la libreria HBTIP y la funcion HBSendmail() es necesario tener instalado en el sistema OpenSSL que se puede descargar desde http://slproweb.com/products/Win32OpenSSL.html
sus 2 versiones tanto para 32 y 64 bits en modo Liviano y de desarollo esto instalara en su carpeta de sistema

c:\Windows\System32
c:\Windows\SysWow64

los componentes Libeay32.dll y SSLeay32.dll que son usados para utilizar dicha libreria
debemos incluir las libs faltantes en la carpeta c:\hmg.3.2\lib e incluir en HMG.HBC las lineas
con esto debe funcionar HBTIP.

Code: Select all

# ***** include this lines *****

libs=hbssl
libs=libeay32
libs=ssleay32

# ***** include this lines *****
Translate Google

Hello everyone:
to operate the library HBTIP and HBSendmail() function you need to have OpenSSL installed on the system that can be downloaded from http://slproweb.com/products/Win32OpenSSL.html
its 2 versions for both 32 and 64 bit mode Lightweight and development.
install it in your system folder

c:\Windows\System32
c:\Windows\SysWow64


the components ssleay32.dll and Libeay32.dll that are used to use that library
we include the missing libs in c:\hmg.3.2\lib and include lines HMG.HBC
this should work with HBTIP.

Code: Select all

# ***** include this lines *****

libs=hbssl
libs=libeay32
libs=ssleay32

# ***** include this lines *****
LIB.rar
missing libs
Unzip in C:\HMG.3.2\LIB
(151.85 KiB) Downloaded 335 times
Last edited by danielmaximiliano on Thu Jan 09, 2014 10:50 am, edited 1 time in total.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: Correo electrónico entrante a través de SSL / incoming E

Post by Javier Tovar »

Hola danielmaximiliano,

Ya realice todo lo indicado y si logro compilar el programa, pero a la hora de conectarme a GMail, Yahoo o Hotmail me sale este error:
ErrorEmail.jpg
ErrorEmail.jpg (148.39 KiB) Viewed 5984 times
A que se debe y como puedo solucionarlo?

Saludos

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Hello danielmaximiliano,

You do all the above and if I compile the program, but when I logged into GMail, Yahoo or Hotmail I get this error:
ErrorEmail.jpg
ErrorEmail.jpg (148.39 KiB) Viewed 5984 times
A to be and how I can fix it?
regards
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Correo electrónico entrante a través de SSL / incoming E

Post by danielmaximiliano »

Hola Javier :
revisa el codigo en C:\Temp\InOutEmail\Source\incomming.prg, posiblemente tengas que cambiar

Code: Select all

  aServers [3] := { 'Yahoo   Incomming Mail Server ' , 'pop.mail.yahoo.com' , '465' , 'yahoo.com' , 'smtp.mail.yahoo.com' , '465' }
 
por

Code: Select all

  aServers [3] := { 'Yahoo   Incomming Mail Server ' , 'pop.mail.yahoo.com' , '465' , 'yahoo.com' , 'smtp.mail.yahoo.com.mx' , '465' }
 
ya que utilizas Yahoo no necesitas utilizar @yahoo.com.mx en tu cadena de Usuario.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Post Reply