Линк на документ по почте

Тема в разделе "Lotus - Программирование", создана пользователем Cleric-Lviv, 15 май 2008.

  1. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Привет!

    вот столкнулся с проблемой надо отправить ссилку(линк) на документ есть скрипт но надобно чтоб юзер не вибирал получателя а чтоб получатель бил уже в скрипте тоесть клик на кнопку и письмо с ссилкой уходит к Васе Пупкину.

    Вот мой скрип может кто пожет, что и где надо поменять(никогда не програмировал)

    Sub Click(Source As Button)
    Dim ses As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim nam As NotesName
    Dim dc As NotesDocumentCollection
    Dim picklist As Variant
    Dim doc As NotesDocument
    Dim sd As NotesDocument
    Dim rtitem As NotesRichTextItem

    Set db = ses.CurrentDatabase
    Set dc = db.UnprocessedDocuments

    If ( dc.Count > 0 ) Then
    picklist = ws.PickListStrings( PICKLIST_NAMES, True )
    If ( Isempty( picklist ) ) Then
    Messagebox "Перервано." , , "Не вказано отримувачів"
    Else
    Set doc = New NotesDocument(db)
    doc.Form = "Memo"
    If dc.Count>1 Then
    doc.Subject = "Ознайомтесь з наступними документами"
    Else
    doc.Subject = "Ознайомтесь з документом"
    End If
    Set rtitem = New NotesRichTextItem( doc, "Body" )

    Set sd = dc.GetFirstDocument
    While Not (sd Is Nothing)
    Call rtitem.AddNewLine(1)
    Call rtitem.AppendDocLink(sd, db.Title)
    Call rtitem.AppendText(" (" + sd.category(0) + ") " + sd.Subj(0))
    Call rtitem.AddNewLine(1)
    Set sd = dc.GetNextDocument(sd)
    Wend
    Call doc.Send( False, picklist )
    doc.Form = "trace"
    doc.SendTo = picklist
    Call doc.Save(False,False)
    Msgbox "Повідомлення надіслано."

    End If
    End If
    End Sub
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Заполни поле SendTo
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    В данном случае достаточно выкинуть это:
    Код (Text):
    picklist = ws.PickListStrings( PICKLIST_NAMES, True )
    If ( Isempty( picklist ) ) Then
    Messagebox "Перервано." , , "Не вказано отримувачів"
    Else
    ... это выкидывать не надо
    End If
    И написать:
    picklist = "Васе Пупкину"
     
  4. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Спасибо
     
Загрузка...

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