Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Demonstrates IMAP Session LoggingDemonstrates how to enable IMAP session logging and examine the session log.
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim imap As Chilkat.Imap Set imap = Chilkat.NewImap ' Turn on session logging: imap.KeepSessionLog = True ' Connect to GMail ' Use TLS imap.Ssl = True imap.Port = 993 success = imap.Connect("imap.gmail.com") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Login ' Your login is typically your GMail email address. success = imap.Login("username@gmail.com","myPassword") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success <> True) Then Debug.Print imap.LastErrorText Exit Sub End If ' Show the session log. Debug.Print imap.SessionLog ' The session log will look like this: ' ----INFO---- ' Connecting to IMAP server at imap.gmail.com:993 ' ----IMAP RESPONSE---- ' * OK Gimap ready for requests from ... ' ----IMAP REQUEST---- ' aaab LOGIN "chilkat.support@gmail.com" ' ----IMAP RESPONSE---- ' * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT LIST-EXTENDED LIST-STATUS LITERAL- SPECIAL-USE APPENDLIMIT=35651584 ' aaab OK chilkat.support@gmail.com authenticated (Success) ' ----IMAP REQUEST---- ' aaac SELECT "Inbox" ' ----IMAP RESPONSE---- ' * FLAGS (\Answered \Flagged \Draft \Deleted \Seen $Forwarded $MDNSent $NotPhishing $Phishing $label1 $label2 $label3 $label4 $label5 Junk NonJunk) ' * OK [PERMANENTFLAGS (\Answered \Flagged \Draft \Deleted \Seen $Forwarded $MDNSent $NotPhishing $Phishing $label1 $label2 $label3 $label4 $label5 Junk NonJunk \*)] Flags permitted. ' * OK [UIDVALIDITY 3] UIDs valid. ' * 29 EXISTS ' * 0 RECENT ' * OK [UIDNEXT 6286] Predicted next UID. ' * OK [HIGHESTMODSEQ 813897] ' aaac OK [READ-WRITE] Inbox selected. (Success) ' Disconnect from the IMAP server. success = imap.Disconnect() |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.