Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Parsing a Multipart/Digest EmailThis example demonstrates how to parse a multipart/digest email. An email parsed by this sample could have a MIME structure as follows: multipart/mixed text/plain text/plain multipart/digest message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 message/rfc822 text/plain
' Note: This example requires Chilkat v9.5.0.66 or greater. Dim emlPath As String = "qa_data/eml/multipart_digest.eml" Dim email As New Chilkat.Email ' For this example, we'll load the email from a .eml. ' The email could alternatively be loaded as a result of downloading from an IMAP or POP3 server.. Dim success As Boolean = email.LoadEml(emlPath) If (success <> True) Then Debug.WriteLine(email.LastErrorText) Exit Sub End If Dim numDigests As Integer = email.NumDigests Debug.WriteLine("num digests = " & numDigests) Dim i As Integer = 0 While i < numDigests Dim eDigest As Chilkat.Email = email.GetDigest(i) Debug.WriteLine(i & ":" & eDigest.FromAddress & ", " & eDigest.Subject) Dim m As String = eDigest.GetHeaderField("Message") If (eDigest.LastMethodSuccess = True) Then Debug.WriteLine(" Message = " & m) End If i = i + 1 End While |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.