Lotus: Button für Kalendereintrag soll automatisch im Kalender gespeichert werden

Master_Andy

Banned
Registriert
Sep. 2010
Beiträge
176
Lotus Notes Button: Kalendereintrag soll automatisch im Kalender gespeichert werden

Hallo,

ich habe hier eine Email aufgesetzt mit einem Button, der sich beim Drücken zwar in den Kalender als Vorausschau einträgt, dort aber erst wieder im Kalender geöffnet und neu gespeichert werden muss, damit er sich auch an die richtige Stelle im Kalender einträgt.

Sonst erscheint er nur als Info ganz oben im Kalender.

Es muss der Anwender also den Kalendereintrag erst öffnen, und dann speichern, damit er fest im Kalender eingetragen ist.

Hier der Quellcode:
Code:
Sub addcalitem(strdate As String, strsubject As String, time1 As String, time2 As String)
	
	Dim dt1 As NotesDateTime
	Dim dt2 As NotesDateTime      	
	Dim doc As NotesDocument 	
	
	Dim db As NotesDatabase
	Set session = New NotesSession
	mail=Evaluate("@MailDbName") 	
	Set db = session.GetDatabase( mail(0),mail(1))
	
	Set doc = New NotesDocument(db)
	Set dt1 = New NotesDateTime(strdate & time1)
	Set dt2 = New NotesDateTime(strdate & time2)
	
	doc.Subject = strsubject
	doc.Form = "Appointment"
	doc.AppointmentType = "0"
	doc.Alarms = "1"
	Set doc.CalendarDateTime = dt1
	Set doc.StartDateTime = dt1
	Set doc.StartDate = dt1
	doc.CHAIR = session.UserName
	doc.Duration = 1
	Set doc.EndDateTime = dt2
	doc.From = session.UserName
	doc.ExcludefromView = "D"
	doc.ORGTABLE = "P0"
	doc.Broadcast = ""
	doc.Categories = ""
	Call doc.AppendItemValue("_ViewIcon", 160)
	doc.BookFreetime = ""
	Call doc.AppendItemValue("$BusyName", session.UserName)
	Call doc.AppendItemValue("$BusyPriority", "1")
	Call doc.AppendItemValue("$NoPurge", dt2)
	Call doc.AppendItemValue("$PublicAccess", "1")
	Call doc.AppendItemValue("$Alarm", 1)
	Call doc.AppendItemValue("$AlarmOffset", -30)
	Call doc.AppendItemValue("$AlarmSound","chimes")
	doc.save True, True
	Call doc.PutInFolder( "$Alarms" )
	Print strsubject & " has been added to your calendar."
End Sub

Gibt es also eine Funktion, die automatisch den Eintrag im Kalender speichert, ohne dass man den Eintrag vorher nochmal öffnen und explizit speichern muss?

Ich hoffe, dass ihr mein Problem verstanden habt ;)

Besten Dank für eure Hilfe.

Gruß
 
Zuletzt bearbeitet:
Zurück
Oben