LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim dc As NotesDocumentCollection Dim doc As NotesDocument Dim mime As NotesMIMEEntity Dim child 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 If mime.ContentType = "multipart" Then If mime.Preamble = "" Then m$ = "No preamble" Else m$ = mime.Preamble End If Set child = mime.GetFirstChildEntity While Not(child Is Nothing) m$ = m$ & child.BoundaryStart m$ = m$ & child.ContentAsText m$ = m$ & child.BoundaryEnd Set child = child.GetNextSibling Wend Messagebox m$,, doc.GetItemValue("Subject")(0) Else ' if not multipart Messagebox mime.ContentAsText,, _ doc.GetItemValue("Subject")(0) End If Else ' if not MIME Messagebox "Not MIME",, doc.GetItemValue("Subject")(0) End If Set doc = dc.GetNextDocument(doc) Wend s.ConvertMIME = True ' Restore conversion End Sub
See Also