Overview
FunctionsPOP3 functions for Purebasic.
Features :
- count messages at POP3 server
- get message text
- get message attachments
- and more
Note : TLS/SSL is not supported
PB3.94 : http://gnozal.ucoz.com/PurePOP3.htm
PB4.xx : http://gnozal.ucoz.com/PurePOP3_.htm
Example
Code: Select all
Server.s = "my.server.de"
Port.l = 110
User.s = "gnozal"
Pwd.s = "mypass"
;
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 ""
PurePOP3_FreeMessagePointer(*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
Only available for Purebasic Windows x86
PB3.94 : http://gnozal.ucoz.com/PurePOP3.zip
PB4.0x : http://gnozal.ucoz.com/PurePOP3_.zip
PB4.1x : http://gnozal.ucoz.com/PurePOP3__.zip
PB4.2x : http://gnozal.ucoz.com/PurePOP3___.zip
PB4.3x : http://gnozal.ucoz.com/PurePOP3_430.zip
PB4.4x : http://gnozal.ucoz.com/PurePOP3_440.zip
PB4.5x : http://gnozal.ucoz.com/PurePOP3_450.zip
PB4.6x : http://gnozal.ucoz.com/PurePOP3_460.zip
PB5.0x : http://gnozal.ucoz.com/PurePOP3_500.zip