Dumme Fragen....

[CarlGustav]

......


Tja, ist eh ganz eine einfache Frage und wenn ich hier im Forum suche, dann finde ich wahrscheinlich auch Postings darüber,
aber ich frag trotzdem mal so:


Wie kann ich es umsetzen in einem Script auf die Schnelle eine Dialogbox zu öffnen um einen Server auswählen zu können.
Irgendeine Auswahlbox für den User...

Und eine weitere Auswahlbox wo er dann den Pfad zur Datei wählen kann. (Datenbank öffnen...)


Vielen Dank für eure Hilfe,


CG

[tower]

ich hab nur was in Kommandosprache

FIELD FLD_view_server := "Local";
FIELD FLD_view_db := "";
@Command([ViewRefreshFields]);
x := @Prompt( [ChooseDatabase]; ""; ""; ""; "");
v_server := @If(@GetMembers( x; 1) = "";"Local"; @GetMembers( x; 1));

FIELD FLD_view_Server := @Name([CN];v_server);
FIELD FLD_view_db := @GetMembers( x; 2);
@Command([ViewRefreshFields]);
""

[ata]

... so auf die schnelle - schau mal unter @Prompt in der Notes-Hilfe. Dort gibt es eine spezielle Box für die Dateiauswahl, wie sie dir Notes immer bietet , damit hast du alles in einem Dialog...

ata

[Axel]

Hi,

meines Wissens ist es in Script nicht möglich, den DatenbankÖffnen-Dialog anzuzeigen.

Es gibt nur die OpenFileDialog - Methode aus UIWorkspace.

Beispiel:

Dim workspace As New NotesUIWorkspace
Dim files As Variant
files = workspace.OpenFileDialog(True, "File List", _
        "", "c:")
Dim messagelist As String
Forall filelist In files
     messagelist = messagelist & filelist & Chr(10)
End Forall
Messagebox messagelist

Axel
 

[wflamme]

http://www-10.lotus.com/ldd/46dom.nsf/55c38d716d632d9b8525689b005ba1c0/a2bc53a294c88ae185256aa30049b76a?OpenDocument
HTH

[ata]

@wflamme...

... den habe ich gemeint...

ata

[CarlGustav]

Ich weiß nicht recht wie man hier Bilder einfügt........
 Darum hab ich eins angehängt...


So wie auf dem Bild, so würde ich mir das vorstellen. Ein Dialog mit allen verfügbaren Servern im Netzwerk.

Das wär was... Aber das krieg ich irgendwie nicht ganz hin...


Was ich noch gefunden habe ist dieser Code, der bringt aber nicht ganz so diese Ergebnisse wie auf dem Bild:

mailserver := @Subset(@MailDbName; 1);
servers := @DbColumn("":""; mailserver:" "; "($Connections)"; 3);
local_servers := @If(mailserver = ""; ""; @DbColumn("":""; "":"names.nsf"; "($Connections)"; 3));
choices :=  "Local"  :
  @Name([Abbreviate];
    @Unique(@Trim(@If(@IsError(servers); ""; servers) : @If(@IsError(local_servers); "";local_servers))));

FIELD Server := @Prompt([OKCANCELLIST]; "Server"; "Please select a server from this list"; Server; choices);0


Vielleicht (bestimmt) fällt euch dazu noch was ein,


LG,


CG

[ata]

... das mit der Grafik hat leider nicht so ganz geklappt

ata

[CarlGustav]

Uuuuppppss...


Aber nun müßte mans anschauen können!!!!


LG,



CG

[ata]

... klappt...

... mir fällt auch nur der Weg über die Dörfer - sprich die bekannten Notes-Adressbücher - ein. Dort gibt es Serverdokumente etc...

ata

[CarlGustav]

@ATA


Danke für die Antwort.

Wie geh ich das denn an - wie sprech ich die Dörfer an???


LG,

CG

[CarlGustav]

Morgen!


Also nun geht das mit der Serversuche folgendermaßen:

mailserver := @Subset(@MailDbName; 1);
servers := @DbColumn("":""; mailserver:"names.nsf"; "($Servers)"; 1);
local_servers := @If(mailserver = ""; ""; @DbColumn("":""; "":"names.nsf"; "($Servers)"; 1));
choices :=
  "Local"
  :
  @Name([Abbreviate];
    @Unique(@Trim(
      @If(@IsError(servers); ""; servers) : @If(@IsError(local_servers); ""; local_servers)
    ))
  );

FIELD Server := @Prompt([OkCancelList]; "Server"; "Please select a server from this list"; Server; choices);
0



Vorher war die falsche Ansicht angegeben. Nun bekomme ich alle benötigten Server zur Auswahl.


Danke für alle Tips,


CG