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:
' 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
Danke und Gruss
Lutz