.

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

EN - English CN - 中文 JP - 日本語 DE - Deutsch FR - Français BR - Português RU - Pу́сский IT - Italiano IN - हिन्दी ES - Español KR - 한국어 ID - Indonesia NL - Dutch TR - Türkçe SA - العربية SE - Svenska NO - Norsk PL - Polski TH - ไทย DK - Dansk MY - Malay PH - Filipino GR - Ελληνικά FI - Suomi IL - עברית IE - Gaeilge CZ - Čeština UA - Українська RO - Română VN - Tiếng Việt BD - বাংলা HU - Magyar

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 bodyArray = doc.GetItemValue("Body")
 Messagebox bodyArray(0),, "Text of Body"
End Sub

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 Set item = doc.GetFirstItem("Body")
 If item Is Nothing Then Exit Sub
 Messagebox item.Text,, "Text of Body"
End Sub

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 Set item = doc.GetFirstItem("Body")
 If item Is Nothing Then Exit Sub
 Messagebox item.Values,, "Text of Body"
End Sub

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As NotesItem

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 Set item = doc.GetFirstItem("Body")
 If item Is Nothing Then Exit Sub
 Messagebox item.Abstract(32, True, False),, "Text of Body"
End Sub

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 Set rti = doc.GetFirstItem("Body")
 If rti Is Nothing Then Exit Sub
 Messagebox rti.GetFormattedText(True, 20),, "Text of Body"
End Sub

Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then Exit Sub
 Set doc = dc.GetFirstDocument
 Set rti = doc.GetFirstItem("Body")
 If rti Is Nothing Then Exit Sub
 Messagebox rti.GetUnformattedText(),, "Text of Body"
End Sub

See Also

Getting text renditions of rich text items in LotusScript classes

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help