IBM Lotus Domino Designer 8.5
  Versionen 8.5 und 8.5.1

Examples: GetMIMEEntity method

This agent gets the MIME content from an item.

Sub Initialize

  Dim s As New NotesSession

  Dim db As NotesDatabase

  Dim dc As NotesDocumentCollection

  Dim doc As NotesDocument

  Dim mime 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

      m = "Content type:" & Chr(9) & _

      mime.ContentType & Chr(13) & _

      "Content subtype:" & Chr(9) & _

      mime.ContentSubType & Chr(13) & _

      "Character set:" & Chr(9) & _

      mime.Charset & Chr(13) & _

      "Encoding:" & Chr(9) & Chr(9) & _

      mime.Encoding

      Messagebox m,, doc.GetItemValue("Subject")(0)

      Messagebox mime.Headers,, "Headers"

      Messagebox mime.ContentAsText,, "Content as text"

    Else

      Messagebox "Not MIME",, doc.GetItemValue("Subject")(0)

    End If

    Set doc = dc.GetNextDocument(doc)

  Wend

  s.ConvertMIME = True ' Restore conversion

End Sub

---

Bibliothek | Unterstützung | Nutzungsbedingungen |

Letzte Aktualisierung: Montag, 5. Oktober 2009