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