Planer bei einer Besprechung zeigt Ersteller nicht an

[platzebo]

Hallo,

ich hab eine Anwendung geschrieben, die Besprechungen in der Mailbox eines Users erstellen kann - soweit so gut.
Wenn ich auf den Planer gehe und mir die Freie-Zeit anschaun möchte, dann sehe ich den Owner nicht in der Liste (Alle Personen) .
Es hilft auch nichts das Dokument im UI zu öffnen und speichern.
Erst wenn ein Teilnehmer zur Besprechung hinzugefügt wurde und die Einladungen versendet werden, dann steht auch der Owner in der Liste drinnen. Ich hab die Namensitems zweier Dokumente verglichen (eines funkt - eines nicht), konnte aber keine Unterschiede feststellen.
Kann mir da jemand weiterhelfen bzw. einen Tip geben?

Danke

Anbei der Code, mit dem die Besprechung erstellt wird

   Set aDoc = mdb.CreateDocument
   aDoc.Form = "Appointment"
         
   
   Set aDoc.kbz_sync = kbzApp.dtLastSync                  
   aDoc.Location = kbzApp.ortManuell      
   
   Select Case kbzApp.appType
   Case "3": 'Besprechung
      
      aDoc.AppointmentType = "3"
      aDoc.Subject = kbzApp.subject   
      
      'Namensfelder
      Set nam = New NotesName(kbzApp.owner)
      Set item = New NotesItem(aDoc, "From", nam.Canonical, AUTHORS)   
      
      Set item = New NotesItem(aDoc, "AltChair", nam.Canonical, NAMES)
      Set item = New NotesItem(aDoc, "EnterSendTo", kbzApp.requiredPersonsRecipients, NAMES)
      Set item = New NotesItem(aDoc, "SendTo", kbzApp.requiredPersonsRecipients, NAMES)
      Set item = New NotesItem(aDoc, "InetSendTo", kbzApp.requiredPersonsINetRequiredNames, NAMES)
      Set item = New NotesItem(aDoc, "RoomToReserve", kbzApp.requiredRooms, NAMES)
      Set item = New NotesItem(aDoc, "Resources", kbzApp.requiredResources, NAMES)         
      
      aDoc.~$altPrincipal = nam.Canonical
      aDoc.Chair = nam.Canonical   
      aDoc.Principal = nam.Canonical
      
      'Datumsfelder
      Set dt = New NotesDateTime(kbzApp.startDatum.DateOnly + " " + kbzApp.startZeit.timeOnly)
      Set dt1 = New NotesDateTime(kbzApp.startDatum.DateOnly + " " + kbzApp.startZeit.timeOnly)
      Call dt1.AdjustMinute(kbzApp.duration)
      aDoc.kbz_duration = kbzApp.duration
      
      Set dtr = session.CreateDateRange
      dtr.Text = dt.DateOnly + " " + dt.TimeOnly + " - " + dt1.DateOnly + " " + dt1.TimeOnly   
      
      aDoc.CalendarDateTime = dtr.StartDateTime.LSLocalTime
      aDoc.StartDate = dtr.StartDateTime.LSLocalTime
      aDoc.StartTime = dtr.StartDateTime.LSLocalTime
      aDoc.StartDateTime = dtr.StartDateTime.LSLocalTime
      aDoc.StartTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=90$ZN=W. Europe"                                                    
      aDoc.EndDate = dtr.EndDateTime.LSLocalTime
      aDoc.EndTime = dtr.EndDateTime.LSLocalTime
      aDoc.EndDateTime = dtr.EndDateTime.LSLocalTime
      aDoc.EndTimeZone = "Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=90$ZN=W. Europe"
      
      'Fixwerte setzen
      Redim var(2)
      var(0) = "D"
      var(1) = "A"
      var(2) = "S"
      aDoc.ExcludeFromView = var
      
      Redim var(15)
      var(0) = "$S:1"
      var(1) = "$L:1"
      var(2) = "$B:1"
      var(3) = "$R:1"
      var(4) = "$E:1"
      var(5) = "$W:1"
      var(6) = "$O:1"
      var(7) = "$M:1"
      var( = "RequiredAttendees:1"
      var(9) = "INetRequiredNames:1"
      var(10) = "AltRequiredNames:1"
      var(11) = "StorageRequiredNames:1"
      var(12) = "OptionalAttendees:1"
      var(13) = "INetOptionalNames:1"
      var(14) = "AltOptionalNames:1"
      var(15) = "StorageOptionalNames:1"      
      aDoc.~$CSWISL = var
      
      Redim var(15)
      var(0) = "$S"
      var(1) = "$L"
      var(2) = "$B"
      var(3) = "$R"
      var(4) = "$E"
      var(5) = "$W"
      var(6) = "$O"
      var(7) = "$M"
      var( = "RequiredAttendees"
      var(9) = "INetRequiredNames"
      var(10) = "AltRequiredNames"
      var(11) = "StorageRequiredNames"
      var(12) = "OptionalAttendees"
      var(13) = "INetOptionalNames"
      var(14) = "AltOptionalNames"
      var(15) = "StorageOptionalNames"
      aDoc.~$WatchedItems = var
      
      aDoc.~$CSVersion = "2"
      aDoc.~$ExpandGroups = "3"
      aDoc.~$FromPreferredLanguage = "de-AT"
      aDoc.~$HFFlags = "1"
      aDoc.~$IconSwitcher = "Meeting"
      aDoc.~$PublicAccess = "1"
      aDoc.~$SMTPKeepNotesItem = "1"
      aDoc.~$StorageTo = "0"
      aDoc.~$TableSwitcher = "Description"
      
      aDoc.ApptUNID = aDoc.Universalid      
      aDoc.IsBroadcast = "0"
      aDoc.Logo = "StdNotesLtr0"
      aDoc.MailOptions = "0"
      aDoc.OrgTable = "C0"
      aDoc.Reason = "3"
      aDoc.SchedulerSwitcher = "1"
      aDoc.UpdateSeq = 1
      aDoc.SEQUENCENUM = 1
      aDoc.WebDateTimeInit = "1"
      
      'Für die Freie Zeit Suche
      aDoc.~$BusyName = nam.Canonical
      aDoc.BookFreeTime = ""
      aDoc.~$BusyPriority = "1"
      
      Select Case kbzApp.alarm
      Case 0: 'kein Alarm
      Case 1: 'use Mailboxdefaults
         
         'Alarmeinstellungen
         If kbzApp.pfDoc.GetItemValue("EnableAlarms")(0) <> "" Then
            If kbzApp.pfDoc.GetItemValue("SetAlarmAppointment")(0) <> "" Then
               If Cstr(kbzApp.pfDoc.GetItemValue("AppointmentLead")(0)) <> "" Then
                  minuten = kbzApp.pfDoc.GetItemValue("AppointmentLead")(0)                     
                  aDoc.Alarms = "1"
                  aDoc.~$Alarm = 1
                  aDoc.~$AlarmOffset = Fix(minuten) * -1
                  If kbzApp.pfDoc.GetItemValue("AlarmSound")(0) <> "" Then
                     aDoc.~$AlarmSound = kbzApp.pfDoc.AlarmSound
                  End If
                  aDoc.~$AlarmUnit = "M"                     
               End If
            End If         
         End If
         
      Case Else 'kbz-definierter Alarm
         
         aDoc.Alarms = "1"
         aDoc.~$Alarm = 1
         aDoc.~$AlarmOffset = Fix(Abs(kbzApp.alarm)) * -1
         If kbzApp.pfDoc.GetItemValue("AlarmSound")(0) <> "" Then
            aDoc.~$AlarmSound = kbzApp.pfDoc.AlarmSound
         End If
         aDoc.~$AlarmUnit = "M"   
         
      End Select

[Peter Klett]

Nur ein Schuss ins Blaue ...

Ich würde versuchen, ob es mit der zweiten Zeile besser wird. Bei Set item ... wird ein Item erzeugt, das Issummary = False ist (ob das bei Autorenfeldern auch so ist, weiß ich allerdings nicht), solche Items werden nicht in Ansichten angezeigt, vielleicht wird die Information ja aus einer Ansicht gelesen.

Set item = New NotesItem(aDoc, "From", nam.Canonical, AUTHORS)
item.Issummary = True

[platzebo]

Hallo Peter,

das From-Feld ist vom Type Summary

Feldname: From
Datentyp: Text
Datenlänge: 38 Byte
Seq.-Num.: 1
Doppeleintrags-ID: 0
Feld-Flags: SUMMARY READ/WRITE-ACCESS NAMES

Aber danke

Lg Mike