VBScript

Fetch a Range of POP3 Messages

Demonstrates the Chilkat MailMan.FetchRange method, which retrieves a range of messages from the POP3 mailbox and appends them to an EmailBundle. The arguments are keepOnServer, headersOnly, numBodyLines, a zero-based inclusive startIndex and endIndex, and the EmailBundle. This example fetches the first five messages.

Background: Fetching a range instead of everything is useful for paging through a large mailbox, or resuming after an interruption — download messages 0–99, then 100–199, and so on. Combined with headersOnly, it lets you build a quick message-list view without pulling full bodies and attachments up front.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the MailMan.FetchRange method, which retrieves a range of messages from the
'  POP3 mailbox and appends them to an EmailBundle.  The arguments are keepOnServer,
'  headersOnly, numBodyLines, startIndex, endIndex, and the EmailBundle.  The indexes are
'  zero-based and inclusive.

set mailman = CreateObject("Chilkat.MailMan")

'  Configure the POP3 server connection.
mailman.MailHost = "pop.example.com"
mailman.MailPort = 995
mailman.PopSsl = 1
mailman.PopUsername = "user@example.com"
mailman.PopPassword = "myPassword"

'  Fetch the first 5 messages (indexes 0 through 4), full bodies, leaving them on the server.
'  keepOnServer=1, headersOnly=0 (fetch the entire message).
'  Note: numBodyLines only applies when headersOnly is 1 (it sets how many lines of the
'  body to include along with the headers).  When headersOnly is 0, the entire message
'  is fetched and numBodyLines is ignored.
set bundle = CreateObject("Chilkat.EmailBundle")

success = mailman.FetchRange(1,0,0,0,4,bundle)
If (success = 0) Then
    outFile.WriteLine(mailman.LastErrorText)
    WScript.Quit
End If

n = bundle.MessageCount
outFile.WriteLine("Fetched " & n & " messages.")

set email = CreateObject("Chilkat.Email")

For i = 0 To n - 1
    success = bundle.EmailAt(i,email)
    outFile.WriteLine(email.Subject)
Next

'  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
'  connects and authenticates -- using the property settings above -- whenever a server
'  operation requires it.  Calling the explicit connect/authenticate methods can still be
'  helpful to determine whether a failure occurs while connecting or while authenticating.

outFile.Close