Ссылка на сайт.

  • Автор темы nila
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

nila

#1
У меня два варианта
скриптом
result=Shell("explorer http://webpages/"+Cstr(uidoc.Document...quot;/",3)
но проблемма в том что почему то у кого оно открывается , а кого то спрашивает доустановить ворд....
если убераю explorer (что б типа оно по умолчанию прогу выбирало не обязательно explorer) то вообще не находит
если пишу iexplore тоже не находит.

формулами
просто пишу
"http:/webpages/" + @Text(Number) +"/"
так вообще даже нсд вылетало
 

NickProstoNick

Статус как статус :)
Lotus team
22.08.2008
1 809
21
#2
Из хелпа

To create a URL link
Use a URL link to create a link based on a URL name. Since this type of link is based on a hard-coded URL name, any changes to the URL break the link.
1. Select the text or graphic that you want to use as the URL link.
2. Choose Create - Hotspot - Link Hotspot.
3. On the Hotspot Info tab of the Hotspot Resource Link Properties box, select URL as the type of link.
4. Enter a full URL (including protocol) for the value. For example:
http://www.lotus.com
5. (Optional) Enter a target frame for the link.
6. (Optional) Select "Show border around hotspot." (Not supported on the Web.)
 
19.08.2008
18
0
#3
Помница делал просто:

'Определяем стили текста в документе
Dim urlTextStyle As NotesRichTextStyle
Set urlTextStyle = s.CreateRichTextStyle
urlTextStyle.FontSize = 8
urlTextStyle.NotesColor=10

Set mail = mailbox.CreateDocument ' документ отправляляем через mail.box

urlweb$ = "http://Site/" +db.FilePath + "/vAll/" +Doc.Universalid+"?OpenDocument"
Call mail.ReplaceItemValue("Form","Memo")
Call mail.ReplaceItemValue("Subject","Subj")
Call mail.ReplaceItemValue("From", "xxx<xxx@xxx.com>")
Call mail.ReplaceItemValue("ReplyTo", "xxx<xxx@xxx.com>")
Call mail.ReplaceItemValue("Recipients", "xxx<xxx@xxx.com>")
Call mail.ReplaceItemValue("PostedDate",Now)
Call mail.ReplaceItemValue("BGTableColor","bg_1")

Set rtitem = New NotesRichTextItem ( mail, "Body" )
Call rtitem.AppendStyle(urlTextStyle)
Call rtitem.appendtext(urlweb$)
Call mail.Save(False,False)
 
Статус
Закрыто для дальнейших ответов.