Скачать файл средствами лотус...Реально?

  • Автор темы Nikotin
  • Дата начала
N

Nikotin

#1
Есть форма: На ней есть кнопка и РТ поле.
Задача:При нажатии на кнопку, лотус лезет на определенную интернет страницу, берет линк файла, скачивает его и помещает в РТ поле.при этом пользователь никаких диалогов о скачивании файлов видеть не должен.
Сложности положить скачаный файл в РТ поле я думаю не будет...=)Но вот как скачать???
Что я сделал:

Dim obj As Variant
Dim html As Variant
Dim Link As Variant
Dim obj As Variant
Set obj = CreateObject("InternetExplorer.application")
obj.Navigate "C:\Documents and Settings\...\Рабочий стол\Main.html"
Set Html = obj.Document
Link = html.links(0).href 'Взял путь к файлу
obj.Navigate Link 'эта строчка выводит диалог на скачивание (может можно как то избежать?)
End Sub

Какие я вижу пути решения:
1.Использовать комманду IE - ExecWB( с параметрами 4(Меню "Файл" - "Сохранить как..."),2(Не запрашивать ввод пользователя )), но это лишь сразу выведет окно для сохранения файла.Вроде можно даже путь указать, но вот как бы из лотуса тогда отослать имитацию нажатия Enter?
2.Через объект Microsoft.XMLHTTP, но у меня не получилось, и говорят многие антивирусы блочат такой метод.
3.Ваш вариант...=)
 

Omh

Lotus team
04.07.2007
2 210
1
#2
А GetDocByURL тут не поможет?
Не надо никаких сторонних приблуд запускать...
 
N

Nikotin

#4
Tia, спасибо=)
Omh, а парсеры готовые есть?=)А то с XML пока не особо в ладах))
 

Omh

Lotus team
04.07.2007
2 210
1
#5
Nikotin
Никаких там парсеров не надо: методом получаешь документ, там аттачментом лежит твой скачанный файл
 
N

nadezdaMP

#6
а подробней можно? какой скрипт получился в итоге?? ;)
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 583
269
#7