helpf.pro
Регистрация

v8.2 УП:

Ermak
24.12.2015 12:02Прочитано: 957

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

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

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

Код 1C v 8.х
 Профиль = Новый ИнтернетПочтовыйПрофиль;
   
    //Пропишем параметры соединения
    //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";
        Почта.Послать(Сообщение);
        Сообщить(ТекущийФайл.Имя + " " + "успешно отправлено на адрес:" + " " + СтруктураАрхива.Отправитель);
   
    КонецЦикла;
   
    Почта.Отключиться();
Yandex
Возможно, вас также заинтересует
Реклама на портале
Ermak
24.12.2015 17:17Ответ № 1
Вопрос закрыт!
Подсказка: Щелникни по Имени пользователя напротив ответа, и тем самым покажешь, что сообщение адресовано ему.
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.