Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 10:42

отправка E-mail

Автор mashencev_anton, 22 янв 2013, 00:58

0 Пользователей и 1 гость просматривают эту тему.

mashencev_anton

Доброго времени суток. Такая загвоздка, в созданной форме отправки почты есть  поле адресат, как сделать так, чтобы адрес почты выбирался из ранее созданного реквизита СПРАВОЧНИКА КЛИЕНТЫ?

sertak

Создайте реквизит с типом Справочник.Клиенты, киньте его на форму. Разверните дерево полей нового реквизита и найдите нужное, которое содержит E-Mail. Киньте его тоже на форму. При выборе клиента поле E-Mail заполнится автоматом.

mashencev_anton

Цитата: sertak от 22 янв 2013, 10:27
Создайте реквизит с типом Справочник.Клиенты, киньте его на форму. Разверните дерево полей нового реквизита и найдите нужное, которое содержит E-Mail. Киньте его тоже на форму. При выборе клиента поле E-Mail заполнится автоматом.

    //для получения доступа к набору свойств для соединения с сервером
    //создадим новый объект
    Профиль = Новый ИнтернетПочтовыйПрофиль;
   
    //Пропишем параметры соединения
    //ip адрес или имя SMTP сервера
    Профиль.АдресСервераSMTP = "smtp.yandex.ru";
   
    //Порт SMTP сервера
    Профиль.ПортSMTP = 587;

   
    //Имя пользователя почтового ящика
    Профиль.Пользователь = "&&&&&&&&&@yandex.ru";
   
    //Пароль доступа к почтовому ящику
    Профиль.Пароль = "***********";
   
    //При необходимости добавляем аутентификацию
    Профиль.АутентификацияSMTP     = СпособSMTPАутентификации.ПоУмолчанию;
    Профиль.ПарольSMTP           = "**********";
    Профиль.ПользовательSMTP     = "&&&&&&&&&&&@yandex.ru";
   
    // Создаем объект для работы с почтой
    Почта = Новый ИнтернетПочта;
   
    //Выполняем подключение, согласно указанный параметров
    Попытка
        Почта.Подключиться(Профиль);
    Исключение
        //При подключении возникла ошибка, сообщим
        Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
        Возврат;
    КонецПопытки;
   
    //Создаем новое письмо (сообщение)
    Сообщение = Новый ИнтернетПочтовоеСообщение;
   
    //Указываем отправителя
    Сообщение.Отправитель = "&&&&&&&&&@yandex.ru";
   
    //Заполняем получателя
    Сообщение.Получатели.Добавить("ong1990@yandex.ru");
   
       
    //Непосредственно отправка сообщения
    Почта.Послать(Сообщение);
   
    //После отправки закрываем соединение
    Почта.Отключиться();

как в коде это сделать

Dethmontt

Это же нужно сделать на форме
Изменить эту строку
Сообщение.Получатели.Добавить(ПеременнаяСПочтойКлиента);
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

mashencev_anton

Цитата: Dethmontt от 22 янв 2013, 12:00
Это же нужно сделать на форме
Изменить эту строку
Сообщение.Получатели.Добавить(ПеременнаяСПочтойКлиента);
как это сделать

sertak

1. При каком событии выполняется приведенный вами ранее код?
2. Реквизит формы Адресат имеет тип "Справочник.Клиенты"?
3. Справочник Клиенты имеет реквизит ПочтовыйАдрес?

mashencev_anton

Цитата: sertak от 22 янв 2013, 14:21
1. При каком событии выполняется приведенный вами ранее код?
2. Реквизит формы Адресат имеет тип "Справочник.Клиенты"?
3. Справочник Клиенты имеет реквизит ПочтовыйАдрес?

1.код выполняется при нажатии кнопки отправить
2.Реквизит АДРЕСАТ имеет тип СправочникСсылки.Клиенты
3. Справочник Клиенты имеет реквзит E_mail.

sertak

Если все так, то надо просто заменить код
Сообщение.Получатели.Добавить(ПеременнаяСПочтойКлиента);
на
Сообщение.Получатели.Добавить(Адресат.E_mail);

mashencev_anton

Цитата: sertak от 22 янв 2013, 18:00
Если все так, то надо просто заменить код
Сообщение.Получатели.Добавить(ПеременнаяСПочтойКлиента);
на
Сообщение.Получатели.Добавить(Адресат.E_mail);
Как объявить перем Адресат??

sertak

В 1С переменную можно объявить при присваивании, например, СтрПерем = "Строковая перменная".
Но у вас есть реквизит формы Адресат. Он и есть та самая переменная, из которой мы берем адрес. А заполняется она при выборе пользователем значения.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск