Festwert durch eine Variable ersetzen

[Diro]

Hallo Leute,

hat jemand einen Tip, wie ich einen fest hinterlegten Wert im Lotus-Script durch eine Variable ersetzen kann?

Ich möchte bei dem Eintrag: strVorlage = FileDetach("Serienbrief"), den Eintrag Serienbrief über eine Auswahlmaske mit Werten, beeinflussen können, um mehrere Vorlagen auswählen zu können.

Gruß Diro

[klaussal]

..ein paar ideen (näheres in der designer-hilfe):

- prompt
- dialogbox

[Diro]

Hallo klaussal,

Kannst Du mir vielleicht einen Tip für die Syntax in Lotus Script geben. Bin leider noch etwas unerfahren mit der Programmierung in Lotus Script. Daher bin ich immer sehr froh wenn so etwas vielleicht etwas mehr für einen noch Laien beschrieben wird.

Für deine Hilfe im voraus schon mal tausend Dank.

Gruß Diro

[klaussal]

@diro,

wenn du kein LS kannst, bringst es nichts, dir ein paar tipps zu geben. man muss das schon verstehen bzw können oder eben lernen.

wenn nämlich irgendwann fehler auftreten, stündest du wie der ochs vorm berg.

[Diro]

@klaussal

Nur wer andere auch mal um Auskunft bittet lernt dazu. Ich wollte ja nur eine Hilfe für die Syntax von @Dialogbox bzw. @Prompt in LS. Im übrigen dachte ich, dass ein Forum auch mal zum Wissenaustausch dient und man es nicht dazu nutzt, andere wie dumme Schuljungen zu belehren. Desweiteren wäre es ja dann auch mein Problem, wenn ich wie der so genannte Ochs vor dem Berg stehen würde.

Gruß Diro

[klaussal]

... an den schuljungen,  

1) @-befehlen sind formelsprache und NICHT Lotus-script.
2) ich habe den hinweis auf die designer-hilfe gegeben. dort stehen reichlich beispiele drin.
3) ich halte es nicht für gut, jemandem eine fertiges konzept zu geben, wenn der keine bzw. wenig ahnung hat. ein grundwissen sollte schon vorhanden sein.
4) wir helfen alle im forum gerne. ich weiss von vielen, die mit mir, was pkt 3 betrifft, da einer meinung sind.

5) du hast es nicht anders gewollt:  

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim varDummy As Variant
   
Set uidoc = workspace.CurrentDocument   
Set doc = uidoc.document
Set db = session.currentDatabase   

If doc.genehmigt_fb(0) <> "" Then
   varDummy = workspace.Prompt(      
   PROMPT_YESNO, "Ablehnen", "Sie wollen einen bereits    
   genehmigten/abgelehnten VV ablehnen " _
   & Chr(13) & "Möchten Sie wirklich fortfahren ?")
   If Not Cstr(varDummy) = "1" Then
      Exit Sub
   End If
End If
   
Call uidoc.FieldSetText("genehmigt_fb", "nein")
Call uidoc.FieldSetText("fb_zustaendig",doc.fachbereich_1(0))
Call workspace.DialogBox("Ablehnung", True, True, True )
   
doc.ablehnung = doc.tempKommentar(0)   
If doc.ablehnung(0) = "" Then
  Msgbox "ACHTUNG" & Chr(13) & "Kommentar nicht eingegeben !"
  & Chr(13) & "Status NICHT geändert !!"
  Exit Sub
End If
doc.tempKommentar = ""
doc.praemie_fb = ""
doc.praemie = ""
doc.kommentar_fb = ""
   
varDummy = workspace.Prompt(  
 PROMPT_YESNO, "Ablehnen", "Möchten Sie ein Mail an den Ersteller  schicken ? ")
If Not Cstr(varDummy) = "1" Then
  Goto Ende
End If
varDummy =  ablehnung(uidoc)
If Not varDummy Then
   Goto Ende
End If
Msgbox "Mail wurde verschickt"
   
Ende:
Call uidoc.Refresh
Call uidoc.RefreshHideFormulas
   
Call uidoc.save
Call uidoc.Close
   
End Sub

[animate]

nimm für den Anfang mal die Inputbox-Funktion. Näheres dazu in der Hilfe. Schau dir am besten das Beispiel dazu an

[webchild]

In der Designer Hilfe findest du unter dem Suchstring "OpenFileDialog method" alles was du brauchst!

Ein Beispiel:

varFile = workspace.OpenFileDialog(True, "Bitte ein Serienbriefdokument auswählen:", "Word-Dateien (*.doc)|*.doc|Alle Dateien|*", "N:")

Grüsse, Krista