LotusScript：getItemValue("Body") 将段落分成几行

Question

getItemValue("Body") 没有正确检索电子邮件的段落，而是将其分成几行。

我的邮件正文如下：

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut nec consectetur odio. Donec vulputate ultrices facilisis. Curabitur finibus, eros ut malesuada efficitur, lacus felis suscipit neque, at ultricies odio felis imperdiet metus. Sed non tellus ut metus elementum efficitur auctor ut urna. Aliquam placerat justo eu elementum elementum. Integer sodales iaculis ligula et sollicitudin. Vivamus vel quam ornare, tristique lorem at, interdum erat. Nam pharetra dui vel orci semper posuere. Suspendisse bibendum, eros non maximus tristique, dui dolor imperdiet erat, ut feugiat dolor urna eu urna. Maecenas sed quam dolor. Phasellus ultricies, mi eu efficitur mattis, massa massa pretium arcu, non placerat massa nunc eu nisi. Nullam sit amet tempus nisl.

但我最终明白了：

我的代码如下：

    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim varValues As Variant
    Dim valueBody As String
    
    If Not ws.Currentdocument Is Nothing Then
        Set doc = ws.Currentdocument.Document
    Elseif Not session.DocumentContext Is Nothing Then
        Set doc = session.DocumentContext
    End If

    varValues = doc.GetItemValue( "Body" )
    MessageBox varValues(0)

如何在一篇文章中检索一段话？

感谢您的帮助！

Answer 1

在你的帮助下，我找到了解决办法。只需使用 NotesRichTextItem 中的 GetUnformattedText()，如下例所示：

    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument
    Dim varValues As Variant
    Dim valueBody As String
    Dim rtItem  As NotesRichTextItem
    
    If Not ws.Currentdocument Is Nothing Then
        Set doc = ws.Currentdocument.Document
    Elseif Not session.DocumentContext Is Nothing Then
        Set doc = session.DocumentContext
    End If

    Set rtItem = doc.GetFirstItem("Body")
    varValues = rtItem.GetUnformattedText()
    MessageBox varValues

感谢您的帮助

Answer 2

您可以获取字段作为NotesRichTextItem字段，然后使用GetformattedText或GetUnformattedText方法检索富文本字段的内容。

LotusScript：getItemValue("Body") 将段落分成几行

LotusScript: getItemValue("Body") splits paragraphs into several lines

lotus-notes

lotus-domino

lotusscript