![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) POP3 SSL - Read POP3 Email over TLS/SSL on Port 995Demonstrates how to connect via TLS/SSL to a POP3 server and read email. This assumes that the POP3 server supports SSL. Note: This example requires Chilkat v11.0.0 or greater.
IncludeFile "CkEmailBundle.pb" IncludeFile "CkEmail.pb" IncludeFile "CkMailMan.pb" Procedure ChilkatExample() success.i = 0 ; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. ; The mailman object is used for receiving (POP3) ; and sending (SMTP) email. mailman.i = CkMailMan::ckCreate() If mailman.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Set the POP3 server's hostname CkMailMan::setCkMailHost(mailman, "pop.gmail.com") ; Set the POP3 login/password. CkMailMan::setCkPopUsername(mailman, "****@gmail.com") CkMailMan::setCkPopPassword(mailman, "****") ; Indicate that we want TLS/SSL. Also, set the port to 995: CkMailMan::setCkMailPort(mailman, 995) CkMailMan::setCkPopSsl(mailman, 1) bundle.i = CkEmailBundle::ckCreate() If bundle.i = 0 Debug "Failed to create object." ProcedureReturn EndIf keepOnServer.i = 1 headersOnly.i = 0 ; Irrelevent because we are NOT downloading headers-only numBodyLines.i = 0 success = CkMailMan::ckFetchAll(mailman,keepOnServer,headersOnly,numBodyLines,bundle) If success = 0 Debug CkMailMan::ckLastErrorText(mailman) CkMailMan::ckDispose(mailman) CkEmailBundle::ckDispose(bundle) ProcedureReturn EndIf email.i = CkEmail::ckCreate() If email.i = 0 Debug "Failed to create object." ProcedureReturn EndIf i.i = 0 While i < CkEmailBundle::ckMessageCount(bundle) CkEmailBundle::ckEmailAt(bundle,i,email) ; Display the From email address and the subject. Debug "From: " + CkEmail::ckFrom(email) Debug "Subject: " + CkEmail::ckSubject(email) i = i + 1 Wend CkMailMan::ckDispose(mailman) CkEmailBundle::ckDispose(bundle) CkEmail::ckDispose(email) ProcedureReturn EndProcedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.