0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 467
1

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

05.08.2015, 07:41. Показов 6375. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток.
Пользователи поставили такая задачу.
Есть общий ящик, на который валится почта. Необходимо сделать, чтобы по получении на общий ящик в ответ улетало сообщение что Ваше письмо получено и настраиваемое бла-бла-бла.. Есть такая функция в лотусе вообще?? а то я что то не нашел..
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.08.2015, 07:41
Ответы с готовыми решениями:

Формы и отчеты OOO.Base
Подскажите пожалуйста, как реализовать. Дана определенная форма, где забиваются данные по договору,...

Перевод кода с VB на OOo Basic (OOoCalc)
Добрый день! Есть работающий кусок кода на VB, который производит сравнение значений ячеек в...

Автоответчик
У меня есть вот такой код: (Это автоответчик, пишу слово Error, выдает ответ line1 line2 (Вы скорее...

Автоответчик
всем привет! нужен автоответчик для сайта. то есть допустим пользоатель зарегистрировался, отправил...

7
0 / 0 / 0
Регистрация: 06.12.2016
Сообщений: 812
05.08.2015, 08:12 2
В Lotus Notes есть LotusScript - можно вообще чего хочешь сделать по приходу письма, хоть "format c:"
0
0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 467
05.08.2015, 08:27 3
)) да это понятно что напрограммировать можно)) я про стандартные функции спрашивал.. может где откапывал.. ну а раз нет.. ща напишем)
0
0 / 0 / 0
Регистрация: 06.12.2016
Сообщений: 812
05.08.2015, 10:08 4
Не, почтовыми правилами такое не настроить. Только кодить.
0
0 / 0 / 0
Регистрация: 12.10.2007
Сообщений: 522
05.08.2015, 10:16 5
Цитата Сообщение от swyatogor
Доброго времени суток.
Есть такая функция в лотусе вообще?? а то я что то не нашел..
Если *Нет на работе* не подходит, то переписать агент в п/я.
0
0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 467
05.08.2015, 11:29 6
в том и дело что нужен именно не нет на работе..
короче самому проще сделать несколько строк кода)


LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
%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 Nothyng
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
0
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
06.08.2015, 11:34 7
уже не раз упоминал


Цитата Сообщение от swyatogor
Chr(13)
это возврат каретки - не перевод! CHR(10) - перевод строки...
ну это так...
вопрос будет в корректности получения месюги сформированной таким способом - форматирование будет...
0
0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 467
06.08.2015, 19:22 8
нормально всё.. проверено и не раз).. эт я так.. по быстрому..в рт поле можно было тупо вписать всё и средствами самого рт поля

LotusScript
1
2
3
4
5
Call rtbody.AppendText("какая нить строка текста")
Call rtbody.AddNewLine
Call rtbody.AppendText("какая нить строка текста")
Call rtbody.AddNewLine
Call rtbody.AppendText("какая нить строка текста")
было бы тож самое)


--- Добавлено 7 авг 2015. Первое сообщение размещено 7 авг 2015 ---

кстати да.. лучше так не делать :

LotusScript
1
mailDoc.SMTPOriginator = "Служба персонала"
ругаться будет страшно релей и почту не отправит.. нуно там что-нить ангельское.. желательно реальный адрес)
0
06.08.2015, 19:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.08.2015, 19:22
Помогаю со студенческими работами здесь

Автоответчик VK
Часто надоедают диалоги типа &quot;привет, как дела?&quot;. Хочу написать автоответчик. Подскажите, как это...

автоответчик
Пожалуйста помогите написать программу на Паскале, которая осуществляет &quot;общение&quot; с компьютером,...

Каким должен быить массив для вставки в Range Ooo
Есть область Set oRange = xlWbk.getCellRangeByName(&quot;A1:B3&quot;) в нее нужно вставить массив с...

Розробка макросів мовою OOo Basic для обробки табличних даних
В ячейки A1-A20 ввести действительные числа в диапазоне от -100 до 100 (с помощью функции...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru