Domino 9 und frühere Versionen > ND6: Entwicklung

Kalendereinträge automatisch erstellen

<< < (5/5)

novus246:
ja ist wirklich. Hab grad nochmal nachgeschaut.

Sandra

Fedaykin:
Hi Sandra

Habe Code etwas angepasst und Sub daraus gemacht.
Aufruf:
Sub Initialize
   Dim datum_von As String
   Dim datum_bis As String
   Dim Betreff As String
   
   datum_von = "20.11.2007"
   datum_bis = "23.11.2007"
   Betreff="Ferien"
   
   CreateAppointment datum_von,datum_bis,Betreff
End Sub


Sub CreateAppointment(Von As String,Bis As String,Betreff As String)
   Dim session As New NotesSession
   Dim dbMailbox As New NotesDatabase( "", "" )
   Dim docAppointment As NotesDocument
   Dim dateRange As NotesDateRange
   Dim dauer As Integer
   Dim tmpdate As String
   Dim tmpdate2 As String
   Dim datum_von As String
   Dim datum_bis As String
   Dim startDate As NotesDateTime
   Dim endDate As NotesDateTime
   Dim CalendarDateTime() As NotesDateTime
   Dim user As NotesName
   Dim i As Long
   
   dbMailbox.OpenMail
   If Not dbMailbox Is Nothing Then
      Set startDate=New NotesDateTime(Von)
      Set endDate=New NotesDateTime(Bis)
      
      dauer=endDate.TimeDifference(startDate)/60/60/24
      
      Set docAppointment=New NotesDocument(dbMailbox)
      With docAppointment
         .Form = "Appointment"
         .subject = Betreff
         .AppointmentType="2"
         Set dateRange = session.CreateDateRange
         
         tmpDate = Von + " 00:00:01"
         tmpDate2 = Bis + " 23:59:59"
         
         Set dateRange.StartDateTime = startDate
         Set dateRange.EndDateTime = endDate
         Set .TimeRange = dateRange
         
         Redim CalendarDateTime(dauer)
         For i=0 To dauer
            Set CalendarDateTime(i)=New NotesDateTime(tmpDate)
            CalendarDateTime(i).AdjustDay(i)
         Next
         .ReplaceItemValue "CalendarDateTime",CalendarDateTime
         .ReplaceItemValue "_ViewIcon",9         
         .SequenceNum = 1
         .OrgTable = "P0"
         
         Set .StartDateTime = New NotesDateTime (tmpDate)
         Set .StartDate = New NotesDateTime (tmpDate)
         Set .EndDateTime = New NotesDateTime (tmpDate2)
         Set .EndDate = New NotesDateTime (tmpDate2)
         
         Set user=session.CreateName(session.UserName)
         .Chair=user.Canonical
         .Principal=user.Canonical
         
         .ComputeWithForm False,False
         
         .Save False,False
      End With
   End If
End Sub

Gruss
Remo

novus246:
Morgen Remo,

vielen Dank. Habe es grad nochmal versucht.

Aber er setzt mir den Eintrag immer noch in die Entwürfe meines Postkorbes. Wenn ich dann den Eintrag nochmal speichere, dann erscheint er auch richtig im Kalender.

Kann man das noch ändern?

Gruss
Sandra

novus246:
So hab es nochmal versucht und zwar setzt er es mir jetzt richtig in den Kalender.

Aber eine Kopie landet immer noch in den Entwürfen. Aber ich glaube damit könnte ich zur Not leben.

Hab es auch mal als Aufgabe umgestellt, funktioniert auch.

Vielen Dank nochmal für die Hilfe.

Navigation

[0] Themen-Index

[*] Vorherige Sete