复制莲花注意事项数据库视图并粘贴到word文档中

Question

下面的代码读取莲花笔记中的电子邮件并将其插入到Excel表单中。不过，我想阅读莲花笔记数据库并复制其内容并将其作为富文本粘贴到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属性来获取数据，但还有其他方法可以解决这个问题。但是，不管你做什么，你都必须自己处理数据的格式。