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,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Download and Save Email Attachments (POP3)Downloads emails from a POP3 mailbox and saves all attachments.
' 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 Chilkat.MailMan Set mailman = Chilkat.NewMailMan ' 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. ' CopyMail 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.. Set bundle = mailman.CopyMail() If (mailman.LastMethodSuccess <> True) Then Debug.Print 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.. dirPath = "c:/myAttachments" bundleIndex = 0 numMessages = bundle.MessageCount Do While (bundleIndex < numMessages) Set email = bundle.GetEmail(bundleIndex) ' Save all attachments to the specified directory. ' The directory is automatically created if it does not yet exist. success = email.SaveAllAttachments(dirPath) If (success <> True) Then Debug.Print 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 <> True) Then Debug.Print email.LastErrorText Exit Sub End If numAttachments = email.NumAttachments attachIndex = 0 Do While (attachIndex < numAttachments) ' If the attachment filename was changed to prevent overwriting, ' GetAttachmentFilename will return the new filename. Debug.Print email.GetAttachmentFilename(attachIndex) attachIndex = attachIndex + 1 Loop ' Attachments can also be saved individually. attachIndex = 0 Do While (attachIndex < numAttachments) Debug.Print "Original Filename: "; email.GetAttachmentFilename(attachIndex) success = email.SaveAttachedFile(attachIndex,dirPath) If (success <> True) Then Debug.Print 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.Print "Saved Filename: "; email.GetAttachmentFilename(attachIndex) attachIndex = attachIndex + 1 Loop bundleIndex = bundleIndex + 1 Loop |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.