Seite 1 von 1
PurePOP3
Verfasst: 10.10.2012 13:03
von 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
Re: PurePOP3
Verfasst: 10.10.2012 13:13
von 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
Re: PurePOP3
Verfasst: 10.10.2012 13:21
von 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