title: Lotus Notes: Getting "Object Variable Not Set" in the multiple doclink code below
body: <p>The snippet of code below is that, the mail is first prepared, then a doclink is added for every document, and in the end the mail is being sent.</p>
  
  <p>I am getting object variable not set at doc.SentTo = addresses.abbreviated</p>
  
  <pre><code>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) &amp; "  " )
      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)
  </code></pre>
  
  <p>Help will be greatly appreciated.</p>