How do I decode email that I retrieve with POP?

Messages more complex that plain text messages are MIME encoded; any attachments, HTML parts, inline images and formatting will be encoded into one entity. These messages will remain in MIME format until decoded by the mail client. You will need to use the MIME object to decode messages retrieved from a POP server into their respective parts. MIME encoding can take on many degrees of encapsulation, so you will want to use a recursive routine that is capable of calling itself when embedded MIME entities are detected. What follows is a general case routine for MIME decoding; you will initially wish to call this on POP's MessageHeaders and MessageText values:

Private Sub MimeDecode(ByVal EntityHeaders As String, ByVal Entity As
String)
 Dim Mime1 As New nsoftware.IPWorks.Mime
 Dim i As Integer  
 Mime1.MessageHeaders = EntityHeaders  
 Mime1.Message = Entity  
 Try
     Mime1.DecodeFromString()
 Catch
    'If an error is encountered, the entity is not a valid MIME entity
    Exit Sub
 End Try
 For i = 0 To Mime1.PartCount - 1
    'If the Content-Type is "Multipart/????", then that part is an encoded entity
    'You will want to call this routine again
    If LCase(Mime1.PartContentType(i)).StartsWith("multipart") Then
       MimeDecode(Mime1.PartHeaders(i), Mime1.PartDecodedString(i))
    End If

    'If a part is text/plain and is not an attachment, it is generally
    'the plain text body of the message
    If Mime1.PartFilename(i) = "" And LCase(Mime1.PartContentType(i)) = "text/plain" Then
    'Display your text here; you'll want to read from
Mime1.PartDecodedString(i)
  End If

  'If you're going to support HTML messages, you'll want to look for this
  'part, and if found, use it in place of the plain text
  If LCase(Mime1.PartContentType(i)) = "text/html" Then
    'Again, read from Mime1.PartDecodedString(i) to access
  End If

  'External attachments show up with a content-disposition of "attachment"
  If LCase(Mime1.PartContentDisposition(i)) = "attachment" Then
    'Mime1.PartFilename(i) will contain the name of the file.
    'To actually get the file itself, you must read the value of 
    'Mime1.PartDecodedFile(i). Doing so will return the name of a 
    'temporary file that contains the file data; this file will not
    'be created until PartDecodedFile is queried. Once you have the name
    'of a temporary file with the data, simply rename the file to the 
    'location and name of where you wish to save the file
  End If

  'Inline data that are sent in the email will generally have a
  'content-ID header and a content-disposition of "inline"
  If LCase(Mime1.PartContentID(i)) <> "" Then
    'Treat these cases as you would external attachments. The HTML that
    'is returned will include CID tags that should correspond with this
    'data, or you can simply save the images as you would an attachment
    'if you do not wish to support HTML
  End If
 Next
End Sub

We appreciate your feedback. If you have any questions, comments, or suggestions about this article please contact our support team at kb@nsoftware.com.