Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Download POP3 Email to MIME StringsDownload the email from a POP3 mailbox directly into MIME strings, without parsing into email objects.
' The mailman object is used for receiving (POP3) ' and sending (SMTP) email. Dim mailman As New Chilkat.MailMan() ' Any string argument automatically begins the 30-day trial. Dim success As Boolean success = mailman.UnlockComponent("30-day trial") If (success <> true) Then MsgBox("Component unlock failed") Exit Sub End If ' Set the POP3 server's hostname mailman.MailHost = "mail.chilkatsoft.com" ' Set the POP3 login/password. mailman.PopUsername = "matt@chilkatsoft.com" mailman.PopPassword = "myPassword" ' First, get the complete set of UIDLs for the email in the POP3 mailbox: Dim saUidls As Chilkat.StringArray saUidls = mailman.GetUidls() If (saUidls Is Nothing ) Then MsgBox(mailman.LastErrorText) Exit Sub End If ' Download the email as MIME strings (no parsing of the MIME) Dim saMime As Chilkat.StringArray saMime = mailman.FetchMultipleMime(saUidls) If (saMime Is Nothing ) Then MsgBox(mailman.LastErrorText) Exit Sub End If ' MIME strings may be loaded into email objects: Dim i As Long Dim email As New Chilkat.Email() For i = 0 To saMime.Count - 1 email.SetFromMimeText(saMime.GetString(i)) TextBox1.Text = TextBox1.Text & email.From & vbCrLf TextBox1.Text = TextBox1.Text & email.Subject _ & vbCrLf & vbCrLf Next |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.