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 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) Subscribe to Mailboxes and List Subscribed MailboxesDemonstrates how to list subscribed mailboxes, and unsubscribe/subscribe to a mailbox.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set imap = CreateObject("Chilkat_9_5_0.Imap") ' Anything unlocks the component and begins a fully-functional 30-day trial. success = imap.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Connect to an IMAP server. ' Use TLS imap.Ssl = 1 imap.Port = 993 success = imap.Connect("imap.someMailServer.com") If (success <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Login success = imap.Login("myLogin","myPassword") If (success <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' First examine the already subscribed mailboxes. refName = "" wildcardedMailbox = "*" ' Alternatively, the ListMailboxes method can be called to list all mailboxes (both subscribed and unsubscribed). ' mboxes is a Chilkat_9_5_0.Mailboxes Set mboxes = imap.ListSubscribed(refName,wildcardedMailbox) If (imap.LastMethodSuccess <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If For i = 0 To mboxes.Count - 1 outFile.WriteLine(mboxes.GetName(i)) Next outFile.WriteLine("----") ' Sample output. ' INBOX ' INBOX/recent ' INBOX/misc ' INBOX/misc/solutions ' ... ' Outbox ' Deleted Items ' Sent Items ' Drafts ' Junk E-mail ' Trash ' Sent ' Templates ' Let's unsubscribe to "INBOX/misc/solutions". success = imap.Unsubscribe("INBOX/misc/solutions") If (success <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Get the list of subscribed mailboxes again to verify that "INBOX/misc/solutions" is missing. ' mboxes is a Chilkat_9_5_0.Mailboxes Set mboxes = imap.ListSubscribed("","INBOX/misc*") If (imap.LastMethodSuccess <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If For i = 0 To mboxes.Count - 1 outFile.WriteLine(mboxes.GetName(i)) Next outFile.WriteLine("----") ' Re-subscribe to "INBOX/misc/solutions". success = imap.Subscribe("INBOX/misc/solutions") If (success <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Get the list of subscribed mailboxes again to verify that "INBOX/misc/solutions" is back in the list. ' mboxes is a Chilkat_9_5_0.Mailboxes Set mboxes = imap.ListSubscribed("","INBOX/misc*") If (imap.LastMethodSuccess <> 1) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If For i = 0 To mboxes.Count - 1 outFile.WriteLine(mboxes.GetName(i)) Next outFile.WriteLine("----") ' Disconnect from the IMAP server. success = imap.Disconnect() outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.