N
nadezdaMP
Здравтсвуйте! подскажите пожалуйста, как средствами лотус скачать с указанной странички в интернете рисунок(имеется прямая ссылка на этот рисунок)
Писала лотус скрипт, пыталась с указанного адреса скачать рисунок и сохранить его в richtextitem - поле документа, который создавался в базе... но что то ничего не работает
может у кого есть код на ява? я в ней пока не очень сильна. или подскажите какие методы лучше на лотус скрипте использовать...
у меня что то вроде
.............
Dim session As New NotesSession
Dim db As NotesDatabase
Dim urlsrc As String
Dim doc As NotesDocument
Dim res As Variant
urlsrc = "http://informer.gismeteo.ru/new/4361-35.GIF"
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
Call doc.AppendItemValue("Subject", "ImageFromInternet")
Call doc.Save(True, False)
Dim resultDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set resultDoc = db.GetDocumentByURL(urlsrc)
Set res = resultDoc.GetItemValue("Body")
Set doc.Body = res
Call doc.Save(True, False)
.............................
End Sub
знаю что неправильно, подскажите ка к реализовать идею правильно пожалуйста!! =)
Писала лотус скрипт, пыталась с указанного адреса скачать рисунок и сохранить его в richtextitem - поле документа, который создавался в базе... но что то ничего не работает
может у кого есть код на ява? я в ней пока не очень сильна. или подскажите какие методы лучше на лотус скрипте использовать...
у меня что то вроде
.............
Dim session As New NotesSession
Dim db As NotesDatabase
Dim urlsrc As String
Dim doc As NotesDocument
Dim res As Variant
urlsrc = "http://informer.gismeteo.ru/new/4361-35.GIF"
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
Call doc.AppendItemValue("Subject", "ImageFromInternet")
Call doc.Save(True, False)
Dim resultDoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set resultDoc = db.GetDocumentByURL(urlsrc)
Set res = resultDoc.GetItemValue("Body")
Set doc.Body = res
Call doc.Save(True, False)
.............................
End Sub
знаю что неправильно, подскажите ка к реализовать идею правильно пожалуйста!! =)