Отправка Почты Через Mail.box

  • Автор темы Реник
  • Дата начала
Р

Реник

#1
Всем доброго времени суток.

Возникла проблема следующего характера: отправляю почту через mail.box, если просто ставить "Кому", то письмо корректно приходит адресату. Если же заполнять "Кому" + "Копия", то сотруднику , указанному в поле "Кому" письмо приходит, а вот тому, что указан в копии - нет. В логах сервера видно, что письмо отправлено "Кому", про того,кто в копии ничего не написано.

Вот код процедуры отправки почты:

Sub sendmemofrommailbox
On Error GoTo Err_process
Dim mailbox_db As NotesDatabase
Dim mailbox_doc As NotesDocument, doc As NotesDocument
Dim bb As NotesItem
Dim nid As String

Set mailbox_db = me.m_session.Getdatabase(server,"mail.box")
Dim rtitem As NotesRichTextItem , rtitem2 As NotesRichTextItem
Set mailbox_doc = mailbox_db.Createdocument()

Call me.m_noteUIMemo.Document.Replaceitemvalue("PostedDate", Now)
Set rtitem = mailbox_doc.CreateRichTextItem("Body")

'Set rtitem2 = New NotesRichTextItem(me.m_noteUIMemo.Document, "Body")
Call me.m_noteMemo.Save(False, false)
nid = me.m_noteMemo.Noteid
Set doc = me.m_session.Currentdatabase.Getdocumentbyid(nid)
If Not (doc Is nothing) Then
Set bb = doc.Getfirstitem("Body")
End if


With mailbox_doc
call.Replaceitemvalue("Form", "Memo")
call.Replaceitemvalue("PostedDate", Now)
'Call.Removeitem("DeliveredDate")
call.Replaceitemvalue("From", me.m_session.Currentdatabase.Title)
call.Replaceitemvalue("Principal", me.m_session.Currentdatabase.Title)
call.Replaceitemvalue("Recipients", doc.EnterSendTo)
call.Replaceitemvalue("Subject", doc.Subject)
'call.Replaceitemvalue("Body", doc.Body)
Call rtitem.Appendrtitem(bb)
call.Replaceitemvalue("SendTo", me.m_noteUIMemo.Document.EnterSendTo)
Call .Replaceitemvalue("CopyTo", me.m_noteUIMemo.Document.EnterCopyTo)
Call mailbox_doc.Save(False, False)
'Call mailbox_doc.Send(true)
End With

Exit Sub
Err_process:
MsgBox {Class "UIMemoDocument" method "sendmemofrommailbox" Error:}+CStr(Error)+{ ErrCode:}+CStr(Err)+{ ErrLine:}+cStr(Erl) , 16, "Error"
Exit Sub
End Sub



Подскажите, в чём может быть проблема.
 

savl

Lotus team
28.10.2011
2 131
102
#2
"Recipients"
в этом поле должны быть все получатели: кому, копия, слепая копия.
 

garrick

Lotus team
26.10.2009
894
61
#3
Одно время у нас был какой-то антивирус для Domino, который не позволял скриптом создавать документы в mail.box :) ...просто инфа