Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python 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 |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.