Beiträge von KlausManns

Das ganze erfolgt über einen Webserver, der die Adresse über cUrl aufruft: "https://mailserver/datenbank.nsf/CalendarTasks?OpenAgent&param1&param2&param3 etc."

Vielen Dank für den Hinweis.
Ich hab das Feld tatsächlich vergessen. Erstelle erst vDates mit allen Datumswerten und vergesse das Feld dann zu schreiben :lol:

Es fehlte auch noch das Feld EndDateTime.

Jetzt klappt es wunderbar.

Eine Frage dazu noch:

Wenn ich den Titel (Subject) als Parameter übergebe und dieser Leerzeichen enthält, dann wird der Kalendereintrag bspw. mit Test%20Test%20Test angelegt.

Kann ich das noch wieder automatisch umwandeln?

Hallo,

ich versuche einen mehrtägigen Kalendereintrag zu erzeugen.
Zu Anfang meiner Versuche wurde der Eintrag erzeugt, bzw. war auffindbar, wenn auch nicht mit allen korrekten Werten.

Mittlerweile wird das Script aber ohne Fehler ausgeführt, aber der Eintrag ist nirgends auffindbar.
Hat da jemand vielleicht eine Idee?

Variablen, die mit arg.. beginnen, werden als Parameter übergeben.

Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim view As NotesView
	Dim vc As NotesViewEntryCollection
	Dim arg As String, p1 As Long
	Dim argarray As Variant
	Dim counter As Integer
	Dim argdb As String
	Dim argserver As String
	Dim argaction As String 
	Dim argvdat As String
	Dim argbdat As String
	Dim argtype As String
	Dim argtext As String
	Dim vdate As NotesDateTime
	Dim bdate As NotesDateTime
		Dim starttime As String, endtime As String
		Dim startDate As Variant, endDate As Variant
		Dim aExcludeView(1) As String
		Dim cprofile As NotesDocument
		Dim mailowner As String
		Dim vDates As Variant
		Dim iLoop As Integer

		Dim atCSWISL (0 To 4) As String
		atCSWISL(0)="$S:1"
		atCSWISL(1)="$L:1"
		atCSWISL(2)="$B:1"
		atCSWISL(3)="$R:1"
		atCSWISL(4)="$E:1"

		Dim atWatched (0 To 4) As String
		atWatched(0)="$S"
		atWatched(1)="$L"
		atWatched(2)="$B"
		atWatched(3)="$R"
		atWatched(4)="$E"

		aExcludeView(0) = "D"
		aExcludeView(1) = "S"

		starttime = "07:00:00"
		endtime = "20:00:00"

		Set db = s.GetDatabase(argserver, "mail"+argdb, False)
		If Not db.IsOpen Then Call db.Open("", "")


		Set cprofile = db.GetProfileDocument("CalendarProfile")
		mailowner = cprofile.GetItemValue("Owner")(0)


		Set view = db.GetView("Calendar")


		Set doc = db.Createdocument()
		docid = doc.UniversalID
		doc.form = "Appointment"
		doc.Subject = argtext
		doc.Location = " "
		doc.SequenceNum = "1"


		startdate = CDat(argvdat)
		enddate = CDat(argbdat)


		doc.StartDate = startDate
		doc.StartTime = startDate
		doc.StartDateTime = startDate
		doc.EndDate = endDate
		doc.EndTime = endDate

		iLoop = endDate - startDate
		ReDim vDates (0 To iLoop)

		vDates (0) = startDate
		For iLoop = 1 To UBound (vDates)
			vDates (iLoop) = startDate + iLoop
		Next

		doc.Repeats = "1"
		doc.RepeatFor = iLoop
		doc.RepeatHow = "F"									' U=repeat until, F=repeat for
		doc.RepeatForUnit = "D"								' repeat in days (W=weekly,M=monthly,Y=yearly)
		doc.RepeatWeekends = "D"							' Do nothing if on a weekend
		doc.RepeatUnit = "D"
		doc.RepeatInterval = "1"							' dayly
		doc.RepeatAdjust = "1"								' only used if weekly or monthly
		doc.RepeatStartDate = startdate
		doc.RepeatDates = vDates

		doc.ExcludeFormView = aExcludeView
		doc.MeetingType = "1"


		doc.AppointmentType	= argtype
		doc.MessageType = "Not a draft"
		doc.Logo = "StdNotesLtr3"
		doc.AppointmentType	= argtype
		doc.OrgTable = "P0"
		doc.SchedulerSwitcher = "1"
		doc.Notes = ""
		doc.Body = "Erzeugt durch den Urlaubsplaner im Intranet.**ID=" & docid & "**" & argtext
		doc.~_ViewIcon = "9"
		doc.EndTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
		doc.StartTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=71$ZN=W. Europe"
		doc.UpdateSeq = 1
		doc.WebDateTimeInit = 1
		doc.~$AlarmDiabled = "1"
		doc.~$PublicAccess = "1"

		doc.~$CSWISL = atCSWISL
		doc.~$WatchedItems = atWatched
		doc.~$CSFlags = "m"
		doc.OrgRepeat = "1"
		doc.~$CSVersion = "2"

		doc.Chair = mailowner
		doc.AltChair = mailowner
		doc.From = mailowner
		doc.Principal = mailowner


		If argtype = "2" Then
			doc.BookFreeTime = "0"
			doc.~$BusyName = mailowner
			doc.~$BusyPriority = "1"
		End If		
		doc.ApptUNID = docid		


		Call doc.Save( True, True )	
ErrResume:
	Exit Sub
ErrHandler: 
	Print "** CalendarTasks ** Error occured " &  Str(Err) & ": " & Error$ & " in line " & Str(Erl) & ". Agent stopped."
	Resume ErrResume

Sorry, aber ich war einfach ein wenig blind.
Da hilft auch nicht die Admin Hilfe, wenn man es schlicht übersieht.
Wobei auch People & Groups -> People -> Policy Synopsis irreführend ist, denn es ist unter People & Groups -> People dann auf der rechten Seite unter Tools.

Welches System dahinter hängt, sieht man ja auch ziemlich schnell bei einem Zugriff auf Port 80 für iNotes.
Mal vorausgesetzt, dass aktuelle Patches etc. installiert sind und auch mal BufferOverflow-Geschichten, die ja prinzipiell mit jedem Port funktionieren können, was spricht gegen ein Freischalten von Port 1352?

Meinen Gedanken nach liegt das größte Risiko bei einem Diebstahl einer ID. Abgesehen davon, dass das ja auch unbemerkt passieren kann, wie kann man dann die ID für ungültig erklären und dem User eine neue ID verpassen?

Auch wenn ich jetzt dumm fragen muss: wie oder wo finde ich "policy synopsis"?

Ich habe einen 8.5er Admin Client installiert, über den ich die Desktop Richtilinie angelegt habe, habe aber keine Möglichkeit gesehen, wie ich diese Richtlinie nur einer einzelnen Person oder Gruppe zuweisen kann.

Hallo,

ich habe mich auch mal an das Thema Desktop-Richtlinien gewagt, um eine Notes.ini Einstellung an die User zu pushen.

Ich habe mich hierfür an die gefundene Anleitung gehalten:
Anleitung zur Desktoprichtlinie

Richtlinie ist erstellt, aber wie kann ich kontrollieren, wer schon diese Richtlinie erhalten hat und wer eventuell noch nicht?

Kann ich auch diese Richtlinie einschränken, dass nur ein bestimmter Personenkreis (bspw. eine Gruppe) diese Richtlinie erhält?

Hi,

bei mir lief das Update von 8.5.1 auf 8.5.2 problemlos.
Vorausgesetzt ist natürlich immer, dass die Datensicherung funktioniert hat.
Die Software kann über PassportAdvantage heruntergeladen werden.

Hallo,

ich bin neu hier im Forum und auch was die Administration von Domino betrifft. Klopft mir ruhig auf die Finger, wenn ich allzugroßen Mist von mir lasse.

Im Moment müssen Anwender, wenn sie unterwegs sind, sich mittels VPN in die Firma einwählen, um mit Lotus Notes arbeiten zu können.
Zudem haben sie aber auch die Möglichkeit auf ihre Mails über iNotes zuzugreifen.
Jetzt hat mich ein Anwender (relativ IT affin) angesprochen, ob man nicht Port 1352 auch in der Firewall freischalten könnte, dann müsste man sich nicht immer erst mit VPN verbinden, um Lotus Notes nutzen zu können. Das wäre ja auch nicht unsicherer als der Zugriff über iNotes.

Beim Webaccess kann ich ja noch zuviele fehlerhafte Anmeldeversuche sperren und auch nachvollziehen. Für den Notes-Zugriff braucht es aber auch die lokale ID damit der Zugriff funktioniert.

Wie seht ihr das? Mir fallen da nicht so recht Argumente ein, warum was sicherer bzw. unsicherer ist.