Решено Автоответчик (не ooo)

Тема в разделе "Lotus - Администрирование", создана пользователем swyatogor, 6 авг 2015.

  1. swyatogor

    swyatogor Lotus team
    Lotus team

    Регистрация:
    24 фев 2014
    Сообщения:
    432
    Симпатии:
    10
    Доброго времени суток.
    Пользователи поставили такая задачу.
    Есть общий ящик, на который валится почта. Необходимо сделать, чтобы по получении на общий ящик в ответ улетало сообщение что Ваше письмо получено и настраиваемое бла-бла-бла.. Есть такая функция в лотусе вообще?? а то я что то не нашел..
     
  2. garrick

    garrick Lotus team
    Lotus team

    Регистрация:
    26 окт 2009
    Сообщения:
    773
    Симпатии:
    52
    В Lotus Notes есть LotusScript - можно вообще чего хочешь сделать по приходу письма, хоть "format c:" :)
     
  3. swyatogor

    swyatogor Lotus team
    Lotus team

    Регистрация:
    24 фев 2014
    Сообщения:
    432
    Симпатии:
    10
    )) да это понятно что напрограммировать можно)) я про стандартные функции спрашивал.. может где откапывал.. ну а раз нет.. ща напишем)
     
  4. garrick

    garrick Lotus team
    Lotus team

    Регистрация:
    26 окт 2009
    Сообщения:
    773
    Симпатии:
    52
    Не, почтовыми правилами такое не настроить. Только кодить.
     
  5. susinmn

    susinmn Well-Known Member

    Регистрация:
    16 окт 2007
    Сообщения:
    530
    Симпатии:
    8
    Если *Нет на работе* не подходит, то переписать агент в п/я.
     
  6. swyatogor

    swyatogor Lotus team
    Lotus team

    Регистрация:
    24 фев 2014
    Сообщения:
    432
    Симпатии:
    10
    в том и дело что нужен именно не нет на работе..
    короче самому проще сделать несколько строк кода)

    Код (LotusScript):
    %REM
    Agent FeedBack
    Created Aug 6, 2015 by я
    Description: Comments for Agent
    %END REM

    Option Public
    Option Declare
     
     
     
     
    Sub Initialize
    Dim s As New NotesSession
    Dim doc As NotesDocument
    Dim dc As NotesDocumentCollection
    Dim db As NotesDatabase
    Dim mailDoc As NotesDocument
    Dim rtbody As NotesRichTextItem
    Dim body As String
    Print "Пришло письмо"
    body = "Добрый день." + Chr(13) + _
    "Спасибо, что откликнулись на нашу вакансию." + Chr(13) + _
    "Ваше резюме получено и будет рассматриваться в течение 3-х рабочих дней." + Chr(13) + _
    "Если данные Вашего резюме соответствуют требованиям по имеющимся вакансиям, то специалисты с Вами свяжутся." + Chr(13) + _
    " " + Chr(13) + _
    "В ином случае Ваше резюме останется в базе данных и при появлении других вакансий мы обязательно свяжемся." + Chr(13) + _
    " " + Chr(13) + _
    " " + Chr(13) + _
    "С уважением," + Chr(13) + _
    "Служба персонала" + Chr(13) + _
    "организация" + Chr(13) + _
    "тел 1" + Chr(13) + _
    "тел 2"
    Set db = s.Currentdatabase
    Set dc = db.Unprocesseddocuments
     
    If dc.Count <1 Then Exit Sub
    Set doc = dc.Getfirstdocument()
    Do Until doc Is Nothing
    Set mailDoc = db.Createdocument()
    Set rtbody = New NotesRichTextItem(mailDoc, "Body")
    mailDoc.Form = "memo"
    mailDoc.Principal = "Служба персонала"
    mailDoc.SMTPOriginator = "Служба персонала"
    mailDoc.DisplaySent = "Служба персонала"
    mailDoc.Subject = "Автоматический ответ"
    mailDoc.SendTo = doc.from
    Call rtbody.AppendText(body)
    Call mailDoc.Send(False)
    Print "Отписались"
    Call s.Updateprocesseddoc(doc)
    Set doc = dc.Getnextdocument(doc)
    Loop
     
    End Sub
     
  7. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    уже не раз упоминал
    это возврат каретки - не перевод! CHR(10) - перевод строки...
    ну это так...
    вопрос будет в корректности получения месюги сформированной таким способом - форматирование будет...
     
  8. swyatogor

    swyatogor Lotus team
    Lotus team

    Регистрация:
    24 фев 2014
    Сообщения:
    432
    Симпатии:
    10
    нормально всё.. проверено и не раз).. эт я так.. по быстрому..в рт поле можно было тупо вписать всё и средствами самого рт поля
    Код (LotusScript):
    Call rtbody.AppendText("какая нить строка текста")
    Call rtbody.AddNewLine
    Call rtbody.AppendText("какая нить строка текста")
    Call rtbody.AddNewLine
    Call rtbody.AppendText("какая нить строка текста")
     
     
    было бы тож самое)
    [DOUBLEPOST=1438967386,1438967209][/DOUBLEPOST]кстати да.. лучше так не делать :
    Код (LotusScript):
    mailDoc.SMTPOriginator = "Служба персонала"
    ругаться будет страшно релей и почту не отправит.. нуно там что-нить ангельское.. желательно реальный адрес)
     
Загрузка...

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