Question

下面的代码读取莲花笔记中的电子邮件并将其插入Excel工作表。但是，我想阅读Lotus notes数据库并复制其内容并将其作为富文本粘贴到word文档中。

我认为这行代码需要修改。

Set nitem = .GetFirstItem("Body")

最好的方法是什么？

Public Sub Lotus_Notes_Current_Email4()

Dim NSession As Object 'NotesSession
Dim NUIWorkSpace As Object 'NotesUIWorkspace
Dim NUIdoc As Object 'NotesUIDocument
Dim nitem As Object 'NotesItem
Dim lines As Variant

Set NSession = CreateObject("Notes.NotesSession")
Set NUIWorkSpace = CreateObject("Notes.NotesUIWorkspace")

Set NUIdoc = NUIWorkSpace.CurrentDocument
If Not NUIdoc Is Nothing Then
    With NUIdoc.Document
        Set nitem = .GetFirstItem("Body")
        If Not nitem Is Nothing Then
            lines = Split(nitem.Text, vbCrLf)
            Sheets(1).Activate
            Range("H8").Resize(UBound(lines) + 1, 1).Value = Application.WorksheetFunction.Transpose(lines)
        End If
    End With
Else
    MsgBox "Lotus Notes is not displaying an email"
End If

Set NUIdoc = Nothing
Set NUIWorkSpace = Nothing
Set NSession = Nothing

End Sub

Answer 1

您的假设不正确。您的整个脚本需要重写。

如果要复制视图的内容，则需要先打开NotesView对象。您当前的代码是打开NotesDocument对象。要获取NotesView，您可能希望使用CurrentView属性NotesUIWorkspace来获取NotesUIView对象，然后使用该对象View属性。

一旦你拥有了NotesView对象，那么我猜你可能想要使用columns属性来获取数据，但还有其他方法可以解决这个问题。但是，无论你做什么，你都必须自己处理数据的格式化。

复制lotus notus数据库视图并粘贴到word文档中

1 个答案: