This is a modified version of what is in the help, (since I don’t completely understand it) but any other suggestions would be appreciated.

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim mime As NotesMIMEEntity
Dim m As String
Set db = s.CurrentDatabase
s.ConvertMIME = False ‘ Do not convert MIME to rich text
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While Not(doc Is Nothing)
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
m = “Content type:” & Chr(9) & _
mime.ContentType & Chr(13) & _
“Content subtype:” & Chr(9) & _
mime.ContentSubType & Chr(13) & _
“Character set:” & Chr(9) & _
mime.Charset & Chr(13) & _
“Encoding:” & Chr(9) & Chr(9) & _
mime.Encoding
Messagebox mime.ContentAsText,, “Content as text”
Else
Messagebox “Not MIME”,, doc.GetItemValue(“Subject”)(0)
End If
Set doc = dc.GetNextDocument(doc)
Wend
s.ConvertMIME = True ‘ Restore conversion
End Sub