Как в 1С отправить email через SMTP нескольким получателям?

[Odineski]

программная отправка на почту mail письма. распиши что должен в профиле отправителя писать, скелет письма, хочу 3 получателям это письмо отправить

[Odin — Одинэсник]

Для программной отправки письма на почту с использованием 1С:Предприятие, необходимо правильно настроить профиль отправителя и сформировать само письмо.

### Профиль отправителя

В профиле отправителя должны быть указаны следующие параметры:

1С (Код)

1C Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.АдресСервераSMTP = "smtp.mail.ru"; // Адрес SMTP сервера Профиль.ПортSMTP = 465; // Порт для SSL Профиль.ИспользоватьSSLSMTP = Истина; // Использовать SSL Профиль.ПользовательSMTP = "ваш_email@mail.ru"; // Ваш email Профиль.ПарольSMTP = "ваш_пароль"; // Ваш пароль Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина; // Защищенная аутентификация

1 2 3 4 5 6 7 8

1C Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.АдресСервераSMTP = "smtp.mail.ru"; // Адрес SMTP сервера Профиль.ПортSMTP = 465; // Порт для SSL Профиль.ИспользоватьSSLSMTP = Истина; // Использовать SSL Профиль.ПользовательSMTP = "ваш_email@mail.ru"; // Ваш email Профиль.ПарольSMTP = "ваш_пароль"; // Ваш пароль Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина; // Защищенная аутентификация

### Скелет письма

Для отправки письма трем получателям, можно использовать следующий код:

1С (Код)

1C Процедура ОтправитьПисьмо() // Создаем почтовый профиль Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.АдресСервераSMTP = "smtp.mail.ru"; Профиль.ПортSMTP = 465; Профиль.ИспользоватьSSLSMTP = Истина; Профиль.ПользовательSMTP = "ваш_email@mail.ru"; Профиль.ПарольSMTP = "ваш_пароль"; Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина; // Создаем сообщение Сообщение = Новый ИнтернетПочтовоеСообщение; Сообщение.Отправитель = "ваш_email@mail.ru"; Сообщение.Тема = "Тема вашего письма"; // Добавляем получателей Сообщение.Получатели.Добавить("получатель1@mail.ru"); Сообщение.Получатели.Добавить("получатель2@mail.ru"); Сообщение.Получатели.Добавить("получатель3@mail.ru"); // Добавляем текст сообщения Сообщение.Тексты.Добавить("Текст вашего письма", ТипТекстаПочтовогоСообщения.ПростойТекст); // Отправляем сообщение Почта = Новый ИнтернетПочта; Почта.Подключиться(Профиль); Почта.Послать(Сообщение); Почта.Отключиться(); КонецПроцедуры

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

1C Процедура ОтправитьПисьмо()     // Создаем почтовый профиль     Профиль = Новый ИнтернетПочтовыйПрофиль;     Профиль.АдресСервераSMTP = "smtp.mail.ru";     Профиль.ПортSMTP = 465;     Профиль.ИспользоватьSSLSMTP = Истина;     Профиль.ПользовательSMTP = "ваш_email@mail.ru";     Профиль.ПарольSMTP = "ваш_пароль";     Профиль.ТолькоЗащищеннаяАутентификацияSMTP = Истина;       // Создаем сообщение     Сообщение = Новый ИнтернетПочтовоеСообщение;     Сообщение.Отправитель = "ваш_email@mail.ru";     Сообщение.Тема = "Тема вашего письма";          // Добавляем получателей     Сообщение.Получатели.Добавить("получатель1@mail.ru");     Сообщение.Получатели.Добавить("получатель2@mail.ru");     Сообщение.Получатели.Добавить("получатель3@mail.ru");       // Добавляем текст сообщения     Сообщение.Тексты.Добавить("Текст вашего письма", ТипТекстаПочтовогоСообщения.ПростойТекст);       // Отправляем сообщение     Почта = Новый ИнтернетПочта;     Почта.Подключиться(Профиль);     Почта.Послать(Сообщение);     Почта.Отключиться(); КонецПроцедуры

### Объяснение кода

1. **Профиль отправителя**: Указываются параметры SMTP-сервера, порт, логин и пароль.
2. **Создание сообщения**: Создается объект сообщения, задается отправитель, тема и получатели.
3. **Текст сообщения**: Добавляется текст письма.
4. **Отправка**: Подключение к почтовому серверу и отправка сообщения.

Этот код позволяет отправить письмо на три указанных адреса. Не забудьте заменить ваш_email@mail.ru и ваш_пароль на свои реальные данные.

[Автор]

Сообщения