PurePOP3

[kunstlust]

Wie ist es möglich bei PurePOP3, die nächsten Nachricht wählen?
Ich habe leider in der Hilfe nichts gefunden, könnte mir jemand einen Tip geben?
Ich möchte gerne alle Anhänge in einem Postfach speicher, mit PurePOP3_CountMessages() sehe ich wieviele es sind, aber leider eben nicht wie ich an die Nächste komme
Danke

[kunstlust]

Ich habe doch noch gefunden:

Code: Alles auswählen

If PurePOP3_OpenPOP3Connection(Server, Port, User, Pwd) = #PurePOP3_Ok
  Debug "Connected"
  ; PurePOP3_Trace(#TRUE)
  For Messages=0 To PurePOP3_CountMessages()

  Debug 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 "<start>"
        Debug PeekS(*Message)
        Debug "<end>"
      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
  Next
  PurePOP3_ClosePOP3Connection()
Else
  Debug PurePOP3_GetLastServerMessage()
EndIf

Ist ja auch erstmal die Anpassung an das Hilfebeispiel

[ts-soft]

PS: Mit Strg + A und Strg + I kannst Du die Einrückungen in der IDE korrigieren,
Dein obiger Code ist ja total daneben eingerückt