Р
Реник
Всем доброго времени суток.
Возникла проблема следующего характера: отправляю почту через 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
Подскажите, в чём может быть проблема.
Возникла проблема следующего характера: отправляю почту через 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
Подскажите, в чём может быть проблема.