![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Download and Save Email Attachments (POP3)See more POP3 ExamplesDownloads emails from a POP3 mailbox and saves all attachments.Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean = False ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The mailman object is used for receiving (POP3) ' and sending (SMTP) email. Dim mailman As New Chilkat.MailMan ' Set the POP3 server's hostname mailman.MailHost = "pop.yourserver.com" ' Set the POP3 login/password. mailman.PopUsername = "***" mailman.PopPassword = "***" ' Copy the all email from the user's POP3 mailbox ' into a bundle object. The email remains on the server. ' FetchAll is a reasonable choice for POP3 maildrops that don't have too many ' emails. For larger mail drops, one might download emails one at a time.. Dim bundle As New Chilkat.EmailBundle Dim keepOnServer As Boolean = True Dim headersOnly As Boolean = False ' Irrelevent because we are NOT downloading headers-only Dim numBodyLines As Integer = 0 success = mailman.FetchAll(keepOnServer,headersOnly,numBodyLines,bundle) If (success = False) Then Debug.WriteLine(mailman.LastErrorText) Exit Sub End If ' The directory path can be relative or absolute. ' This shows a Windows style directory path. On other operating systems, the path ' would be different.. Dim dirPath As String = "c:/myAttachments" Dim email As New Chilkat.Email Dim bundleIndex As Integer = 0 Dim numMessages As Integer = bundle.MessageCount While (bundleIndex < numMessages) bundle.EmailAt(bundleIndex,email) ' Save all attachments to the specified directory. ' The directory is automatically created if it does not yet exist. success = email.SaveAllAttachments(dirPath) If (success = False) Then Debug.WriteLine(email.LastErrorText) Exit Sub End If ' The OverwriteExisting property controls whether already-existing files ' are automatically overwritten. By default, it is set to True so that existing ' files will be overwritten. ' Setting OverwriteExisting = False will cause the attachment-saving methods to generate ' unique filenames if a file with the same name already exists. The actual filename(s) ' saved will be present by calling GetAttachmentFilename for each attachment *after* ' saving. ' For example... email.OverwriteExisting = False success = email.SaveAllAttachments(dirPath) If (success = False) Then Debug.WriteLine(email.LastErrorText) Exit Sub End If Dim numAttachments As Integer = email.NumAttachments Dim attachIndex As Integer = 0 While (attachIndex < numAttachments) ' If the attachment filename was changed to prevent overwriting, ' GetAttachmentFilename will return the new filename. Debug.WriteLine(email.GetAttachmentFilename(attachIndex)) attachIndex = attachIndex + 1 End While ' Attachments can also be saved individually. attachIndex = 0 While (attachIndex < numAttachments) Debug.WriteLine("Original Filename: " & email.GetAttachmentFilename(attachIndex)) success = email.SaveAttachedFile(attachIndex,dirPath) If (success = False) Then Debug.WriteLine(email.LastErrorText) Exit Sub End If ' If OverwriteExisting = True, the saved filename will always equal the original filename, ' unless there are characters present in the filename that are not allowed by Windows, ' such as * ? < > | etc. In those cases the illegal characters are either removed or replaced ' with underscore characters to allow the file to be saved. Debug.WriteLine("Saved Filename: " & email.GetAttachmentFilename(attachIndex)) attachIndex = attachIndex + 1 End While bundleIndex = bundleIndex + 1 End While |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.