Meetingformular

[Patrick99]

Hallo

Ich möchte per Button und Lotus Script ein Meetingformular öffnen. Ist das möglich wenn ja bitte ein Lösungsansatz.

Vielen Dank
Patrick

[koehlerbv]

Meeting"formular"? Willst Du einen Kalendereintrag machen?

NotesDatabase.OpenMail
Neues Dokument erstellen
Im NotesUIWorkspace öffnen.

Bernhard

[Patrick99]

Ich möchte mit dem Button die Kalenderansicht öffnen um ein Meeting zu erstellen. Da sollen dann automatisch Daten geschrieben werden wie z.B. Subject. Aber der Kalendereintrag soll nicht automatisch erfolgen. Dies wird immer noch per Hand gemacht.
also: Button drücken - Meeting Formula da 

[koehlerbv]

Siehe oben.

Bernhard

[Patrick99]

ok. Ich komme damit nicht richtig weiter.

NotesDatabase.OpenMail
Set doc= New NotesDocument(CurrentDB)   
Set ws  = New  NotesUIWorkspace

Ich bin noch Neuling und brauch bitte bisschen mehr Input um das hinzubekommen.

Mit welchen Befehlen bekomme ich das Meeting zu sehen?

Vielen Dank
Patrick

[koehlerbv]

Schau Dir die Klasse NotesUIWorkspace an - ich habe diese nicht umsonst erwähnt. Und lesen musst Du schon selber, sonst könnten wir gleich den ganzen Code für Dich schreiben.

Bernhard

[DannyCrown]

was auch sehr hilfreich ist ist das "Lotus Notes Calendar & Scheduling Schema".
Dort stehen alle Felder beschrieben und dort wirst du schon finden was du suchst.
Aber schaue dir am Besten erst einmal in der Designerhilfe die Klasse NotesUIWorkspace an, wie Bernhard schon sagte.

http://www.ibm.com/developerworks/lotus/documentation/dw-l-calendarschema.html

[Patrick99]

Danke für die Antworten. Ich habe wirklich den Designer zur Hilfe genommen, kann aber daraus nichts schlüssiges finden. Ich verstehe was die Klasse NotesUIWorkspace macht aber vielleicht bin ich zu blöd oder sehe es einfach nicht.
Wäre schön wenn ihr euch noch mal um mich kümmern könnt.
Vielen Dank
Patrick

[Klafu]

Ich weis ja nicht, wie gut du LS kannst, aber vielleicht hilft es dir wenn du dir ersteinmal ein paar Codebeispiele über die Suche im Forum suchst und dir anschaust, wie man an das Thema am besten rangeht.

Chris

[Patrick99]

Das habe ich auch getan.

Das hab ich jetzt geschrieben.

Sub Click(Source As Button)
   Dim s As NotesSession
   Dim ws As New NotesUIWorkspace
   
   Dim doc As NotesUIDocument
   Dim uidoc As  NotesUIDocument
   
   Set doc=ws.CurrentDocument
   
   Set uidoc=ws.ComposeDocument("","","Appointment")
   
End Sub

wäre nett wenn ihr dazu was sagen könntet.
was schon richtig ist und was ich ändern muss.
Danke

[koehlerbv]

So erstellst und öffnest Du in der aktuellen DB ein Dokument auf Basis der Maske "Appointment". Soll Dein Buhtong wirklich in die Mail-DB?

Bernhard

PS: Set doc = ... ist unnötig. Wozu soll das gut sein?

[Patrick99]

Also der Button ist in einer anderen Form auf einer anderen Datenbank. Wenn ich den aktiviere soll sich ein meeting formular öffnen.

Mit dem Set doc= ... wollte ich später die Daten aus der Form speichern, um sie später im Meeting wieder einzusetzen.

Patrick

[koehlerbv]

Dann brauchst Du noch das erwähnte OpenMail, und Du musst daraus die Angaben für Server und FilePath für das ComposeDocument ermitteln.

Bernhard