FoxPro/Visual FoxPro - Descargar archivo adjunto en un correo GMAIL y guardarlo en una carpeta

POP3 = CreateObject("iFox.POP3")

pop3.SetLicenseCode("xxxxxxxxxxxxxxxxxxxxxxx")

m.txtpop3="direccion"

m.txtusername="usuario"

m.txtpassword="contraseña"

POP3.UserName = AllTrim(m.txtUserName)

POP3.Password = AllTrim(m.txtPassword)

DIMENSION correos(2)

correos(1)="yyyy@xxx.com" esto solo si queremos comprobar determinados remitentes

correos(2)="yyyy@xxx.es"

resultado=STRTRAN(correos(1),"@","")

directorio2="e:\correos\"+ALLTRIM(resultado)+"\" && las rutas donde guardamos los adjuntos

directorio="e:\correos\"+ALLTRIM(resultado)+"\*.*"

ERASE &directorio

m.Connected=.F.

If POP3.Connect(AllTrim(m.txtPOP3))

	m.Connected = .T.

	FOR x=POP3.MessageCount TO 1 STEP -1

 	   	mensaje=pop3.get(x)

		IF INLIST(pop3.senderemail,correos(1),correos(2)) AND (pop3.sentdate>=DATE())

			*resultado=STRTRAN(pop3.senderemail,"@","")

			IF NOT DIRECTORY("e:\correos\"+resultado)

				MKDIR "e:\correos\"+resultado

		   	ENDIF

		   	For a = 1 to POP3.AttachmentsCount

		   	    cName = POP3.Attachments[a].FileName

		   	    fichero3="e:\correos\"+resultado+"\"+ALLTRIM(cname)

		   	    guardar=POP3.Attachments[a].save(fichero3)

			NEXT a

   		ELSE

   			IF pop3.sentdate<DATE() para no buscar fechas anteriores

				x=1

   			ENDIF

   		ENDIF

    NEXT x

ELSE

*	MessageBox("Error de conexión", 64)

ENDIF

If m.Connected

   POP3.DisConnect()

ENDIF