PureBasic Forums - English

Code: Select all

For iMsg=1 To PurePOP3_CountMessages() ; retrieve each message and examine the header and if matched, save attachment
      If PurePOP3_RetrieveMessage(iMsg) > 0
        ; message retrieved successfully, process it
        AppLog("Λήψη Μηνύματος "+Str(iMsg),#False)
        AppLog("Επισυναπτόμενα μηνύματος: "+Str(PurePOP3_CountAttachedFiles()),#False)
        szFAtt$=""
        szID$=""
        sztmp1$=""
        sztmp2$=""
        msginfo$=PurePOP3_GetMessageInfo()
        If FindString(msginfo$,"net.314 MedSync:",1) 
          AppLog("Το μήνυμα είναι προβλεπόμενο.",#False)
        
          ; the message subject is  like this: net.314 MedSync: (ID) ...
          ; I need to get the ID
          sztmp1$=Right(msginfo$,Len(msginfo$)-FindString(msginfo$,"net.314 MedSync: (",1))
          sztmp2$=Right(sztmp1$,Len(sztmp1$)-FindString(sztmp1$,"(",1))
          szID$=StringField(sztmp2$,1,")")
                              
          ; get the attachment name
          szFAtt$=StringField(PurePOP3_ListAttachementsForMessage(),1,Chr(9))
          Debug szFAtt$
          
          ; now, save the attachment to the $BackupDir$\szID$ folder
          If PurePOP3_SaveAttachementsToFile(Backend\BackupDir+"\"+szID$) = #Null
            AppLog("Αδυναμία αποθήκευσης συννημμένων στο φάκελο "+Backend\BackupDir+"\"+szID$,#False)
          Else
            AppLog("Επιτυχής αποθήκευση αρχείου "+Backend\BackupDir+"\"+szID$,#False)
          EndIf
           
          ; extract the saved attachment to the $ExtractDir$\szID$ folder
          If PureZIP_ExtractFiles(Backend\BackupDir+"\"+szID$+"\"+szFAtt$, "*.*", Backend\ExtractDir+"\"+szID$, #False) = #Null
            AppLog("Αδυναμία αποσυμπίεσης αρχείου "+Backend\BackupDir+"\"+szID$+"\"+szFAtt$,#False)
          Else
            AppLog("Επιτυχής αποσυμπίεση αρχείου "+Backend\BackupDir+"\"+szID$+"\"+szFAtt$,#False)
            
            ; add the e-mail to the final e-mail notification queue
            szMessageNotification=szMessageNotification+"Successfully retrieved data from "+msClient(Val(szID$))\Label+" - "+szFAtt$+Chr(13)
                        
          EndIf
        Else
          ; mail is OK, but no attachments
          AppLog("Βρέθηκε μήνυμα αλλά όχι επισυναπτόμενο.",#False)
          AppLog("Διαγραφή μη προβλεπoμένου μηνύματος "+Str(PurePOP3_DeleteMessage(iMsg))+"("+PurePOP3_GetLastServerMessage()+")",#False)
        EndIf
      EndIf
    Next
    
    ; close the POP3 server
    PurePOP3_ClosePOP3Connection()

Code: Select all

          ; extract the saved attachment to the $ExtractDir$\szID$ folder
          If PureZIP_ExtractFiles(Backend\BackupDir+"\"+szID$+"\"+szFAtt$, "*.*", Backend\ExtractDir+"\"+szID$, #False) = #Null
            AppLog("Αδυναμία αποσυμπίεσης αρχείου "+Backend\BackupDir+"\"+szID$+"\"+szFAtt$,#False)
          Else
            AppLog("Επιτυχής αποσυμπίεση αρχείου "+Backend\BackupDir+"\"+szID$+"\"+szFAtt$,#False)

Code: Select all

http://www.uploading.com/files/ULBGR6C5/PPOP3dbg.zip.html

Code: Select all

InterScan Web Security detected the following in HTTP traffic:

Item: http://f55.uploading.com/26c74238293f1d0ef12c9c055b73e639/4742e502/1/38/880/PPOP3dbg.zip
Action: deleted
Reason: Violation of a compressed file restriction

-- File: PPOP3dbg.zip, security warning: Corrupted_Zip_file
The uncleanable file is deleted.

Code: Select all

Server.s = "pop.gmail.com" 
Port.l = 995
User.s = "myemail@gmail.com" 
Pwd.s = "mypassword" 
; 
If PurePOP3_OpenPOP3Connection(Server, Port, User, Pwd) = #PurePOP3_Ok 
  Debug "Connected" 
  ; PurePOP3_Trace(#TRUE) 
  Messages = PurePOP3_CountMessages() 
  Debug "You have " + Str(Messages) + " messages(s)" 
  If Messages 
    Debug "Message(s) total size : " + Str(PurePOP3_GetMessagesTotalSize()) + " bytes" 
    Debug "Message " + Str(Messages) + " size : " + Str(PurePOP3_GetMessageSize(Messages)) + " bytes" 
    Debug "Retrieve message " + Str(Messages) 
    If PurePOP3_RetrieveMessage(Messages) > 0 
      Debug "--------------" 
      Debug "Message info : " + PurePOP3_GetMessageInfo() 
      *Message = PurePOP3_GetMessageTextInMemory() 
      If *Message 
        Debug "Message text :" 
        Debug "" 
        Debug PeekS(*Message) 
        Debug "" 
        FreeMemory(*Message) 
      EndIf 
      Attachements.s = PurePOP3_ListAttachementsForMessage() 
      If Attachements 
        Debug "----------------" 
        Debug "Attachement(s) : " + Attachements 
        If PurePOP3_SaveAttachementsToFile("") 
          Debug "Attachement(s) saved to current directory" 
        Else 
          Debug "Could not save attachement(s)" 
        EndIf 
      Else 
        Debug "--------------" 
        Debug "No attachments" 
      EndIf 
    EndIf 
  EndIf 
  PurePOP3_ClosePOP3Connection() 
Else 
  Debug PurePOP3_GetLastServerMessage() 
EndIf