Examples: GetNthHeader method
- This agent displays the Subject header of a MIME entity.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim mime As NotesMIMEEntity
Dim header As NotesMIMEHeader
Set db = s.CurrentDatabase
s.ConvertMIME = False
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
If Not(doc Is Nothing) Then
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
Set header = mime.GetNthHeader("Subject")
If header Is Nothing Then
subject$ = "No subject"
Else
subject$ = header.GetHeaderVal
End If
Messagebox mime.ContentAsText,, subject$
Else
Messagebox "Not MIME",, _
doc.GetItemValue("Subject")(0)
End If
End If
s.ConvertMIME = True ' Restore conversion
End Sub
- This agent displays all the Received headers of a MIME entity.
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim mime As NotesMIMEEntity
Dim header As NotesMIMEHeader
Set db = s.CurrentDatabase
s.ConvertMIME = False
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
If Not(doc Is Nothing) Then
Set mime = doc.GetMIMEEntity
If Not(mime Is Nothing) Then
For i = 1 To 99
Set header = mime.GetNthHeader("Received", i)
If header Is Nothing Then Exit For
Messagebox header.GetHeaderVal,, "Received # " & i
Next
Else
Messagebox "Not MIME",, _
doc.GetItemValue("Subject")(0)
End If
End If
s.ConvertMIME = True ' Restore conversion
End Sub
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.