Domino 9 und frühere Versionen > ND8: Entwicklung

Resourcenreservierung

(1/1)

oxyd21:
Moin,

ich versuche gerade, Ressourcen aus einer Applikation heraus zu reservieren. Dies klappt auch zuverlässig für nicht-wiederholende Termin. Wenn ich die Ressource aber über mehrere Tage hinweg buchen möchte, verarbeitet die RessourcenDB die Mail nicht.

Ich habe die Mail aus dem Kalender mit einer aus meiner Appl. verglichen. Es gibt keine unterschiede, ausser, dass die Nachgemachte im Feld From und SendTo Namenswerte enthält, das Orginal nur Textwerte.

Das Calendaring Schema hat mich auch nicht weiter gebracht.

Sieht vielleicht jemand den Fehler in dem Code?

Viele Grüße,
Michael


--- Code: ---Function Send (varArray As Variant) As Variant

    On Error GoTo err_handler

    Send = False
   
    Dim item As NotesItem
    Dim i As Integer
    Dim docMail As NotesDocument
    Dim datArray() As NotesDateTime
   
    Set docMail = GdbCurrent.CreateDocument
   
        If IsArray(varArray) Then
        ReDim datArray (UBound(varArray))
       
        For i = LBound(varArray) To UBound(varArray) Step 1
            Set datArray(i) = varArray(i)
        Next
    End If
       
    Set item = New NotesItem(docMail, "RepeatDates", datArray)
    Set item = New NotesItem(docMail, "RepeatInstancesDates", datArray)
    Call docMail.Replaceitemvalue("OrgRepeat", "1" )
       
    Call docMail.Replaceitemvalue("$altPrincipal", Me.Username.Canonical )
    Call docMail.Replaceitemvalue("$CSFlags", "w")
    Call docMail.Replaceitemvalue("$CSVersion", "2")
    Call docMail.Replaceitemvalue("$FromPreferredLanguage", "en")
    Call docMail.Replaceitemvalue("$PublicAccess", "1")
    Call docMail.Replaceitemvalue("$SMTPKeepNotesItems", "1")
    Call docMail.Replaceitemvalue("$NoPurge", Me.endingTime )

    Call docMail.Replaceitemvalue("StartTimeZone", Me.TimeZone )
    Call docMail.Replaceitemvalue("EndTimeZone", Me.TimeZone )

    Call docMail.Replaceitemvalue("ResourceName", Me.ResourceName )
    Call docMail.Replaceitemvalue("Form", "Notice")
    Call docMail.Replaceitemvalue("Topic", Me.Topic )
   
    Call docMail.Replaceitemvalue("AppointmentType", "3") 
    Call docMail.Replaceitemvalue("NoticeType", "I")
    Call docMail.Replaceitemvalue("_ViewIcon", 133)
    Call docMail.Replaceitemvalue("ORGState", "6")
   
    Call docMail.Replaceitemvalue("Chair", Me.Username.Canonical )
    Call docMail.Replaceitemvalue("Principal", Me.Username.Canonical )
    Call docMail.Replaceitemvalue("altChair", Me.Username.Canonical )
    Call docMail.Replaceitemvalue("Encrypt", "0")
    Call docMail.Replaceitemvalue("SequenceNum", 1)
    Call docMail.Replaceitemvalue("UpdateSeq", 1)

    Call docMail.Replaceitemvalue("ApptUNID", docMail.UniversalID )
    Call docMail.Replaceitemvalue("Recipients", Me.ResourceName.Abbreviated )
    Call docMail.Replaceitemvalue("SendTo", Me.ResourceName.Abbreviated )
    Call docMail.Replaceitemvalue("RequiredResources", Me.ResourceName.Abbreviated )
    Set item = docMail.GetFirstItem( "RequiredResources" )
    item.Isnames= True
    Call docMail.Replaceitemvalue("ResourceName", Me.ResourceName.Abbreviated )
    Set item = docMail.GetFirstItem( "ResourceName" )
    item.Isnames= True
    Call docMail.Replaceitemvalue("ReservedBy", Me.Username.Canonical )
    Set item = docMail.GetFirstItem( "ReservedBy" )
    item.Isauthors = True
    Call docMail.Replaceitemvalue("ReservedFor", Me.Username.Canonical )
    Call docMail.Replaceitemvalue("ResourceType", "2")

    Call docMail.Replaceitemvalue("StartDate", Me.StartingTime )
    Call docMail.Replaceitemvalue("StartDateTime", Me.StartingTime )
    Call docMail.Replaceitemvalue("EndDateTime", Me.EndingTime )

    Call docMail.Replaceitemvalue("OriginalStartDate","")
   
    Call docMail.Send(False)

    Send = True
   
    Exit Function
--- Ende Code ---

Navigation

[0] Themen-Index