Berechtigungsproblem

[mgeidl]

Hallo Leute!

Ich habe in einer CRM-DB bei den Kundenterminen eine Schaltfläche die per LS diesen Termin auch in den Mail-Kalender einträgt. Funktioniert ja alles soweit. Die AD-Mitarbeiter geben Leseberechtigung für Ihren Kalender (Version5) an die Chef´s. Diese können nun alle Einträge, die direkt im Kalender gemacht werden, lesen aber diese Kalendereinträge, die über die CRM als Mail an die Mail-DB gesendet werden, nicht. Lt. einem Kollegen funktioniert es aber, wenn die 4.6 Schablone hinterlegt ist.

lg
Marietta

Vielleicht kann mir ja jemand helfen, anbei noch der Script-Code:

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim UIdoc As NotesUIdocument
   Dim Doc As NotesDocument
   Dim DB As NotesDatabase
   Dim DocM As notesDocument
   
   Set DB=s.CurrentDatabase
   Set UIDoc=ws.CurrentDocument
   Set Doc=UIDoc.Document
   Set DocM=New NotesDocument(DB)
   
   DocM.AppointmentType="0"
   Set Body=New NotesRichtextItem(DocM,"Body")
   Call Body.AppendDoclink(Doc,"...")
   
   DocM.ExcludeFromView="D"
   DocM.Form="Appointment"
   DocM.OrgTable="C0"
   
   DocM.StartDate=Doc.StartDate(0)
   DocM.StartDateTime=Doc.StartTime(0)
   DocM.EndDateTime=Doc.EndTime(0)
   DocM.CalendarDateTime=Doc.StartDate(0)
   DocM.EndDate=Doc.StartDate(0)
   DocM.Subject=Ucase(Doc.kunde(0)+" - "+Doc.besuchsgrund(0))
   
   
   Call DocM.AppendItemValue("_ViewIcon",160)
   DocM.SendTo=Evaluate({@Name([CN];@UserName)},doc)
   
   Call docM.Send(False)
   
End Sub

[ata]

... vielleicht ist das der Grund:

To keep the new item in the document, you must call the Save method after calling AppendItemValue.
If the document already has an item called itemName$, AppendItemValue does not replace it. Instead, it creates another item of the same name, and gives it the value you specify.
The IsSummary property of the new item defaults to True, which means that the item value can be displayed in a view or folder.

... Auszug aus der Notes-Hilfe...

... überprüfe die IsSummary-Eigenschaft - ist die True?

ata

[mgeidl]

Bin in der Zwischenzeit an einem anderen Projekt gesessen.

Ich glaub ich hab das Feld gefunden, dass Schuld daran ist:

$PublicAccess ist bei normalen Kalendereinträgen auf "1", bei den Terminen vom CRM ist dieses Feld in der Felderliste nicht enthalten.

Kann mir jemand sagen, wie ich das Feld mit meinem Script füllen kann?

Es ist nämlich auch so, dass wenn jemand nur die Berechtigung hat, meinen Kalender zu lesen, sieht er den Termin nicht, hat er aber auch die Berechtigung, meine Mails zu lesen, sieht man alles ganz normal (aber auch die Mail´s und das wollen unsere AD´s natürlich nicht)

Ich hoffe, es kann mir jemand helfen.

Marietta

[ata]

... mit

DocM.~$PublicAccess = "1"

ata

[mgeidl]

Guten Morgen!

Das funktioniert ja prima, habßs in der CRM-DB eingebaut.

Jetzt hab ich nur noch das Problem, bei bereits aus CRM erstellten Kalendereinträgen dieses Feld zu füllen.

Danke für die Hilfe

Marietta