Resourcenreservierung

[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