![]() |
|
Создание встречи (собрания) из 1С ЗУП КОРП в Microsoft Outlook | ☑ | ||
---|---|---|---|---|
0
ANDRU48
04.09.19
✎
09:13
|
Письма ЗУП КОРП 3.1 отправляет письма на нужный адрес электронной почты.
Теперь хочу сделать, чтобы по адресу электронной почты у человека в календаре создавал встречу (собрание) на определенную дату/время с определенным содержанием. Возможно ли такое сделать в ЗУП 3.1 КОРП? |
|||
1
Asmody
04.09.19
✎
09:36
|
https://1c-programmer-blog.ru/programmirovanie/rabota-s-outlook-v-1s.html
или прикрепляй к письму файлик ics https://wiki2.org/en/ICalendar+Milds |
|||
2
ANDRU48
04.09.19
✎
09:57
|
я так понимаю, пока что есть:
Функция ПолучитьПрофиль() Профиль = Новый ИнтернетПочтовыйПрофиль; // SMTP сервер Профиль.АдресСервераSMTP = "smtp.pupkin.com"; // Порт SMTP сервера Профиль.ПортSMTP = 25; // POP3 сервер Профиль.АдресСервераPOP3 = "pop.pupkin.com"; // Порт POP3 сервера Профиль.ПортPOP3 = 110; // Пароль к почтовому ящику Профиль.Пароль = "pass"; // Пароль пользователя для SMTP сервера Профиль.ПарольSMTP = "pass"; // Логин пользователя Профиль.Пользователь = "vasya"; // Логин пользователя для SMTP сервера Профиль.ПользовательSMTP = "vasya"; // Время ожидания выполнения операции в секундах Профиль.ВремяОжидания = 50; Возврат Профиль; КонецФункции Почта = Новый ИнтернетПочта; Попытка Почта.Подключиться(ПолучитьПрофиль()); Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; Заголовки=Почта.ПолучитьЗаголовки() Если Заголовки.Количество()=0 Тогда Предупреждение("В почтовом ящике нет входящих сообщений!", ,"Нет сообщений"); КонецЕсли; // Загрузка сообщений в массив Сообщения = Почта.Выбрать(Истина,Заголовки); Для каждого Сообщение Из Сообщения Цикл СтрокаТП = ТабличноеПолеИнтернетПочта.Добавить(); СтрокаТП.Дата = Сообщение.ДатаОтправления; СтрокаТП.ОтКого = Сообщение.Отправитель.Пользователь + " <" + Сообщение.Отправитель.Адрес + "> "; СтрокаТП.Тема = Сообщение.Тема; // Перебираем получателей сообщения Для каждого Получатель Из Сообщение.Получатели Цикл КомуВходящие = КомуВходящие + Получатель.Пользователь + " <" + Получатель.Адрес + "> "; КонецЦикла; СтрокаТП.Кому = КомуВходящие; // Перебираем тексты сообщения Для каждого ТекстСообщения Из Сообщение.Тексты Цикл ТекстВходящие = ТекстВходящие + ТекстСообщения.Текст; КонецЦикла; СтрокаТП.Текст = ТекстВходящие; // Перебираем вложения письма Для каждого Вложение Из Сообщение.Вложения Цикл Вложение.Данные.Записать(Вложение.Name); СправочникВложения.РеквизитВложение = новый ХранилищеЗначения(Новый ДвоичныеДанные(Вложение.Name)); СправочникВложения.ИмяВложения=Вложение.Name; КонецЦикла; КонецЦикла; // отключение Почта.Отключиться(); но тогда нужно хранить логин пароли всех пользователей в 1С и по ком это скорее всего будет не быстро |
|||
3
Asmody
04.09.19
✎
10:04
|
(2) Ты отправляешь или получаешь почту в 1С?
|
|||
4
ANDRU48
04.09.19
✎
10:31
|
(3) я отправляю из 1С ЗУП КОРП кому-нибудь от системной учетной записи, хочу письмо отправить и также сделать запись календарь в Оутлук у того, кому отправляю
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |