Обращение к реквизиту справочника из модуля формы
Здравствуйте, я новичок в 1с, простите заранее на глупые вопросы.
Есть модуль формы Документа. Написал Процедуру при нажатии на кнопку, отправлять данные на email.
Вот только нужно, чтобы получатель был НЕ фиксированный в коде : Письмо.Получатели.Добавить(****@mail.ru), а чтобы подставлялся из реквизита справочника (Справочник Email). В справочнике есть следующие реквизиты: EmailАдрес, ФИО
Так вот, не получается сделать ссылку на реквизит справочника из модуля формы. Буду благодарен за помощь
Есть модуль формы Документа. Написал Процедуру при нажатии на кнопку, отправлять данные на email.
Вот только нужно, чтобы получатель был НЕ фиксированный в коде : Письмо.Получатели.Добавить(****@mail.ru), а чтобы подставлялся из реквизита справочника (Справочник Email). В справочнике есть следующие реквизиты: EmailАдрес, ФИО
Так вот, не получается сделать ссылку на реквизит справочника из модуля формы. Буду благодарен за помощь
По теме из базы знаний
- Конфигурация "Весовая ред. 3.0" для Платформы 8.3
- Поздравление с Новым Годом! (Управляемые формы, авто год)
- Условное оформление элементов форм в пользовательском режиме 1С (управление видимостью и доступностью элементов форм)
- Множественные дополнительные реквизиты в УТ 11.5 (11.4)
- Блокировка элементов справочников от изменений
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(8)
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "***@mail.ru";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить( "Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "***@mail.ru";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "***@mail.ru";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить( "Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "***@mail.ru";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
(8) Вот так выглядит
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "mail@mail.ru";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить("Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "mail@mail.ru";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "mail@mail.ru";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить("Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "mail@mail.ru";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
(8)
(8)(8) Вот так выглядит
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "mail@mail.ru";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить("Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "mail@mail.ru";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
Показать
(8)(8)
Вот так выглядит
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "mail@mail.ru";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить("Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "mail@mail.ru";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
Показать
(8)
Вот так выглядит
&НаСервере
Процедура SMTPОтправка()
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПользовательSMTP = "***";
Профиль.ПарольSMTP = "***";
Профиль.ИспользоватьSSLSMTP = Истина;
Профиль.ПортSMTP = 465;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст = Письмо.Тексты.Добавить("Текст");
Текст.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = "В бухгалтерию";
Письмо.Отправитель = "***";
Письмо.ИмяОтправителя = "1c";
ПолучательПисьма = Объект.Email.EmailАдес;
Письмо.Получатели.Добавить(ПолучательПисьма);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Соединение с почтовым сервером установлено");
Исключение
Сообщить("Не удалось подключиться к серверу по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено в бухгалтерию!");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот