Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: AndreasWegener0815 am 28.06.11 - 10:41:38

Titel: ToDo Eintrag per Script erzeugen und delegieren
Beitrag von: AndreasWegener0815 am 28.06.11 - 10:41:38

Hallo liebes Forum.
Ich (iSender) versuche per Script einen TODO Eintrag zu erzeugen und  zu einer anderen Mailbox zu delegieren (iRecipient) .
Das funktioniert auch recht gut, jedoch bekomme ich keine Alarmmeldung  in der Empfängemailbox wenn StartDateTime erreicht ist $Alarm ist auf 1 und $AlarmOffset auf 0.
Weiterhin bekomme ich als Delegator brav die Info wenn die  Aufgabe angenommen und erledigt wurde.
Wenn dann der Beauftragte User das ToDo löscht obwohl  es als erledigt gekennzeichnet ist bekomme ich eine mail, das die Aufgabe abgelehnt wurde.
Ist das eine Notes spezifische Eigenart oder fehlt mir noch ein Feld ? Ich würde keinerlei Mail erwarten
Anbei ein Auszug des Codes.
Vielleicht hat einer eine Idee.
Viele Grüße

Code

Dim lSession As New NotesSession
	Dim lCurrentDB As NotesDatabase 
	Dim lNamesDB As NotesDatabase
	Dim lUserMailDB As NotesDatabase
	Dim lNamesView As NotesView
	Dim lNamesdoc As NotesDocument
	
	Dim lTaskDoc As NotesDocument
	
	
	Set lSession = New NotesSession
	Dim lName As NotesName
	Dim lSearchkey As String 
	Dim lMailfilename
	Dim lServername
	Dim lMailServername
	Set lCurrentDB=lSession.CurrentDatabase	
	lServername=lCurrentDB.Server
	
	Set lNamesDB = lSession.GetDatabase(lServername,"names.nsf")
	'Aktuelle Benutzer
	Set lName = New NotesName(iSender)
	lSearchkey=lName.Abbreviated
	'Maildatei nachsehen
	
	Set lNamesview=lNamesDB.GetView("($VIMPeople)")
	Set lNamesdoc=lNamesView.GetDocumentByKey(lSearchkey)
	lMailfilename=	lNamesdoc.MailFile(0)
	lMailServername=lNamesdoc.MailServer(0)
	Print "Using file " & lMailfilename & " at " & lMailServername
	'Call lMaildoc.Computewithform(False,false)
	
	'Maildatei des Benutzers öffnen
	Set lUserMailDB=lSession.GetDatabase(lMailServername,lMailfilename)
	Set lTaskDoc=lUserMailDB.Createdocument()
	lTaskDoc.Form="Task"
	
	
	Dim lRTitem As NotesRichTextItem
	Set lRTitem =lTaskDoc.Createrichtextitem("Body")  
	lRTitem.Appendtext(iBody)
	Call lTaskDoc.ReplaceItemValue ("Subject",iSubject)
	' Set ALarm On
	Call lTaskDoc.ReplaceItemValue ("$Alarm",1)
	Call lTaskDoc.ReplaceItemValue ("$AlarmOffset", 0)
	Call lTaskDoc.ReplaceItemValue ("$AlarmDescription", "Alarm Description")
	'appointment tye as reminder 
	' "0" = Personal Appointment
	' "1" = Anniversary
	' "2" = Event
	' "3" = Meeting Invitation
	' "4" = Reminder
	
	Call lTaskDoc.ReplaceItemValue ("AppointmentType", "4")
	Call lTaskDoc.ReplaceItemValue ("From", iSender)
	Call lTaskDoc.ReplaceItemValue ("Categories", "Anrufe")
	Call lTaskDoc.ReplaceItemValue ("SendTo", iRecipient)
	Call lTaskDoc.ReplaceItemValue ("Importance", "1")
	Call lTaskDoc.ReplaceItemValue ("Chair", iSender)
	Call lTaskDoc.ReplaceItemValue ("AssignedTo", iRecipient)
	Call lTaskDoc.ReplaceItemValue ("Delegator", iSender)
	Call lTaskDoc.ReplaceItemValue ("Delegee", iRecipient)
	Call lTaskDoc.ReplaceItemValue ("StartDate", CDat ("28.06.2011"))
	Call lTaskDoc.ReplaceItemValue ("StartDateTime", CDat ("28.06.2011 10:30"))
	Call lTaskDoc.ReplaceItemValue ("DueSaveDate", CDat ("28.06.2011"))
	Call lTaskDoc.ReplaceItemValue ("DueDateTime", CDat ("28.06.2011 15:30"))
	'Call lTaskDoc.ReplaceItemValue ("DueState", "1")
	Call lTaskDoc.ReplaceItemValue ("EndDate", CDat ("28.06.2011 15:30"))
	Call lTaskDoc.ReplaceItemValue ("TaskType", "1")
	Call lTaskDoc.ReplaceItemValue ("ApptUNID", lTaskDoc.Universalid )
	Call lTaskDoc.ReplaceItemValue ("NoticeType", "L")
	'Für Anzeige im Kalender
	Call lTaskDoc.ReplaceItemValue("CalendarDateTime", CDat ("28.06.2011 09:20"))
	Call lTaskDoc.AppendItemValue("_ViewIcon", 168)
	
	Call lTaskDoc.Send(False,iRecipient)
	Call lTaskDoc.save(true,false)	

Titel: Re: ToDo Eintrag per Script erzeugen und delegieren
Beitrag von: ata am 29.06.11 - 14:26:30

Hallo Andreas,

vergleiche doch ein reel erstelltes Todo und dein programmatisch erzeugtes miteinander. Wenn beim Löschen was passiert, dann müsstest du im Code der Maildatenbank mal schauen, was für Bedingungen zum Versenden der Mail führen...

Toni

Titel: Re: ToDo Eintrag per Script erzeugen und delegieren
Beitrag von: AndreasWegener0815 am 29.06.11 - 15:56:38

Hi Toni.
Das mit dem löschen passiert nur, wenn das ToDo nach Markierung "Erledigt" direkt (per Hand) gelöscht wird.  Wenn ich ein paar Minuten warte, dann gibt es keine "Abgelehnt" mail.
Da läuft wohl noch was im Hintergrund und ist noch nicht aktualisiert.
Vielen Dank für deine Antwort
VG
Andreas

Titel: Re: ToDo Eintrag per Script erzeugen und delegieren
Beitrag von: ata am 29.06.11 - 16:36:04

... sieht wohl so aus...

Toni

Titel: Re: ToDo Eintrag per Script erzeugen und delegieren
Beitrag von: braveheart2001 am 06.07.11 - 14:15:55

Hi Andreas,

das Problem mit dem nicht funktionierenden Alarm kenne ich nur zu gut.
Da zieht meines Erachtens immer die Einstellung des Calendar Profiles.
Du kannst deinem Script da mitgeben was du willst. War zumindest bei mir so.

Sollte jemand andere Erfahrungen haben... :-:

Gruß
Andreas