ВЕРНУТЬСЯ НА САЙТ BESTPOG.RU

Ремонт компьютеров

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Ремонт компьютеров » BackUp файла с отправкой на почту » BackUp файла с отправкой на почту с помощью fbackup и скрипта


BackUp файла с отправкой на почту с помощью fbackup и скрипта

Сообщений 1 страница 2 из 2

1

Скачиваем бесплатную программу для резервного копирования fbackup, настраеваем резервное копирование, в настройках устанавливаем шифрование, ставим свой пароль, желательно длиный, чтоб ваша база была полностью защищена.

Создаем cmd файл send, в нем прописываем:

copy C:\"My FBackup"\ShopBase\*.zip C:\auto
del C:\auto\1.zip
REN C:\auto\*.zip 1.zip
C:\auto\vbs.vbs

Где:
1. copy C:\"My FBackup"\ShopBase\*.zip C:\auto

C:\"My FBackup"\ShopBase\ - путь к backup сделанный программой fbackup, настраивается в свойствах прогаммы
ShopBase\ - имя задания, в программе fbackup
Команда  copy C:\"My FBackup"\ShopBase\*.zip C:\auto, копирует, все файлы с расширением zip в папку C:\auto

2. del C:\auto\1.zip
Проверяет не ли в папке C:\auto\ файла 1.zip, если есть удаляет

3. REN C:\auto\*.zip 1.zip

переименовывает файл с расширением zip в 1.zip

4. C:\auto\vbs.vbs

Запускает скрипт vbs.vbs, который отправляет файл 1.zip (файл с вашей базой) на почту.

Файл vbs.vbs  содержит следущий скрипт:

________________________________________________________________

Set objMessage = CreateObject("CDO.Message")
emailFrom = "ИМЯ@mail.ru"
objMessage.Subject = "ТЕМА ПИСЬМА"
objMessage.From = emailFrom
objMessage.To = "ИМЯ@yandex.ru"
objMessage.TextBody = "ТЕКСТ В ПИСЬМЕ"
objMessage.AddAttachment "\1.zip"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailFrom
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORDS"
objMessage.Configuration.Fields.Update
objMessage.Send
____________________________________________________

ЭТОТ БЛОК ОТПРАВЛЯЕТ ВАШ ФАЙЛ, В ДАННОМ СЛУЧАЕ ЭТО ФАЙЛ 1.zip, НА ВАШ E-MAIL,
ГДЕ:

emailFrom = "ИМЯ@mail.ru" - АДРЕС ПОЧТЫ С КОТОРОГО БУДЕТ ОТПРАВЛЕНО ПИСЬМО.

objMessage.Subject = "ТЕМА ПИСЬМА" - ЖЕЛАТЕЛЬНО НА ЛАТИНСКОМ,

objMessage.To = "ИМЯ@yandex.ru"  - АДРЕС ПОЧТЫ НА КОТОРЫЙ БУДЕТ ОТПРАВЛЕНО ПИСЬМО.

objMessage.TextBody = "ТЕКСТ В ПИСЬМЕ" -  - ЖЕЛАТЕЛЬНО НА ЛАТИНСКОМ,

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" -
- SMTP СЕРВЕР ПОЧТОВОГО ЯЩИКА С КОТОРГО БУДЕТ ОПРАВЛЯТЬСЯ ПОЧТА.

("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORDS" -
- ПАРОЛЬ ПОЧТОВОГО ЯЩИКА С КОТОРОГО БУДЕТ ОТРПАВЛЕНО ПИСЬМО.

После настройки создаем папку auto на диске С, ложем в нее два файлика  send.cmd и vbs.vbs,
добавляем файл send.cmd  в автозагрузку или в планировщик заданий и все.

Исходники с описанием лежат здесь

0

2

Если что то не понятно, пишите, распишу подробнее.

0


Вы здесь » Ремонт компьютеров » BackUp файла с отправкой на почту » BackUp файла с отправкой на почту с помощью fbackup и скрипта