• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы Cleric84
  • Дата начала Дата начала

Cleric84

Well-known member
03.01.2008
599
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
 
В данном случае достаточно выкинуть это:
Код:
picklist = ws.PickListStrings( PICKLIST_NAMES, True )
If ( Isempty( picklist ) ) Then
Messagebox "Перервано." , , "Не вказано отримувачів"
Else
... это выкидывать не надо
End If
И написать:
picklist = "Васе Пупкину"
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab