Hallo Sven,
danke für den Hinweis, aber geholfen hat das leider auch nicht.
Beiträge von kewy1
-
-
Hallo an alle!
Ich möchte aus den Urlaubsanträgen in unserer Urlaubs-DB automatisch Kalendereinträge in der Mail-DB des Benutzers generieren. Dazu habe ich mir versuchsweise ein Script zusammengebastelt mit dem das schon halbwegs funktioniert. Allerdings wird nur der Termin am Startdatum eingetragen. Ich möchte aber an jedem Tag des Urlaubs einen Eintrag sehen. Was muß ich ändern?
Wär schön, wenn jemand helfen könnte!
Vielen Dank!
kewyHier mein Script: (bitte nich lachen, ich hab keine Ahnung von Lotus-Script)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim dateRange As NotesDateRange
Dim dauer As Integer
Dim tmpdate As String
Dim tmpdate2 As String
Dim datum_von As String
Dim datum_bis As String
Dim startDate As NotesDateTime
Dim endDate As NotesDateTime
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = New NotesDocument( db )
doc.Form = "Urlaub"
datum_von = uidoc.FieldGetText( "datum_1" )
Messagebox datum_von ,, "TMP-Date: "
datum_bis = uidoc.FieldGetText( "datum_2" )
dauer = uidoc.FieldGetText( "Urlaubstage" )
Set startDate = New NotesDateTime (datum_von)
Set endDate = New NotesDateTime(datum_bis)
rc = Evaluate (|@MailDbName|)
Set db = session.GetDatabase(rc(0), rc(1))
Set doc = db.CreateDocument
doc.Form = "Appointment"
doc.subject = "Urlaub-Test Date Range"
doc.AppointmentType="2"
Set dateRange = session.CreateDateRange
tmpDate = datum_von + " 00:00:00"
Set doc.CalendarDateTime = New NotesDateTime(tmpDate)
tmpDate = datum_von + " 00:00:01"
tmpDate2 = datum_bis + " 23:59:59"
Set dateRange.StartDateTime = startDate
Set dateRange.EndDateTime = endDate
Set doc.TimeRange = dateRange
doc.Duration = dauer
doc.SequenceNum = 1
doc.OrgTable = "P0"
Set doc.StartDateTime = New NotesDateTime (tmpDate)
Set doc.StartDate = New NotesDateTime (tmpDate)
Set doc.EndDateTime = New NotesDateTime (tmpDate2)
Call doc.ComputeWithForm(False,False)
Call doc.Save(True,False,True) -
Hallo!
habe jetzt doch erstmal noch weiter in Richtung "Private Ansichten" geforscht und stoße leider immer wieder auf Fehlermeldungen.
Wollte mir jetzt mal alle privaten Ansichten anzeigen lassen und erhalte bei dem Script:Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim resultList As String
resultList = ""
Set db = session.CurrentDatabase
Forall view In db.Views
If view.IsPrivate Then
If resultList = "" Then
resultList = view.Name
Else
resultList = resultList + ", " + view.Name
End If
End If
End Forall
Messagebox resultList,, "The private view(s) are:"
End Subfolgende Fehlermeldung:
"Notes error: Index kann nicht auf Server erstellt werden. (Name der Ansicht)"
Weiß jemand woran das liegt???
Gruß, kewy1
-
Es handelt sich um eine Urlaubsdatenbank in der alle Urlaubs- und Reiseanträge gespeichert sind. Und damit der Benutzer eine bessere Übersicht über seine eigenen Anträge hat, haben wir die Ansichten "Privat bei Erstbenutzung" gewählt. Und die müßten eigentlich auf dem Server gespeichert sein (glaub ich jedenfalls).
Das mit der Eingebetteten Ansicht ist auch ´ne gute Idee. Ich versuch mal, ob ich das hinkriege. Wenn das auch im Web funktioniert, wär das ja klasse.
Vielen Dank! -
Das habe ich wohl schon gesehen, aber, wie ich schon schrieb: ich hab es nicht verstanden! Ich weiß nicht, wo ich das einbauen soll. Es tut mir ja auch leid, daß ich nerve, aber dieser Link nützt mir nich viel.
-
Hallo Zusammen!
Ich habe in unserer Datenbank (Lotus Notes 6) einige Ansichten die als "privat bei Erstbenutzung" deklariert sind. Nun meckern die Anwender verständlicherweise, daß sie bei Änderungen der Ansichten immer erst ihre Ansicht löschen müssen um eine aktuelle Version zu erhalten.
Ich würde nun gerne ALLE evtl. vorhandenen privaten Ansichten automatisch löschen sobald die Datenbank (oder die erste Seite) geöffnet wird. Ich habe hier schon gelesen, daß das geht, aber ich hab es leider nicht richtig verstanden. Wo und wie kann ich das am besten machen???? Und da private Ansichten im Web ja nicht funktionieren: Weiß jemand ´ne gute Alternative? Ich hoffe, mir kann jemand helfen.
Vielen Dank!
kewy1 -
Hallo!
Ich habe mal wieder ein Problem! Ich habe ein Frameset bestehend aus 2 Rahmen. Rahmen_links enthält die Ansichtsauswahl und Rahmen_rechts die jeweiligen Ansichten.
Wenn ich nun eine Maske aufmache um ein neues Dokument zu erstellen, funktioniert das unter Notes gut. Es wird ein eigenes Fenster aufgemacht. Nur mit Web gibt es Probleme! Da wird die Maske im rechten Frame geöffnet. Das wär ja noch nicht schlimm, aber wenn ich sie schließe, wird nochmal das ganze Frameset im rechten Fenster aufgemacht! Wie gesagt, unter Notes funktioniert alles. Bin für jeden Hinweis dankbar!
kewy1 -
Das "Über Datenbank"-Dokument ist vorhanden. Das kann es also nicht sein. Manchmal(selten) funktioniert das Senden ja auch.
Ich habe beim Testen festgestellt, daß das Dokument (der Urlaubsantrag) angeblich noch nicht gespeichert ist. Obwohl ja vor dem MailSend ein FileSave steht. Kann es sein, daß das FileSave nicht sofort ausgeführt wird?
Gruß, kewy1