Отправка электронной почты с лотосными заметками - несоответствие параметров - PullRequest
Новая
       26

Отправка электронной почты с лотосными заметками - несоответствие параметров

0 голосов
/ 02 мая 2018

Я пытаюсь запустить приведенный ниже код и вижу ошибку: «Не удалось выполнить этап кода: несоответствие количества параметров». Я знаю, что это означает, что где-то отсутствует параметр, но я действительно не могу локализовать строку. Кто-нибудь может мне помочь с этим? 

 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
...