Автоотправка файлов :: В помощь системному администратору :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоотправка файлов

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
Версия для печати • Подписаться • Добавить в закладки

Открыть новую тему

Написать ответ в эту тему

AFT Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Как можно сделать, так чтоб Outlook периодически отправлял файлы из указанной папки на указанный адрес. После отправки файлы должны удаляться.
	Всего записей: 693 \| Зарегистр. 15-10-2002 \| Отправлено: 09:24 08-02-2007

Andy_user

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

VBS-скрипт.
Основа (собственно отправка) - ниже.
Остается доделать (творчески расширить функционал):
- зациклить скрипт с периодичностью например 1 минута;
- поиск в нужной папке списка файлов на отправку;
- удаление каждого файла из этой папки после отправки
------------------

Код:

Dim objMsg
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
' Set the sendusing field to '....'.
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "name_of you_mail_server"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Update the fields.
Config.Fields.Update
With objMsg
.To = "paa@domain.ru"
.From = "lso@domain.ru"
.Subject = "Test sending email from script"
.TextBody = "Test"
.AddAttachment "c:\Proba.txt"
' ..
End With
objMsg.Send
Wscript.Quit

Всего записей: 960 | Зарегистр. 02-12-2002 | Отправлено: 09:36 08-02-2007

AFT Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Andy_user а другие проги это сами делать не могут? типа бата или еще чаво-нить
	Всего записей: 693 \| Зарегистр. 15-10-2002 \| Отправлено: 10:18 08-02-2007

DogEatGod Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AFT Бат вроде может (в теории, в хелпе описано как), а на практике я не смог заставить. На форуме RitLabs люди тоже жалуются, выхода пока нет
	Всего записей: 93 \| Зарегистр. 01-03-2002 \| Отправлено: 10:35 08-02-2007

ipmanyak Platinum Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AFT blat — отправка почты из консоли Удаление файлов сам добавишь в батник , сам батник в планировщик задач пихни.
	Всего записей: 11746 \| Зарегистр. 10-12-2003 \| Отправлено: 11:24 08-02-2007

AFT Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ipmanyak у меня в бате получилось - всё отправляется и удаляется, спасибо всем
	Всего записей: 693 \| Зарегистр. 15-10-2002 \| Отправлено: 20:17 08-02-2007

Открыть новую тему

Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоотправка файлов

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC