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

Тема в разделе "Lotus - Программирование", создана пользователем Реник, 28 янв 2014.

Наш партнер Genesis Hackspace
  1. Реник

    Реник Well-Known Member

    Регистрация:
    8 авг 2009
    Сообщения:
    97
    Симпатии:
    0
    Всем доброго времени суток.

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



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

    savl Well-Known Member
    Команда форума Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.086
    Симпатии:
    155
    "Recipients"
    в этом поле должны быть все получатели: кому, копия, слепая копия.
     
  3. garrick

    garrick Well-Known Member
    Lotus team

    Регистрация:
    26 окт 2009
    Сообщения:
    786
    Симпатии:
    55
    Одно время у нас был какой-то антивирус для Domino, который не позволял скриптом создавать документы в mail.box :) ...просто инфа
     
Загрузка...
Похожие Темы - Отправка Почты Через
  1. Мыш
    Ответов:
    9
    Просмотров:
    1.564
  2. olga13
    Ответов:
    16
    Просмотров:
    3.719
  3. Experimentator
    Ответов:
    1
    Просмотров:
    3.954
  4. Experimentator
    Ответов:
    1
    Просмотров:
    2.642
  5. makaset
    Ответов:
    13
    Просмотров:
    4.253

Поделиться этой страницей