Решено AppendDocLink

[k85]

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]

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

 

[k85]

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

нет, это на внутренних сотрудников

все, сорри, нет слов... изменив тестового пользователя, на нормального реального. все работает ....