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

swyatogor

Well-Known Member
Lotus team
24.02.2014
476
13
40
почти Челябинск
#1
Доброго времени суток.
Пользователи поставили такая задачу.
Есть общий ящик, на который валится почта. Необходимо сделать, чтобы по получении на общий ящик в ответ улетало сообщение что Ваше письмо получено и настраиваемое бла-бла-бла.. Есть такая функция в лотусе вообще?? а то я что то не нашел..
 

garrick

Well-Known Member
Lotus team
26.10.2009
867
68
Москва
#2
В Lotus Notes есть LotusScript - можно вообще чего хочешь сделать по приходу письма, хоть "format c:" :)
 

swyatogor

Well-Known Member
Lotus team
24.02.2014
476
13
40
почти Челябинск
#3
)) да это понятно что напрограммировать можно)) я про стандартные функции спрашивал.. может где откапывал.. ну а раз нет.. ща напишем)
 

swyatogor

Well-Known Member
Lotus team
24.02.2014
476
13
40
почти Челябинск
#6
в том и дело что нужен именно не нет на работе..
короче самому проще сделать несколько строк кода)

Код:
%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
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 438
351
homepage.mac.com
#7
уже не раз упоминал это возврат каретки - не перевод! CHR(10) - перевод строки...
ну это так...
вопрос будет в корректности получения месюги сформированной таким способом - форматирование будет...
 

swyatogor

Well-Known Member
Lotus team
24.02.2014
476
13
40
почти Челябинск
#8
нормально всё.. проверено и не раз).. эт я так.. по быстрому..в рт поле можно было тупо вписать всё и средствами самого рт поля
Код:
Call rtbody.AppendText("какая нить строка текста")
Call rtbody.AddNewLine
Call rtbody.AppendText("какая нить строка текста")
Call rtbody.AddNewLine
Call rtbody.AppendText("какая нить строка текста")
было бы тож самое)
 
кстати да.. лучше так не делать :
Код:
mailDoc.SMTPOriginator = "Служба персонала"
ругаться будет страшно релей и почту не отправит.. нуно там что-нить ангельское.. желательно реальный адрес)