• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

nila

У меня два варианта
скриптом
result=Shell("explorer
но проблемма в том что почему то у кого оно открывается , а кого то спрашивает доустановить ворд....
если убераю explorer (что б типа оно по умолчанию прогу выбирало не обязательно explorer) то вообще не находит
если пишу iexplore тоже не находит.

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

NickProstoNick

Статус как статус :)
Lotus Team
22.08.2008
1 851
27
BIT
0
Из хелпа

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:

5. (Optional) Enter a target frame for the link.
6. (Optional) Select "Show border around hotspot." (Not supported on the Web.)
 
S

sundog

Помница делал просто:

'Определяем стили текста в документе
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)
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!