%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