Автоматическая архивация баз данных 1С 8.2, 8.1 и 7.7

01.05.23

База данных - Архивирование (backup)

Автоматическая архивация баз данных 1С 8.2, 8.1 и 7.7 без установки дополнительного ПО. Удаление устаревших архивов, дублирование ежемесячное в другой каталог, отправка на e-mail письма о работе скрипта (каждый раз или после аварийного завершения), максимально подробный лог-файл. С обновления от 14.07.2010 поддержка 1С 8.2 !!!

Скачать файлы

Наименование Файл Версия Размер
Archivator1Cv8_v2
.vbs 32,58Kb
4135
.vbs 32,58Kb 4135 Скачать

Ничего сложно нет. Кто работает со скриптами все поймет. Для остальных созданы комметарии к наиболее важным блокам программы.

Основные принципы работы:

    *  каждая база 1С архивируется в отдельную папку;
    *  в этой самой "отдельной папке" накапливаются все архивы баз 1С;
    *  при наступлении окончания срока хранения архива(ов) - автоматически удаляются из  соответствующих папок;
    *  перед выгрузкой баз закрываются все локально запущенные экземпляры 1С версий 7.7, 8.1 и 8.2;
    *  ведётся максимально подробный лог;
    *  в случае АВАРИЙНОГО ЗАВЕРШЕНИЯ работы скрипта от имени заданного пользователя (напр. администратора) отправляется предупреждающее сообщение на указанный адрес. Есть возможность вложить в сообщение файл (напр. подробный лог, записываемый при архивации);
    *  работает с ФАЙЛОВЫМИ базами 1С v8.1, v8.2 и любыми базами 1С v7.7.

Весь процесс архивирования выполняется только средствами самой Windows и 1С (без привлечения дополнительного ПО).

Опубликована ОБНОВЛЕННАЯ ВЕРСИЯ v2 от 06.07.2010!!!

ИЗМЕНЕНИЯ в новой версии:

    *  Теперь все необходимые переменные и константы вынесены в начало скрипта;
    *  Сам код стал более информативным (добавлены новые комментарии);
    *  Лог-файл также стал более информативным, каждая операция подробно отражена;
    *  Добавлена функция дополнительного ежемесячного резервного копирования (дублирования) архивных файлов в отдельный каталог (раз в месяц дублируется последний файл). Если файл уже был ранее скопирован, то повторное копирование не происходит (дабы избежать беcсмысленных операций), о чем выводится сообщение в логе;
    *  После операции ежемесячного дублирования в лог выводится результат операции (напр. имя скопированного файла);
    *  После удаления устаревших файлов в лог записывается информация о кол-ве удаленных объектов;
    *  Появилась возможность управления состояниями процессов удаления файлов, дополнительного резервного копирования и отправки e-mail. Теперь при помощи констант можно ВКЛ. или ВЫКЛ. данные процессы;
    *  Проверяет наличие свободного места на диске для архивных копий и записывает в лог;
    *  Исправлена ошибка при работе с базами 1С v 7.7, при которой не выполнялось удаление устаревших файлов.

С  ОБНОВЛЕНИЯ от 14.07.2010 поддержка 1С 8.2 !!!

С  ОБНОВЛЕНИЯ от 24.07.2010 добавлена возможность отправки сообщений о каждом завершении работы скрипта на e-mail. При помощи константы EmailEndScript: если True - будет отправляться извещение об окончании работы скрипта, если False - не будет!

Еще новая опция. Определить наличие зарегистрированного пользователя в системе 1С. Константа User = True - пользователь есть (логин+пароль), User = False - в системе нет определенных пользователей (при этом имя и пароль запрашивать не будет).

Скрипт редактируем в блокноте, указавая свои данные. Что и где ввести см. на скриншотах!

В последней редакции исправлена некорректная работа с сетевыми путями при создании каталогов на удаленном компьютере.

Скачивайте! Буду рад, если кому-то помог!

P.S.
Планирую продолжить развитие темы.
Что будет в новой версии?
Информирование пользователей домена о начале регламентных работ.
Возможность принудительного завершения процессов 1С на всех компьютерах домена.
Отправки e-mail с компьютера, на котором не установлен локальный SMTP-сервис/сервер.
и конечно работа с SQL-версиями.
Идей много... Дело за малым... Найти ВРЕМЯ!

Автоматическая Архивация БД 1С 8.2 выгрузка БД файловая база данных лог архива e-mail при завершении без дополнительного ПО удаление устаревших архивов открытый код скрипта

См. также

Архивирование базы 7.7

Архивирование (backup) Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Программа, написанная на Delphi7 для автоматизации сохранения БД.

1 стартмани

02.01.2017    15353    12    mt111    21    

0

Автоматическое сохранение базы штатными средствами

Архивирование (backup) Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Всё началось с того, что я лентяй. Когда пришел на работу в первый раз, мне сообщили, что уже лет 10 делают сохранение  базы каждый день в конце рабочего дня. Из этого вытекает, что  если кто-то решит подтянуть свои хвосты, то мне приходится сидеть на работе тоже. Честно, мягко говоря, меня это не особо радовало... Порывшись на просторах инета, было принято решение сделать "автосохранялку". Как уже говорилось, "Я ЛЕНИВЫЙ", поэтому мне было попросту лень ставить всякие утилиты и программки, реализовал все штатными средствами.

1 стартмани

02.12.2016    16309    5    mt111    9    

3

Простые вещи: Делаем архив базы 1С за 30 секунд

Архивирование (backup) Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Абонемент ($m)

Архив файловой базы 1С можно сделать за 30 секунд. Делаем предварительные настройки.

1 стартмани

09.12.2014    38904    12    denisk37    72    

27

Бэкапер-1С: резервные копии бухгалтерии (1С 7.7 - 8.3)

Архивирование (backup) Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Абонемент ($m)

Бэкапер-1С: версия 1.5.0. Появилась гибкая система удаления старых копий! А также: автоматический поиск баз, архивация документов, встроенный архиватор 7-Zip, целостность создаваемых копий, шифрование, отправка отчетов на почту и каталогизация. Ещё никогда резервное копирование не делалось так просто.

1 стартмани

16.05.2013    74300    638    alexey.karmanov    181    

84

Архивация баз средствами командной строки Windows и архиватора Izarc, также скрипт для Linux.

Архивирование (backup) Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Архивация баз данных 1С 7.7 (при небольшом редактировании и версий 1С 8.х) средствами командной строки и архиватора Izarc Архивация каталога базы данных при размещении на Linux (smb-сервере к примеру) средствами linux.

1 стартмани

11.05.2012    13936    16    slava81    5    

3

Архивация 1сv7

Архивирование (backup) OpenConf Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Обработка при помощи WinRar архивирует каталог с БД.

1 стартмани

06.04.2012    12834    34    l2d808    20    

5

Архивация списка баз 1С:Предприятие 7.7

Архивирование (backup) Оперативный учет 7.7 Бухгалтерский учет 7.7 Расчет 7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Быстрая архивация списка баз 1С:Предприятие 7.7 в файл реестра.

1 стартмани

19.02.2012    12603    26    alexkrv    4    

3
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
99. wolf2012x 05.10.11 23:03 Сейчас в теме
Очень нужна программа для архивирования 8.2 с учетом "висящих" пользователей...
100. karbofos 06.10.11 09:33 Сейчас в теме
Поставил прогу на 8.2. Все прекрасно работает. Бухи довольны, что теперь не надо все делать ручками. Автору респект и уважуха. А от бухов отдельное спасибо.
101. Bassar 26.10.11 10:50 Сейчас в теме
Выдает ошибку при запуске:
Сценарий: Пусть к файлу
Строка:601
Символ: 6
Ошибка: Устройство не готово
Код: 80070015
Источник: CDO.Message.1
122. Naton 3 23.01.12 19:58 Сейчас в теме
(101) Bassar, У меня аналогичный результат.
Вы разобрались?
102. roskmv 611 26.10.11 11:36 Сейчас в теме
Проверьте константу
Const EmailAddAttachment = "F:\\SBS BackUp.Log" 'вложение в письмо (ВНИМАНИЕ двойной \\)

тут должно быть указано место расположения вашего Log файла.
Еще раз обращаю ваше внимание на вот этот момент - ВНИМАНИЕ двойной \\ !!!
103. zorgus06 27.10.11 14:20 Сейчас в теме
Автору респект. интересно было бы скульную версию потестить...
104. artem19rus 10.11.11 09:40 Сейчас в теме
133. пользователь 09.02.12 17:16
Сообщение было скрыто модератором.
...
105. artem19rus 10.11.11 10:35 Сейчас в теме
А если имя пользователя нет?
106. Strannik99 14.11.11 13:33 Сейчас в теме
Может пропустил,
1. что будет если в базе висит пользователь ?
2. Работает ли на win2003standart ? (может кто использовал уже )
107. margo2007 15 15.11.11 07:06 Сейчас в теме
Хотелось бы посмотреть на эту обработку..
108. Strannik99 16.11.11 11:17 Сейчас в теме
Роман Спасибо
Снимаю вопрос 1 в 106, скрипт останавливает 1с8 и 1с77
Продолжаем разбираться дальше
109. Strannik99 17.11.11 10:30 Сейчас в теме
Ещё раз спасибо.
После прописки необходимых путей скрипт замечательно работает на 2003 сервере, архивирую 3 базы, 2 -8.1, одна 8.2. Запуск архивации (скрипта) по планировщику.
Вопрос, я так понял скрипт может почту слать только с ЛОКАЛЬНОГО smtp ? Или можно заставит подключиться к внешнему?
110. AndreyMurom 23.11.11 08:41 Сейчас в теме
Автору большой плюс, пробовал и на 7.7, и на 8.1, и на 8,2. Все работает прекрасно, архивирует отлично. Тестировал на файловой версии.
111. malina-da 24.11.11 15:11 Сейчас в теме
Спасибо, очень пригодилась в работе !
112. trustgros 9 27.11.11 23:33 Сейчас в теме
все работает.. даже с sql версией.. только шеф поставил задачу составлять имена файлов в формате гггг.мм.дд, чтобы файлы лучше сортировались.может кто сталкивалсо?
113. mirkomp 30.11.11 00:35 Сейчас в теме
А в удаленном доступе будет работать? Win 7/
114. Asaqura 05.12.11 01:39 Сейчас в теме
каким образом закрываются локально запущенные экземпляры 1С ?
115. Трактор 1246 15.12.11 12:12 Сейчас в теме
Вызывают вопросы строки

strLogFileName = "BackUp1CBases.Log"
strLogFileName = ScriptPath + strLogFileName

По идее переменная strLogFileName должна содержать тоже что и EmailAddAttachment. Иначе почта не отправится.
162. binagal 13.03.13 05:39 Сейчас в теме
(115) Трактор, как Вы решили проблему с EmailAddAttachment?
116. h0201 21.12.11 15:48 Сейчас в теме
добавить бы уведомление пользователям с открытой сессией о завершении работы + таймаут минуты две на сохранение и выход из программы.
117. пользователь 21.12.11 17:14
Сообщение было скрыто модератором.
...
118. xklos 29.12.11 10:11 Сейчас в теме
Доброго времени суток Автору большой плюс, пробовал и на 7.7, и на 8.0, и на 8.1, и на 8,2. Все работает прекрасно, архивирует отлично. Тестировал на файловой версии, разные модификации вроде нареканий не вызывает большой плюс :)
119. Pashikuss 29.12.11 11:15 Сейчас в теме
Замечательная штучка
120. webester 26 10.01.12 05:34 Сейчас в теме
Пасиба, забрал. Колебаюсь между самостоятельной прогой за 350 рубликов которая еще и на фтп бэкапы ложит и твоим скриптом.
121. baronzelan4 20.01.12 09:21 Сейчас в теме
Поставил прогу на 8.2. Все прекрасно работает. Бухи довольны, что теперь не надо все делать ручками. Автору респект и уважуха. А от бухов отдельное спасибо.
123. Andro_sas 29.01.12 14:09 Сейчас в теме
Отличный скрипт) уже неделю полировал, настраивал под свои ИБ. Огроменное спасибо - Все работает как часы!
124. Владимир Зайцев 29.01.12 23:57 Сейчас в теме
Вполне приемлема, но ошибка осталась!
125. ReLock 38 30.01.12 00:03 Сейчас в теме
Спасибо. Хороший скрипт! Побольше бы таких!
126. Konstatine 7 01.02.12 11:05 Сейчас в теме
Подскажите...
Необходимо прописать BackUpFolder и ReserveFolder как сервер.
Пишу: "\\192.168.0.100\d$\1\", а программа создает такие же папки на этом компьютере!
Хотя из командной строки обращаюсь к серверу - все нормально.
Помогите.
127. gollog 3 01.02.12 11:49 Сейчас в теме
Озадачился и я этой проблемой.
Имеем 40 адресов, 70 серваков, 270 баз 1С разного вида и рода.
Надо настроить бэкапы.
Бэкапы должны копироваться на сетевые хранилища. Желательно это все администрировать удаленно.

Сравнил я проги:
Хранитель http://www.backupper.ru/products.htm
Эфектор http://effector.com.ua

(глянул мельком http://www.handybackup.ru/help_5_5_1.shtml)

По сути это просто копировальщики файлов, умеют копировать файлы по шаблону 1С,
умеют посылать сообщение о результатах бэкапа.
Все эти проги не смогут сбэкапить 1С, если в нее кто-то зашел монопольно. Выкидывать юзеров они не умеют.
152. OscarTT 02.08.12 14:05 Сейчас в теме
(127)
"Озадачился и я этой проблемой.
Имеем 40 адресов, 70 серваков, 270 баз 1С разного вида и рода.
Надо настроить бэкапы.
Бэкапы должны копироваться на сетевые хранилища. Желательно это все администрировать удаленно.

Сравнил я проги:
Хранитель http://www.backupper.ru/products.htm
Эфектор http://effector.com.ua

(глянул мельком http://www.handybackup.ru/help_5_5_1.shtml)

По сути это просто копировальщики файлов, умеют копировать файлы по шаблону 1С,
умеют посылать сообщение о результатах бэкапа.
Все эти проги не смогут сбэкапить 1С, если в нее кто-то зашел монопольно. Выкидывать юзеров они не умеют."

Эфектор (http://effector.com.ua) умеет, но только в платной версии.
128. roskmv 611 01.02.12 12:38 Сейчас в теме
Добрый день.
Спасибо за комментарии.
Протестировал, и действительно, есть проблема с созданием папки на сервере по сети. Сейчас вношу корректировки. Так что, через пару часов сможете скачать обновленную версию.

Жду других замечаний, если таковые будут. А также принимаются пожелания.
129. Konstatine 7 01.02.12 14:02 Сейчас в теме
Спасибо.
Прошу написать когда все будет готово!
130. roskmv 611 01.02.12 15:01 Сейчас в теме
Новая версия доступна для скачивания.
Тестируйте!
131. Svetlana_67 07.02.12 12:56 Сейчас в теме
Отзывы хорошие. захотелось скачать и поробовать, т.к. проблемы возникают время от времени и надеятся на сознательность бухгалтеров не приходиться.
132. Mudrii_Gankster 08.02.12 13:17 Сейчас в теме
одно пока не понятно, если я правильно понимаю это скрипт - обработка, запускается под 1с, но для выгрузки базы нужен монопольный доступ. Получается коллапс для выгрузки нужна монополия, а запустить без входа в 1с нельзя.

Либо она работает тупо копированием файлов и архивированием в архив? если так то думаю Скуль точно не будет работать.
135. Strannik99 09.02.12 23:02 Сейчас в теме
(132) Mudrii_Gankster,
скрипт запускается самостоятельно.Сначала находит запущеные процессы 1с и "убивает" их, потом запускает конфигуратор 1с и штатно создаёт копии баз в указаные папки. Причём у меня на такое создание уходит времени в два раза меньше нежели запускать вручную.
144. Necytij 11.04.12 20:31 Сейчас в теме
(135) Strannik99,
В 2 раза меньше времени???
У вас наверное дикие проблемы с компом. Процедура выполняет те же функции, за исключением открытия конфигурации и показа интерфейса. Ну разве что еще не надо ждать пока процесс 1Сок завершится, а быстро убивает его, но это все-таки некорректно, в первую очередь надо решать проблему "выключения" 1Ски штатными административными мерами.
145. Strannik99 16.04.12 22:37 Сейчас в теме
(144) Necytij,
не в два конечно, но быстрее.
Скрипт трудится месяца 4, пока проблем не замечал.
Правда ещё раз в неделю тестирование запускается.
В логе по результатам тестирования тоже вроде нет ничего криминального
вин 2003, стандарт. копируются 3 базы две 8.1 и 8.2, базы файловые, терминальных сессий нет.
134. пользователь 09.02.12 17:22
Сообщение было скрыто модератором.
...
136. bvk 18 13.02.12 00:09 Сейчас в теме
Все вроде делает, а в конце выскакивает ошибка строка 604, символ 6, Системе не удалось найти указаный путь. Где это строка 604? В Блокноте считать запаришься.:)
137. bvk 18 13.02.12 00:16 Сейчас в теме
нашел, в блокноте оказывается можно перейти к строке, а там что-то с почтой связано.
138. velichutin 12 21.02.12 14:58 Сейчас в теме
У меня все отработало на 1с 8.2
139. пользователь 01.03.12 20:23
Сообщение было скрыто модератором.
...
142. klel 06.03.12 21:18 Сейчас в теме
Оболденная штука мне понравилась буду пользоваться =) не нужно ручками а один раз сделал и пользуйся
143. Necytij 11.04.12 20:27 Сейчас в теме
Может быть я один такой, но у меня даже обладая правами локального администратор на терминальном сервере без домена не вырубались процессы 1Сок обычных юзеров. Находил их, потому что о количестве запущенных докладывает, но, почему-то, не убивал и ошибки не видно, хотя в стандартном скрипте нет обработчика ошибок во время процессов "убийства", только в момент создания объекта, так же как в моей версии процедуры. Зависший сессий не было, просто не вырубал их.
Вышел из положения следующим образом:
Заменил процедуру "насильственного процессо-убийства" на такую вот
Function KillProcess (ByVal PName)
Dim objShell
    Err.Clear
    On Error Resume Next

	Set objShell = WScript.CreateObject ("WScript.shell")

    If Err.Number <> 0 Then
        AppendToFile strLogFileName, "ПРОИЗОШЛА ОШИБКА!!!"
        AppendToFile strLogFileName, Err.Number & ": " & Err.Description
        AppendToFile strLogFileName, "АВАРИЙНОЕ ЗАВЕРШЕНИЕ РАБОТЫ ПРОГРАММЫ!!!"'
	SendEmail        
	WScript.Quit
    End If

	objShell.run "taskkill /F /IM " & PName, 0
	Set objShell = Nothing

end function
Показать
146. Fin_Soft 17.04.12 02:10 Сейчас в теме
Эффектор сейвер для этих целей как по мне самое интересное решение...
147. Necytij 03.05.12 00:35 Сейчас в теме
Также отказался скрипт работать как в стандартном варианте (предложенном автором) так и с собственной доработкой из поста 143 на Windows XP Home Edition sp3. Почему не работает родной вариант даже не догадываюсь - надо поболее системные языки запросов знать, почему мой вариант не прошел - так потому что, как оказалось, нет там taskkill программы. В Хоум положили только устаревшую от Win 2000 tskill, намучился я с ней. Не умеет она убивать по маске все процессы, и даже если у вас два процесса одновременно запущено 1Ски, он ничего не может сделать - говорит не указан id процесса, если вы пытаетесь убить его по имени, что интересно не нашел такой инфы в интернете. А перечислить их я не смог, думаю, это возможно, но я не смог. Мое решение: скопировал taskkill с Win Pro в папку system32, и мой вариант заработал через 2 секунды.
Может кому пригодится.
148. rus3lant 21.05.12 15:21 Сейчас в теме
Прежде всего БОЛЬШОЕ СПАСИБО! Обработка классная.
Но вот не могу никак понять почему у меня для 8.2 баз открывает окно авторизации? Параметр User=True, Пользователь и пароль в параметрах указал. А она все равно спрашивает. Как это лечить?
149. rus3lant 21.05.12 15:41 Сейчас в теме
(148) Quasar, Сам же и отвечу на свой вопрос))) В общем, Пользователя то я указал, а пароль у этого пользователя был пустой. Установил пароли в конфигураторе и указал их в скрипте и все отлично запускается, ничего не просит.
150. Sasha255n 24.06.12 09:31 Сейчас в теме
Я всегда пользовался эффектором органайзером конечно было бы интересно поролбовать и эту
151. iDjvu 24.07.12 10:15 Сейчас в теме
153. tana1257 2 15.08.12 11:31 Сейчас в теме
Добрый день. У нас сервер 2008 , релиз 1С v7.7, база данных SQL. Средствами 1С не могу сделать архив, так как архив перевалил 2Гб, Вопрос - ваш архиватор дает работать с такими базами?
154. roskmv 611 15.08.12 11:42 Сейчас в теме
(153) tana1257, Сожалею, но с базами SQL данный архиватор пока не работает, было в проекте, но сейчас нет времени.
Попробуйте программы, о которых упоминают выше.
155. tana1257 2 15.08.12 12:01 Сейчас в теме
Спасибо за оперативный ответ.
156. ghool 14.09.12 14:33 Сейчас в теме
- 1с77
- запуск в пакетном режиме с указанием базы, пароля
- в случае, если в список (по сути в реестр) эти базы добавлены не были

В этой ситуации 1с-ка не выполняет указанные операции, а тупо предлагает дописать базы в список баз (в реестр)

У вас эта ситуация продумана?
Самы простой вариант, для 1с77 дописывать новую "временную" базу в реестр, а после окончания выгрузки удалять её.
Там же можно добавить всякие галочки "не показывать при запуске", которые иногда вылазят при первом запуске базы после обновления.
157. ghool 14.09.12 14:33 Сейчас в теме
выгонять юзеров, как это тут реализовано
http://infostart.ru/public/101417/
не думаете?
158. skilster 46 27.09.12 09:43 Сейчас в теме
Спасибо! Все прекрасно работает, но не мешало бы расширить функционал на SQL-базы. Предлагаю воспользоваться моим скриптом: http://infostart.ru/public/153571/
159. eigen20 23.10.12 17:23 Сейчас в теме
Большое спасибо автору, очень нужная вещь!
160. internetname 08.02.13 14:41 Сейчас в теме
161. binagal 13.03.13 05:37 Сейчас в теме
Константа EmailAddAttachment используется только в отправке почты:
objEmail.AddAttachment(EmailAddAttachment)
в записи лога она не используется. Т.е. такого файла не существует. Получаем ошибку:
CDO.Message.1: Не удается найти указанный файл.

Какой файл тут должен использоваться?
163. c00lwork 05.01.14 13:33 Сейчас в теме
я не программист но в логе у меня написано Запускаем 1C в пакетном режиме.. и ошибка
164. Sergafan10 02.10.14 21:20 Сейчас в теме
Кому нужен был SQL-вариант скрипта?! Отдельную публикацию лепить не стал, т.к. несправедливо.

Отличия от исходника:
1) В параметры базы добавлен ещё один параметр - "SQL"
2) Параметр BaseLocationPath принимает значение "имя_сервера\имя_базы", если база скульная
3) В связи с п.2 удалена конструкция поиска папки с базой, т.к. я счёл, что среди нас слепошарых нет
4) Удалил вилку зависимости наличия зареганных пользователей в базе (нахуана автор влепил User в константы, ведь в одной базе они могут быть, а в другой неть, я так и не вкурил)
5) Вместо п.4 воткнул вилку проверки варианта "файл/SQL"
=============
В общем добавляем параметры из своих скриптов, только не грохайте и отрегулируйте строку
MyBase.SQL = "True" 'если база SQL, иначе ставим "False"  


P.S. Приветствуются плюсики, чтобы загнать пост вверх, т.к. скуль версия много кому спонадобится.
Прикрепленные файлы:
Archivator1Cv8_v3.vbs
brunhilda; Ariva; screenn; Al-77; teflon; sveto4ek_u2; Seregalink; 1v7; aleks.spv; Dubasov; +10 Ответить
165. aleks.spv 06.01.15 15:12 Сейчас в теме
(164) Sergafan10, спасибо за версию sql
возник по ходу вопрос, скприпт не дожидается завершения выгрузки базы и соответственно лог файл о выгрузке в случае какой либо ошибки не прикрепляется к письму , подскажите как исправить чтобы скрипт ждал завершения выгрузки базы ?
166. sveto4ek_u2 05.02.15 05:11 Сейчас в теме
Приветствую! а для 8.3 будет работать?
167. sveto4ek_u2 05.02.15 05:55 Сейчас в теме
да, проверила, для 8.3 работает! автору +
правда письмо на почту не приходит ((
168. kenkost 29.03.15 10:00 Сейчас в теме
Большие спасибо все работает
169. IVENG0 14 02.03.16 11:10 Сейчас в теме
Почему то не работает в 8.3, может кто подскажет?
170. zVORTEXz 13 05.10.16 13:14 Сейчас в теме
Вот рабочий кусок кода для отправки сообщения через gmail:

Sub SendEmail
Dim objMsg, Config 

    If 	Email Then
	AppendToFile strLogFileName, " " 
	AppendToFile strLogFileName, "Отправлено предупреждающее сообщение на e-mail." 
	AppendToFile strLogFileName, "Дата:" & vbTab & Date
	AppendToFile strLogFileName, "Время:" & vbTab & Time
	AppendToFile strLogFileName, "КОНЕЦ" 
	AppendToFile strLogFileName, " " 

	Set objMsg = CreateObject("CDO.Message")
	Set Config = CreateObject("CDO.Configuration")
	Set Config = objMsg.Configuration
	objMsg.From = "xxxxxxx@gmail.com"
	objMsg.To = "xxxxxxxxx@gmail.com"
	objMsg.Subject = "Test sending email from sсriрt"
	objMsg.Textbody = "This is a body of E-mail."
    objMsg.AddAttachment(EmailAddAttachment)  
	Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    	Config("http://schemas.microsoft.com/cdo/configuration/sendusername") ="xxxxxxxx@gmail.com"
    	Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
    	Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    	Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    	Config("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    	Config("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    	Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
	Config.Fields.Update
	objMsg.Send
    End If
End Sub	
Показать


Заменить всю функцию SendEmail
171. slanrus 04.04.17 17:02 Сейчас в теме
Да, обработка очень понравилась.
172. Aleksey-29 02.03.12 14:17 Сейчас в теме
Даааа, хороша разработка.
Сам ею пользовался, тока вот на новой работе приходится заново качать.
Весчь!!!
скачавших 3360 человек! На рекорд идет!
Оставьте свое сообщение