Domino 9 und frühere Versionen > Entwicklung

einen eintrag in den Notes Kalender über...

(1/3) > >>

Selin:
...eine eigene Maske

Hallo,

ich habe eine Maske, in die ich Aufgaben reinschreibe. Es existieren unter anderem ein Datums und Uhrzeit Feld.

Wie kann ich jetzt Einträge in die Maske machen und parallel dazu diesn Eintrag in den Notes KLender schreiben lassen?????


Danke

Axel:
Hi,

so was ähnliches habe ich mal per Agent gemacht.

Sub Initialize
     
Dim maildb As NotesDatabase
Dim taskdoc As NotesDocument
Dim rtitem As NotesRichTextItem

Set maildb = New NotesDatabase("","")
Call maildb.OpenMail
If Not maildb.IsOpen Then
     Messagebox "Mail-Datenbank kann nicht geöffnet werden." + Chr$(10) + "Es wird keine Aufgabe erstellt.", 16, "Adressen"
     Exit Sub
End If  'If Not maildb.IsOpen Then

'Neue Aufgabe erstellen
Set taskdoc = New NotesDocument(maildb)
taskdoc.Form = "Task"
Call taskdoc.ComputeWithForm(True, True)

' Hier können weitere Felder bearbeitet werden

'Anlegen und füllen des Richtextfeldes für die Aufgabenbeschreibung
Set rtitem = taskdoc.CreateRichTextItem("Body" )
Call rtitem.AppendText("Hier steht die Aufgaben-Beschreibung")      

Call taskdoc.Save(True,False)

End Sub      

Schau die am besten die Task - Maske mit dem Designer an, damit du weißt wie die Felder heißen. Der Rest ist eigentlich nur Fleißarbeit.

Axel

Selin:
Hmm, also da komm ich jetzt nicht weiter
wie soll ich das denn jetzt machen??
Ich habe eine Maske. Dort werde die Einträge gemacht und anschließend gespeichert. Wie stell ich das denn in verbindung mit dem Agenten??
Dass er mir die Datensätz in den Kalender schreiben soll??

Axel:
Hi,

du braucht nicht unbedingt einen Agenten, du kannst den Code auch in einen Aktionsbutton einfügen.

Sub Click

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc AS NotesDocument
Dim maildb As NotesDatabase
Dim taskdoc As NotesDocument
Dim rtitem As NotesRichTextItem

'Zugriff auf das aktuelle Dokument  
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

Set maildb = New NotesDatabase("","")
Call maildb.OpenMail
If Not maildb.IsOpen Then
     Messagebox "Mail-Datenbank kann nicht geöffnet werden." + Chr$(10) + "Es wird keine Aufgabe erstellt.", 16, "Adressen"
     Exit Sub
End If  'If Not maildb.IsOpen Then

'Neue Aufgabe erstellen
Set taskdoc = New NotesDocument(maildb)
taskdoc.Form = "Task"
Call taskdoc.ComputeWithForm(True, True)

' Hier können weitere Felder bearbeitet werden
' z.B. taskdoc.StartDate = doc.BeginnDatum

'Anlegen und füllen des Richtextfeldes für die Aufgabenbeschreibung
Set rtitem = taskdoc.CreateRichTextItem("Body" )
Call rtitem.AppendText("Hier steht die Aufgaben-Beschreibung")  

Call taskdoc.Save(True,False)

End Sub


Axel

Selin:
bei mir tut sich nix. Kannst du an den Stellen, wo ich es meiner Maske anpassen muss kurz was zu schreiben??

Wäre echt nett. Sorry, bin noch nicht sehr lange in der notes programmierung.

Navigation

[0] Themen-Index

[#] Nächste Seite