LOTUSSCRIPT/COM/OLE CLASSES
Examples: GetEntityAsText method
1. This agent gets the headers and content of a "text/plain" MIME entity and saves them to a TXT file.
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 = "text" And _
mime.ContentSubType = "plain" Then
Set stream = s.CreateStream
pathname$ = "c:\lotus\notes\data\temp.txt"
If Not stream.Open(pathname$, "us-ascii") Then
Messagebox pathname$,, "Open failed"
Goto ExitSub
End If
Call mime.GetEntityAsText(stream)
Else
Messagebox "Not plain text",, _
doc.GetItemValue("Subject")(0)
End If
Else
Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)
End If
End If
s.ConvertMIME = True ' Restore conversion
ExitSub:
End Sub
2. This agent gets the headers and content of a "text/plain" MIME entity and saves them to a TXT file, including only the From and Subject headers.
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 = "text" And _
mime.ContentSubType = "plain" Then
Set stream = s.CreateStream
pathname$ = "c:\lotus\notes\data\temp.txt"
If Not stream.Open(pathname$, "us-ascii") Then
Messagebox pathname$,, "Open failed"
Goto ExitSub
End If
Dim filters(2) As String
filters(1) = "From"
filters(2) = "Subject"
Call mime.GetEntityAsText(stream, filters, True)
Call stream.Close()
Else
Messagebox "Not plain text",, _
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
GetEntityAsText method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary