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

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

    Скидки до 10%

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

Решено AppendDocLink

k85

Lotus Team
11.10.2011
260
1
BIT
0
notesRichTextItem.AppendDocLink( linkTo, )
отправоляется письмо, но вместо ссылки только текст всталяет
в чем может быть проблема?
newrich.appenddoclink(newdoc, newdoc.title(0))
приходит Link : и текст из нужного документа, а самой ссылки нет

так и не вышло найти , в чем проблема
есть агент
Код:
    Dim note As notesDocument
        Set collection = db.UnprocessedDocuments
        Set viewInbox = db.GetView( "myview" )
    Call viewInbox.Refresh
        Set doc = viewInbox.GetFirstDocument  
    While Not(doc Is Nothing)
        Set note = viewInbox.GetNextDocument(Doc)
        If note Is Nothing Then Exit Sub
       
        'отбор по критериям'
       
            Call scrMy(note, "Сообщение")

scrMy:
Код:
    Dim db As NotesDatabase
    Set session = New NotesSession
    Set db = session.CurrentDatabase
    Dim memo As New NotesDocument( db )
    memo.Form = "memo"
   
    Dim memoSendTo As NotesItem
    Set memoSendTo = кому
   
    Dim body As New NotesRichTextItem( memo, "Body" )

    Call body.AppendText( "нажмите на ссылку -> "  )
    Call body.AppendDocLink (note, note.Field(0) )

    If (memo.SendTo(0) <> "") Then
        Call memo.Send( False, False )  
    End If

    Exit Sub
письмо приходит
Сообщение

нажмите на ссылку -> (Document link: название из поля Field)

а самой ссылки нет
 

duchan

Green Team
20.09.2006
128
11
BIT
156
А письмо случаем не на какой-нибудь mail.ru-google-yandex отправляете? Там да, ссылки не показывает, хотя в письме, если исходник письма смотреть, они есть....
 

k85

Lotus Team
11.10.2011
260
1
BIT
0
А письмо случаем не на какой-нибудь mail.ru-google-yandex отправляете? Там да, ссылки не показывает, хотя в письме, если исходник письма смотреть, они есть....
нет, это на внутренних сотрудников

все, сорри, нет слов... изменив тестового пользователя, на нормального реального. все работает ....
 
Мы в соцсетях:

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