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 stream As NotesStream Set db = s.CurrentDatabase s.ConvertMIME = False ' Do not convert MIME to rich text Set dc = db.UnprocessedDocuments Set doc = dc.GetFirstDocument If Not(doc Is Nothing) Then Set mime = doc.GetMIMEEntity If Not(mime Is Nothing) Then If mime.ContentType = "image" And _ mime.ContentSubtype = "gif" Then Set stream = s.CreateStream pathname$ = "c:\lotus\notes\data\temp.gif" If Not stream.Open(pathname$, "binary") Then Messagebox pathname$,, "Open failed" Goto ExitSub End If Call mime.GetContentAsBytes(stream) Call stream.Close(); Else Messagebox "Not GIF",, doc.GetItemValue("Subject")(0) End If Else Messagebox "Not MIME",, doc.GetItemValue("Subject")(0) End If End If ExitSub: s.ConvertMIME = True ' Restore conversion End Sub
See Also