Lotus notes lotusnotes:get"；对象变量未设置"；在下面的多文档链接代码中

下面的代码片段是，首先准备邮件，然后为每个文档添加doclink，最后发送邮件

我得到的对象变量未设置为doc.SentTo=addresses.缩写

Dim s As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim i As Integer
Dim view As NotesView

Set s = New NotesSession
Set db = s.CurrentDatabase
Set view = db.GetView("View")
Set doc = New NotesDocument(db)
Dim addresses As NotesName
i=0
'- prepare mail
doc.SendTo = addresses.abbreviated
doc.Form = "Memo"
Set rtitem = New NotesRichTextItem(doc, "Body")
Call rtitem.AppendText("Balance")

Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
    Set addresses = New NotesName(doc.Manager(0)) 
    If addresses.abbreviated = "" Then
    i = i + 1
Else 
    '- Append descriptive text, link and new line
    Call rtitem.appendtext(doc.Subject(0) & "  " )
    Call rtitem.appenddoclink(doc, "Link")
    Call rtitem.addnewline(1)
    i = i + 1
End If
Set doc = view.GetNextDocument(doc)
Wend
'- send mail
Call doc.Send (True)

---

非常感谢您的帮助。

我发现这里有两个问题。一个是地址还没有被设置为对象。另一种情况是，您已经将doc变量用于要发送的电子邮件和迭代一组文档

更改这些行：

Set doc = New NotesDocument(db)
Dim addresses As NotesName

关于这个，或者类似的东西：

Set mailDoc = New NotesDocument(db)
Dim addresses As New NotesName("email recipient user name")

mailDoc.SendTo = addresses.abbreviated
mailDoc.Form = "Memo"
Set rtitem = New NotesRichTextItem(mailDoc, "Body")

---

另外，将底部的doc变量更改为mailDoc:）

这是因为此时您还没有将地址设置为任何值。。。。