Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - запаковка файлов и отправка архива на почту

Ответить
Настройки темы
VBS/WSH/JS - запаковка файлов и отправка архива на почту

Пользователь


Сообщения: 102
Благодарности: 1

Профиль | Отправить PM | Цитировать

добрый день!

есть скрипт который при запуске отправляет письмо с определенным текстом на определенные адреса
Код: Выделить весь код
'On Error Resume Next
Const EmailFrom = "1@1.ru"
Const SmtpServer = "1.1.local"
Const Port = 25

EmailTo = "2@1.ru"
Send SmtpServer,EmailFrom,Port,EmailTo

EmailTo = "3@1.ru"
Send SmtpServer,EmailFrom,Port,EmailTo

Sub Send(smtp,from,port,emailto)
	Set objEmail = CreateObject("CDO.Message")
	objEmail.From = from
	objEmail.To = emailto
	objEmail.Subject = "Сообщение от: " & Now
	objEmail.Textbody = "Обновление завершено"
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = port
	objEmail.Configuration.Fields.Update
	objEmail.Send
	Set objEmail = Nothing
End Sub
нужно: что бы скрипт паковал в архив все файлы в папке по пути "C:\1\1\" и отправлял этот архив на определенный почтовый ящик

Отправлено: 14:35, 25-10-2012

 

Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

Anufriev, какой предполагается использовать архиватор для выполнения этого действия?

Отправлено: 16:28, 25-10-2012 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 102
Благодарности: 1

Профиль | Отправить PM | Цитировать

win rar

Отправлено: 07:25, 26-10-2012 | #3


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

Цитата Anufriev:
win rar »
Ясно. Что именно вызывает затруднения в реализации?

Отправлено: 19:10, 26-10-2012 | #4


Пользователь


Сообщения: 102
Благодарности: 1

Профиль | Отправить PM | Цитировать

как прикрепить файл к письму, и как обзывать архив нынешней датой?

Отправлено: 06:40, 29-10-2012 | #5


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать

Цитата Anufriev:
как прикрепить файл к письму, »
Код: Выделить весь код
Set objMessage = WScript.CreateObject("CDO.Message")
…
objMessage.AddAttachment <Путь к файлу>
…
objMessage.Send
Примеры: [решено] Как прикрепить несколько файлов в письме?.

Цитата Anufriev:
и как обзывать архив нынешней датой? »
Цитата %ProgramFiles%\WinRAR\WinRAR.chm:
Ключ -AG[формат] — добавить к имени архива текущие дату и время
…
Читайте:
Код: Выделить весь код
hh.exe "mk:@MSITStore:%ProgramFiles%\WinRAR\WinRAR.chm::/html/HELPSwAG.htm"

Отправлено: 07:11, 29-10-2012 | #6



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - запаковка файлов и отправка архива на почту

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] Удаление файлов из архива VokaMut Скриптовые языки администрирования Windows 14 24-12-2012 11:03
CMD/BAT - [решено] Отправка файла на почту ma8883 Скриптовые языки администрирования Windows 1 04-12-2011 22:04
Отправка сообщений на почту Pavla Вебмастеру 3 20-05-2010 19:23
Разное - Восстановление медиа файлов из испорченного архива illusionmgs Microsoft Windows 2000/XP 11 22-03-2009 20:59
Запаковка незапакованых файлов Kiduz Автоматическая установка Windows 2000/XP/2003 7 19-09-2005 00:18


« Предыдущая тема | Следующая тема »


 
Переход