• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

Реник

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

Возникла проблема следующего характера: отправляю почту через 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 597
310
BIT
159
"Recipients"
в этом поле должны быть все получатели: кому, копия, слепая копия.
 

garrick

Lotus Team
26.10.2009
1 349
151
BIT
164
Одно время у нас был какой-то антивирус для Domino, который не позволял скриптом создавать документы в mail.box :) ...просто инфа
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!