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

Тема в разделе "Lotus - Программирование", создана пользователем nila, 3 фев 2009.

Статус темы:
Закрыта.
  1. nila

    nila Гость

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

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

    NickProstoNick Статус как статус :)

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    Из хелпа

    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.)
     
  3. sundog

    sundog Member

    Регистрация:
    19 авг 2008
    Сообщения:
    18
    Симпатии:
    0
    Помница делал просто:

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

Поделиться этой страницей