vb.net - 使用 lotus notes 发送电子邮件 - 参数计数不匹配

Question

我正在尝试运行下面的代码，但看到错误：“无法执行代码阶段：参数计数不匹配。”。我知道这意味着某处缺少参数，但我真的无法定位该行。任何人都可以帮助我吗？

 Dim SaveIt As Boolean
 Dim Maildb As Object 
 Dim UserName As String 
 Dim MailDoc As Object 
 Dim AttachME As Object 
 Dim Session As Object 
 Dim EmbedObj As Object 
 Dim DataBaseName As Object
 Dim ServerName As Object
 Dim DataBase As Object

Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
DataBaseName = ""
ServerName = ""

  Maildb = Session.GetDataBase(ServerName, DataBaseName)
  If Maildb.ISOPEN = True Then
       'Already open for mail
  Else
      Maildb.OPENMAIL
  End If
 'Set up the new mail document

 MailDoc = Maildb.CREATEDOCUMENT

 MailDoc.Form ("Memo")
 MailDoc.SendTo = Recipient
 MailDoc.Subject = Subject
 MailDoc.Body = Body
 MailDoc.Save(True, True)
 'MailDoc.SAVEMESSAGEONSEND = True


 If Attachment <> "" Then
     AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
     EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
     MailDoc.CREATERICHTEXTITEM ("Attachment")
 End If

 'Send the document
 MailDoc.PostedDate=Now() 

 MailDoc.SEND(False, Recipient)

 'Clean Up
 Maildb = Nothing
 MailDoc = Nothing
 AttachME = Nothing
 Session = Nothing
 EmbedObj = Nothing

标签： vb.netemaillotus-notes