Domino 9 und frühere Versionen > ND8: Entwicklung

ToDo Eintrag per Script erzeugen und delegieren

(1/1)

AndreasWegener0815:
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)
--- Ende Code ---

ata:
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

AndreasWegener0815:
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

ata:
... sieht wohl so aus...

Toni

braveheart2001:
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

Navigation

[0] Themen-Index