Отослать сообщение на почту

@Ermak27 · Регистрация: 16.01.2013

Студворк — интернет-сервис помощи студентам

Подскажите как можно решить эту проблему
Я так понимаю в папки есть архив а в структуру он не добавлен из за этого выдает ошибку, как можно сделать чтобы отправились только те архивы которые прописаны в структуре

{Форма.Форма.Форма(702)}: Ошибка при вызове метода контекста (Добавить)
Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);
по причине:
Ошибка доступа к файлу 'C:\Users\goga\Desktop\Реестры\Новая папка'

1C
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
56
57
58
59
60
61
62
63
64
65
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    
    //Пропишем параметры соединения
    //ip адрес или имя SMTP сервера
    Профиль.АдресСервераSMTP = "192.168.2.50"; 
    
    //Порт SMTP сервера
    Профиль.ПортSMTP = 587;
    
    //Имя пользователя почтового ящика
    Профиль.Пользователь = "1234@mail.ru";
    
    //Пароль доступа к почтовому ящику
    Профиль.Пароль = "buh100_TA";
    
    //При необходимости добавляем аутентификацию
    Профиль.АутентификацияSMTP     = СпособSMTPАутентификации.Login;
    Профиль.ПарольSMTP           = "buh100_TA";
    Профиль.ПользовательSMTP     = "1234@mail.ru"; 
    
    // Создаем объект для работы с почтой
    Почта = Новый ИнтернетПочта;
    
    //Выполняем подключение, согласно указанный параметров
    Попытка
        Почта.Подключиться(Профиль);
    Исключение
        //При подключении возникла ошибка, сообщим
        Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
        Возврат;
    КонецПопытки;
    
    //Создаем новое письмо (сообщение)
    
    СоответствиеФайловАрхивам = Новый Соответствие;
    СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "78978@mail.ru"));
    СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "5675@mail.ru"));
    СоответствиеФайловАрхивам.Вставить("lah.zip", Новый Структура("Архив, Отправитель","sberbank_lah.zip", "234@mail.ru"));
 
    МассивФайлов = НайтиФайлы(Файл, "*.zip");
    
    Для каждого ТекущийФайл Из МассивФайлов Цикл
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 2);
        ПрефиксФайла = НРег(ПрефиксФайла);
        
        СтруктураАрхива = СоответствиеФайловАрхивам[ПрефиксФайла];
        Если СтруктураАрхива <> Неопределено Тогда
            
            ФайлВложения=СтруктураАрхива.Архив;
            АдресПолучателя=СтруктураАрхива.Отправитель;
            Сообщение.Получатели.Добавить(АдресПолучателя);
            
        КонецЕсли; 
 
        Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);
        Сообщение.Тема = "Реестры" + " " + ТекущийФайл.Имя;
        Сообщение.Отправитель = "1234@mail.ru";
        Почта.Послать(Сообщение);
        Сообщить(ТекущийФайл.Имя + " " + "успешно отправлено на адрес:" + " " + СтруктураАрхива.Отправитель);
    
    КонецЦикла;
    
    Почта.Отключиться();

@Напосарам · 24.12.2015, 13:51

Сообщение от Ermak27

Ошибка доступа к файлу 'C:\Users\goga\Desktop\Реестры\Новая папка'

Может просто доступа нет к файлам?

А этот код:

1C
1
2
3
4
5
Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);
        Сообщение.Тема = "Реестры" + " " + ТекущийФайл.Имя;
        Сообщение.Отправитель = "1234@mail.ru";
        Почта.Послать(Сообщение);
        Сообщить(ТекущийФайл.Имя + " " + "успешно отправлено на адрес:" + " " + СтруктураАрхива.Отправитель);

может надо ставить в условие?

@Ermak27 · 24.12.2015, 15:09 **[ТС]**

Напосарам, в какое например?

@Напосарам · 24.12.2015, 15:32

Ermak27, ну условие у тебя только одно. На сколько я понял, письмо должно отправляться тогда когда "СтруктураАрхива" не равно Неопределено и тогда нам будет известно значение "ФайлВложения"

Сообщение от Ermak27

ФайлВложения=СтруктураАрхива.Архив;

а у тебя в коде получается что если "СтруктураАрхива = Неопределено", то без определения сразу пытаемся вложить файл "ФайлВложения", а "ФайлВложения" неопределен. Если закомментировать строку:

1C
1
Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);

то будет ругаться, что не указан получатель при отправке.

@Ermak27 · 24.12.2015, 15:49 **[ТС]**

Напосарам, если за комментировать тогда выдаст ошибку

{Форма.Форма.Форма(706)}: Ошибка при вызове метода контекста (Послать)
Почта.Послать(Сообщение);
по причине:
Не указан ни один получате

@Dethmontt · 24.12.2015, 15:51

Сообщение от Напосарам

то будет ругаться, что не указан получатель при отправке.

Сообщение от Ermak27

Не указан ни один получате

сбылось предсказание

@Напосарам · 24.12.2015, 15:56

Надо так:

1C
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
 
Н = 0;
Для каждого ТекущийФайл Из МассивФайлов Цикл
        Н = Н + 1;
        Сообщение = Новый ИнтернетПочтовоеСообщение;
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 2);
        ПрефиксФайла = НРег(ПрефиксФайла);
        
        СтруктураАрхива = СоответствиеФайловАрхивам[ПрефиксФайла];
        Если СтруктураАрхива <> Неопределено Тогда
            
            ФайлВложения=СтруктураАрхива.Архив;
            АдресПолучателя=СтруктураАрхива.Отправитель;
            Сообщение.Получатели.Добавить(АдресПолучателя);
            Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);
            Сообщение.Тема = "Реестры" + " " + ТекущийФайл.Имя;
            Сообщение.Отправитель = "1234@mail.ru";
            Почта.Послать(Сообщение);
            Сообщить(ТекущийФайл.Имя + " " + "успешно отправлено на адрес:" + " " + СтруктураАрхива.Отправитель);
        Иначе
            Сообщить("Ошибка, при отправки письма номер " + Н);
        КонецЕсли; 
 
    
    
    КонецЦикла;

@Ermak27 · 24.12.2015, 16:02 **[ТС]**

Dethmontt, чем смеяться лучше бы подсказали

@Напосарам · 24.12.2015, 16:03

Ermak27, ну так я что делаю? я же написал куда вставить надо.

@Ermak27 · 24.12.2015, 16:07 **[ТС]**

Напосарам, Выдала ошибку

Ошибка, при отправки письма номер 1
Ошибка, при отправки письма номер 2
Ошибка, при отправки письма номер 3
sberbank_ptz.zip успешно отправлено на адрес: 5675@mail.ru
Ошибка, при отправки письма номер 5
Ошибка, при отправки письма номер 6

А должен был отправить еще на адрес 78978@mail.ru, так как архив один и тот же что и на этот адрес 5675@mail.ru, в структуре так прописано. Почему тогда не послал?

@Напосарам · 24.12.2015, 16:18

Ermak27, а что делают эти строки, чет я не понял?

1C
1
2
3
ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 2);
        ПрефиксФайла = НРег(ПрефиксФайла);

@Dethmontt · 24.12.2015, 16:19

Сообщение от Ermak27

СоответствиеФайловАрхивам = Новый Соответствие;
* * СоответствиеФайловАрхивам.Вставить("ptz. zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "78978@mail.ru"));
* * СоответствиеФайловАрхивам.Вставить("ptz. zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "5675@mail.ru"));
* * СоответствиеФайловАрхивам.Вставить("lah. zip", Новый Структура("Архив, Отправитель","sberbank_lah.zip", "234@mail.ru"));

Потому что вот это ЛАЖА!!!

Добавлено через 1 минуту
В "СоответствиеФайловАрхивам" будет всего две записи

1C
1
2
СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "5675@mail.ru"));
СоответствиеФайловАрхивам.Вставить("lah.zip", Новый Структура("Архив, Отправитель","sberbank_lah.zip", "234@mail.ru"));

Первая вставка:

1C
1
СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "78978@mail.ru"));

Перезатирается НИЖЕ

1C
1
СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "5675@mail.ru"));

@Ermak27 · 24.12.2015, 16:23 **[ТС]**

Dethmontt, а как тогда сделать чтобы отправлял на два адреса?

@Dethmontt · 24.12.2015, 16:28

1C
1
СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", "78978@mail.ru"));

1C
1
2
3
4
Получатели = Новый Массив;
Получатели.Добавить("78978@mail.ru");
Получатели.Добавить("5675@mail.ru");
СоответствиеФайловАрхивам.Вставить("ptz.zip", Новый Структура("Архив, Отправитель","sberbank_ptz.zip", Получатели));

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Если СтруктураАрхива <> Неопределено Тогда
            
            ФайлВложения=СтруктураАрхива.Архив;
            АдресПолучателя=СтруктураАрхива.Отправитель;
            //Отправление нескольким получателям
            Для каждого Получатель из СтруктураАрхива.Отправитель Цикл
                Сообщение.Получатели.Добавить(Получатель);
            КонецЦикла;
            Сообщение.Вложения.Добавить(Файл + ?(Прав(Файл,1)="","","") + ФайлВложения);
            Сообщение.Тема = "Реестры" + " " + ТекущийФайл.Имя;
            Сообщение.Отправитель = "1234@mail.ru";
            Почта.Послать(Сообщение);
            Сообщить(ТекущийФайл.Имя + " " + "успешно отправлено на адрес:" + " " + СтруктураАрхива.Отправитель);
        Иначе
            Сообщить("Ошибка, при отправки письма номер " + Н);
        КонецЕсли;

Добавлено через 1 минуту
Ну и это нужно переделать

1C
1
СоответствиеФайловАрхивам.Вставить("lah.zip", Новый Структура("Архив, Отправитель","sberbank_lah.zip", "234@mail.ru"));

1C
1
2
3
Получатели2 = Новый Массив;
Получатели2.Добавить("234@mail.ru");
СоответствиеФайловАрхивам.Вставить("lah.zip", Новый Структура("Архив, Отправитель","sberbank_lah.zip", Получатели2));

Добавлено через 2 минуты

Не по теме:

Ermak27, когда ты уже научишься сам думать?

@Ermak27 · 24.12.2015, 16:32 **[ТС]**

Dethmontt, спасибо большое! Вот учусь

@Напосарам · 24.12.2015, 16:33

Ermak27,

и вот это

1C
1
2
3
4
 
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 2);
        ПрефиксФайла = НРег(ПрефиксФайла);

я бы заменил на это:

1C
1
ПрефиксФайла =  Сред(ТекущийФайл.Имя, СтрНайти(ТекущийФайл.Имя, "_") + 1)

ну это чисто мое мнение.

@Dethmontt · 24.12.2015, 16:50

Сообщение от Напосарам

я бы заменил на это:

Не по теме:

Я бы заменил весь этот КОД и автора этого КОДа - тоже чисто мое мнение :D

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	24.12.2015, 15:09 [ТС]
	Напосарам, в какое например? 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	24.12.2015, 15:49 [ТС]
	Напосарам, если за комментировать тогда выдаст ошибку {Форма.Форма.Форма(706)}: Ошибка при вызове метода контекста (Послать) Почта.Послать(Сообщение); по причине: Не указан ни один получате 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	24.12.2015, 16:02 [ТС]
	Dethmontt, чем смеяться лучше бы подсказали 0

@Напосарам 10 / 10 / 1 Регистрация: 04.05.2011 Сообщений: 143
	24.12.2015, 16:03
	Ermak27, ну так я что делаю? я же написал куда вставить надо. 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	24.12.2015, 16:07 [ТС]
	Напосарам, Выдала ошибку Ошибка, при отправки письма номер 1 Ошибка, при отправки письма номер 2 Ошибка, при отправки письма номер 3 sberbank_ptz.zip успешно отправлено на адрес: 5675@mail.ru Ошибка, при отправки письма номер 5 Ошибка, при отправки письма номер 6 А должен был отправить еще на адрес 78978@mail.ru, так как архив один и тот же что и на этот адрес 5675@mail.ru, в структуре так прописано. Почему тогда не послал? 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	24.12.2015, 16:23 [ТС]
	Dethmontt, а как тогда сделать чтобы отправлял на два адреса? 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	24.12.2015, 16:32 [ТС]
	Dethmontt, спасибо большое! Вот учусь 0

Отослать сообщение на почту

Решение