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
Véase también
GetEntityAsText method
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa