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

[Cleric84]

Привет!

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

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

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

 

[Omh]

Заполни поле SendTo

 

[Medevic]

В данном случае достаточно выкинуть это:

picklist = ws.PickListStrings( PICKLIST_NAMES, True )
If ( Isempty( picklist ) ) Then
Messagebox "Перервано." , , "Не вказано отримувачів"
Else
... это выкидывать не надо
End If

И написать:
picklist = "Васе Пупкину"