Создать ссылку в РТитеме

[TYSON]

Как создать ссылку в рт итеме в л-скрипте. если есть текстовка и юрл??

 

[Caspiy]

если в пустом или новом итеме, то:

Dim rtitem As New NotesRichTextItem( doc, "ItemName" )
Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")

если в существующем итеме с содержимым, то:

Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "ItemName" )

Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")

 

[TYSON]

если в пустом или новом итеме, то:

Dim rtitem As New NotesRichTextItem( doc, "ItemName" )
Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")

если в существующем итеме с содержимым, то:

Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "ItemName" )

Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")

ну это ссылка на документ лотусиный,
а нужна ссылка такого плана :
<a href="http://google.com.ua">Google.com ua</a> [About Google]



Добавлено:

если в пустом или новом итеме, то:

Dim rtitem As New NotesRichTextItem( doc, "ItemName" )
Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")

если в существующем итеме с содержимым, то:

Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "ItemName" )

Call rtitem.AppendDocLink(doc2, "комментарий", "текст ссылки")

ну это ссылка на документ лотусиный,
а нужна ссылка такого плана :
<a href="http://google.com.ua">Google.com ua</a> [About Google]



Добавлено: я создал штмл файл )
возникает следуйщий вопрос,
как заимпортировать его в РТитем?

 

[TYSON]

вопрос закрыт)
Call uidoc.Import("HTML File",fileName$)

 

[nvyush]

TYSON
Можно без файла через mime: link removed

 

[TYSON]

пасиб