Domino 9 und frühere Versionen > ND6: Entwicklung

Appointments erscheinen nicht in dem Planer

<< < (2/2)

sja:
ja, es funktioniert schon besser, aber nicht ganz. Die Termine von Autor erscheinen jetzt erst in dem Planer, aber nachdem Teilnehmer den Termin annehmen, bzw. ablehnen, verschwindet der Termin aus dem Planer des Autors.

Source sieht jetzt bei mir so aus:
   ...
   ...
   DocM.~$PublicAccess = "1"
   DocM.~$BusyName = tmpAutor
   DocM.~$AltPrincipal = tmpAutor
   
   docM.CalendarDateTime =Cdat(AnfangD & " " & AnfangZ)
   Call docM.ComputeWithForm( False, False )
   Call docM.Save( True, True )
   
   If Not(Isarray(Einlad)) Then
      docM.SendTo = Evaluate(|@Trim(@Explode('| & Einlad & |';','))|, docM)
   Else
      docM.SendTo = Einlad
   End If
   
   docM.RequiredAttendees = docM.SendTo
   docM.AltRequiredNames = docM.SendTo
   docM.tmpRequiredAttendees  = docM.SendTo
   
   If (docM.SendTo(0) <> "") Then
      Call docM.Send( False, SendTo )
   End If
   DocM.~$BusyPriority = "1"
   Call docM.Save( True, True )

Es fehlt noch was. Was ist eigentlich "C & S" ?

Vielen Dank für weitere Hilfe.

Gruesse
Sofia

sja:
Hallo

wnn jemand dafür Interesse hat, das Problem mit der Erstellung eines Termins in der Notes Calender von einer Anwendung aus, habe ich auf folgende Weise glöst:

ich habe die Backend und Frontend susammen verwendet (s. Script unten) trotz der Warnung von Bernhard (er sagte mal, dass entweder in Backend oder in Frontend programmiert werden sollte, aber kann sein, dass ich ihn falsch verstanden habe ).
Also, jetzt funktioniert alles einwandfrei


Dim ws As NotesUIWorkspace   
Dim s As NotesSession
Dim db As NotesDatabase
Dim uidb As NotesDatabase
Dim uiDocA As NotesUIDocument
Dim docA As NotesDocument
Dim uiDocM As NotesUIDocument
Dim docM As NotesDocument
Dim tmpSRV As String
Dim tmpMAIL As String
Dim AnfangD As Variant
Dim EndeD As Variant
Dim AnfangZ As String
Dim EndeZ As String
Dim Einlad As Variant
Dim tmpBody As Variant
Dim tmpOrt As String
Dim tmpSubject As String
Dim tmpDokuTitel As String
Dim tmpKundenName As String
Dim rtitem As NotesRichTextItem
Dim tmpAutor As String
Dim nid As String
Dim itemTo As NotesItem
Dim tmpAppointmentType As String

Sub Click(Source As Button)
   
   Set s = New NotesSession
   Set ws = New NotesUIWorkspace
   Set uidb = s.CurrentDatabase
   Set uiDocA = ws.CurrentDocument   
   Call uiDocA.Refresh
   Call uiDocA.Save
   Set docA = uiDocA.Document
   
   tmpAutor = uiDocA.FieldGetText("Autor")
   AnfangD = uiDocA.FieldGetText("StartDate")
   EndeD = uiDocA.FieldGetText("StartDate")
   AnfangZ = Strleft(uiDocA.FieldGetText("TimeRange"), "-")
   EndeZ = Strright(uiDocA.FieldGetText("TimeRange"), "-")
   tmpOrt = uiDocA.FieldGetText("Ort")
   tmpBody = uiDocA.FieldGetText("DokuBeschreibung")
   
   tmpDokuTitel = uiDocA.FieldGetText("DokuTitel")
   tmpKundenName = uiDocA.FieldGetText("KundenName")   
   tmpSubject = tmpKundenName & " -> " & tmpDokuTitel
   
   tmpSRV = uiDocA.FieldGetText("srv_1")
   tmpMAIL = uiDocA.FieldGetText("MailDatei")
   Einlad = uiDocA.FieldGetText("SendTo")
   
   Set db = New NotesDatabase( tmpSRV, tmpMAIL )
   If Einlad = "" Then
      tmpAppointmentType = "0"
   Else
      tmpAppointmentType = "3"
   End If
   
   Call MailSenden()
   
   If uiDocA.FieldGetText("Anreisezeit") <> "" Then
      tmpSubject = "Anreisezeit -> " & tmpKundenName & " -> " & tmpDokuTitel
      AnfangZ = Strleft(uiDocA.FieldGetText("Anreisezeit"), "-")
      EndeZ = Strright(uiDocA.FieldGetText("Anreisezeit"), "-")
      If uiDocA.FieldGetText("RZbuchen") = "" Then
         Einlad = ""
         tmpAppointmentType = "0"
      End If
      Call MailSenden()
   End If
   
   If uiDocA.FieldGetText("Abreisezeit") <> "" Then
      tmpSubject = "Abreisezeit -> " & tmpKundenName & " -> " & tmpDokuTitel
      AnfangZ = Strleft(uiDocA.FieldGetText("Abreisezeit"), "-")
      EndeZ = Strright(uiDocA.FieldGetText("Abreisezeit"), "-")
      If uiDocA.FieldGetText("RZbuchen") = "" Then
         Einlad = ""
         tmpAppointmentType = "0"
      End If
      Call MailSenden()
   End If   
   
End Sub

Function MailSenden()
   Set uiDocM = ws.composeDocument(tmpSRV, tmpMAIL, "Appointment",4,4)
   
   Call uiDocM.FieldSetText("AppointmentType", tmpAppointmentType)
   Call uiDocM.Refresh
   
   Call uiDocM.FieldSetText("EnterSendTo",  Einlad)
   Call uiDocM.FieldSetText("StartDate", AnfangD)
   Call uiDocM.FieldSetText("EndDate", EndeD)
   Call uiDocM.FieldSetText("StartTime", AnfangZ)
   Call uiDocM.FieldSetText("EndTime", EndeZ)
   Call uiDocM.FieldSetText("Subject", tmpSubject)
   Call uiDocM.FieldSetText("Location", tmpOrt)
   Call uiDocM.FieldSetText("Body", tmpBody)
   
   Set docM = uiDocM.Document
   
   Set rtitem = New NotesRichTextItem( docM, "Body" )
   Call rtitem.AppendText( tmpBody )
   Call rtitem.AddNewLine( 2 )
   Call rtitem.AppendText( "Dokumentverknüpfung:  " )
   Call rtitem.AppendDocLink ( docA, tmpSubject )
   docM.RepeatStartDate = Cdat(AnfangD)
   docM.StartDateTime =Cdat(AnfangD & " " & AnfangZ)
   docM.EndDateTime =Cdat(EndeD & " " & EndeZ)
   docM.StartDate = Cdat(AnfangD)
   docM.EndDate = Cdat(EndeD)
   docM.StartTime =Cdat(AnfangZ)
   docM.EndTime = Cdat(EndeZ)
   docM.EnterSendTo = Einlad
   docM.Subject = tmpSubject
   docM.Location = tmpOrt
   docM.Body = tmpBody
   Call docM.Save( True, True )
   uiDocM.Reload
   Call uiDocM.Save
   uiDocM.Close
   
End Function

Weiss nicht, wie soll ich markieren, dass die Thema gelöst ist ?


Gruessen
Sofia

koehlerbv:

--- Zitat von: Semeaphoros am 16.11.04 - 20:59:48 ---Hoshee arbeitet an diesem Problem. Unterdessen gibt es einen Würgaround, beschrieben in den Regeln (siehe Buhtong oben) unter Abschnitt 3.5

--- Ende Zitat ---

Semeaphoros:
 ;D Lustiges Zitat, wo hast Du das bloss gefunden?  ;D

koehlerbv:
Hab' gerade die Adresse verlegt. Muss ich aber wieder suchen - ist ein absolut geniales Notes / Domino-Forum mit tollen Autoren. "Noteswinker" heisst da einer ;-)

Bernhard  ;D

PS: Ich war halt hilfsbereit - und faul ...

Navigation

[0] Themen-Index

[*] Vorherige Sete