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

如何解决LotusScript：getItemValue("Body") 将段落分成几行

getItemValue("Body") 无法正确检索电子邮件的段落，而是将其拆分为多行。

我的电子邮件正文如下：

Lorem ipsum dolor 坐 amet，consectetur adipiscing 精英。 Ut nec consectetur odio。 Donec vulputate ultrices facilisis。 Curabitur finibus,eros utmalesuada efficitur,lacus felis suscipit neque,at ultricies odio felis imperdiet metus。 Sed nontellus 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,mieu efficitur mattis,massa massa pretium arcu,non placerat massa nunc eu nisi。 Nullam 坐 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)

如何一次检索一个段落？

感谢您的帮助！

解决方法

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

,

在您的帮助下，我找到了解决方案。只需要使用 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

感谢您的帮助