Domino 9 und frühere Versionen > ND6: Entwicklung

Kalendereintrag - Besprechung soll als Entwurf abgelegt werden

(1/2) > >>

Lutzw:
Hallo,

vieleicht kann mir jemand den entscheiden Tipp geben. Ich erzeuge per LotusScript ein Besprechungsdokument. Funktioniert wunderbar - es soll aber die Funktionalität haben, als wenn es "als Entwurf speichern" abgelegt wäre.
ich habe auch die entsprechende Einstellungen als Formelsprache gefunden.
MEMO_DRAFT:="4096";@SetField("ActionInProgress";MEMO_DRAFT);

aber, wie könnte ich das entsprechend mit LotusScript umsetzen?

zur besseren Erkärung - mein Quellcode:

--- Code: ---' Termin erstellen
Dim termin As New NotesDocument(maildb)
Dim terminName  As New NotesName(User)
Dim StartDatum As New NotesDateTime(sStartDate & " " & sStartTime)
Dim EndDatum As New NotesDateTime(sEndDate & " " & sEndTime)
Dim item As NotesItem

With termin
.location = Location
.Subject = Subject
Set item = New NotesItem(termin, "$AltPrincipal", session.UserName, NAMES)
Set item = New NotesItem(termin, "AltChair", session.UserName, NAMES)
Set item = New NotesItem(termin, "Principal", session.UserName, NAMES)

Dim TBody As New NotesRichTextItem(termin, "Body")
TBody.AppendText Body

Set .~$NoPurge =  EndDatum
Set .CalendarDateTime = StartDatum
Set .StartDate = StartDatum
Set .StartDateTime =  StartDatum
Set .StartTime =  StartDatum
Set .EndDate =  EndDatum
Set .EndDateTime =  EndDatum
Set .EndTime =  EndDatum

.~$Alarm = 1
.~$AlarmMemoOptions = ""
.~$AlarmOffset = -60
.~$AlarmSendTo = ""
.~$BusyPriority = "1"
.~$CSVersion = "2"
.~$LangChair = ""
.~$LangPrincipal = ""
.~$PublicAccess = "1"
.Alarms = "1"
.~_ViewIcon = 58
.AppointmentType = "3" 'Besprechung
.Chair = sLeitung ' Leitung
.RequiredAttendees= sTeilnehmer' Erforderliche Beteiligte
.SendTo =sTeilnehmer
                .Categories = sKategorie
.Form = "Appointment"

Dim exclude ( 1 To 2 ) As String
exclude(1) = "D"
exclude(2) = "S"
.ExcludeFromView = exclude
.Save True, True
End With
--- Ende Code ---

Danke und Gruss
Lutz

ghost:
Indem Du das Feld ActionInProgress auf "4096" setzt.

Call termin.ReplaceItemValue("ActionInProgress", "4096")

oder so ähnlich.

Viele Grüße
ghost

ghost:
Aber ist es nicht so, dass die Felder $BusyPriority und PostedDate nicht gesetzt sein dürfen?

Viele Grüße
ghost

Lutzw:
Hi Chost,

Call termin.ReplaceItemValue("ActionInProgress", "4096") hatte ich schon vorher ausprobiert, zeigte aber auch nicht die gewünschte Wirkung.

$BusyPriority habe gerade mal rausgenommen, das war´s auch nicht.

Gruss Lutz

Glombi:
Anbei ein Screenshot, den ich mit Teamstudio Delta (Delta of 2 Documents) erstellt habe.
Links = Entwurf | Rechts = Gesendet

Die aktuellen Feldwerte stehen in den eckigen Klammern, damit sollte ersichtlich sein, welche Felder wie gesetzt sein müssen.

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite