Sławomir Wencek

Wypowiedzi

• Wszystko
• Tylko fora

• 
  Wpis na grupie IBM Lotus Domino w temacie LotusScript

  9.07.2018, 16:14

  Witam - jestem w tym kompletnie zielony więc proszę o wyrozumiałość.
  Mamy w firmie bazę danych która została stworzona wieki temu i nikt teraz nie wie jak modyfikować funkcjonalności stworzone w LotusScript a potrzebuję dokonać pewnej zmiany.
  
  Mam okno w którym są wprowadzane i przechowywane dane osób w tym ich e-mail. W tym oknie mam zaimplementowany przycisk Poczta po kliknieciu którego pojawia się okno pozwalające na wysłanie do danej osoby emila czyli pojawia się normalne okienko jak w skrzynce mailowej z już wypełnionym adresem e mil danej osoby no i oczywiście stopką firmową zdefiniowaną w samych lotusach. Potrzebuję żeby po kliknieciu takiego przycisku wyskakiwało to samo okienko tylko z predefiniowanym tytułem np. "Informacja o RODO" i stałą niezmienną treścią samego emila np. "ABCD .. itp.". Nie wiem jak to zrobić jest to zapewne banalne. Przycisk jest oprogramowany w Lotus Script a poniżej jest zawartość skryptu - będę wdzięczny za pomoc jak należy zmienić ten skrypt żeby dodawał temat i treść emila (niezmienne teksty):
  
  Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim doc As NotesDocument
  Const mailDb$ = "@MailDbName"
  
  Set uidoc = workspace.CurrentDocument
  Set doc = uidoc.Document
  addressee$ = doc.ContactEmail(0)
  result = Evaluate( mailDb$, doc )
  mds$ = result(0)
  mdf$ = result(1)
  
  Set uidoc = workspace.ComposeDocument( mds$, mdf$, "Memo" )
  If uidoc.Document.HasItem( "EnterSendTo" ) Then
  Call uidoc.FieldSetText( "EnterSendTo", addressee$ )
  Else
  Call uidoc.FieldSetText( "SendTo", addressee$ )
  End If
  End Sub