Reshedule repeated meeting

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

thanks for ur respose .Actually i was looking for some logic so that i can implement myown code.

Here is the code i am trying ..

Set mdb = s.GetDatabase("","Applications\S-Z\Siebel\LoNoTestMailDB.nsf", False)
If mdb Is Nothing Then ' Start of if 1
MessageBox "",,"database does not exist"
Exit Function
Else
Dim collection As NotesDocumentCollection
Set vwApptunid=mdb.Getview("($ApptUNID)")
Set collection=vwApptunid.Getalldocumentsbykey(ApptUNID)
Set updatedoc =collection.Getfirstdocument()
Dim dtsdate as NotesDateTime
Dim dtedate As NotesDateTime
Dim dtnsdate As NotesDateTime
Dim dtnedate As NotesDateTime

Set dtsdate = New NotesDateTime(sdate)
Set dtedate = New NotesDateTime(edate)
Set dtnsdate = New NotesDateTime(nsdate)
Set dtnedate = New NotesDateTime(nedate)

MsgBox collection.Count
While Not updatedoc Is Nothing 'Start of While 1

Dim varstartdatetime As Variant
Dim varenddateTime As Variant

varstartdatetime=updatedoc.STARTDATETIME ' Getting stime from update document
varenddateTime=updatedoc.EndDateTime 'Getting etime from update document

If (updatedoc.IsResponse) Then 'Start of if 2

MsgBox "it Isa response doc"

MsgBox updatedoc.Noteid
Dim i As Integer
For i = 0 To UBound(varstartdatetime)
Dim tempvarstartdatetime As Variant

tempvarstartdatetime=varstartdatetime(i)

Dim dtvarstartdatetime As NotesDateTime
Set dtvarstartdatetime = New NotesDateTime(tempvarstartdatetime)
Dim arrstartdatetime() As NotesDateTime
Dim arrarenddate() As NotesDateTime
ReDim Preserve arrstartdatetime(i)
ReDim Preserve arrarenddate(i)
If dtvarstartdatetime.TimeDifference( dtsdate ) = 0 Then

MsgBox " time donditio condition is true"

If dtvarstartdatetime.lsLocaltime<> dtnsdate.lsLocaltime Then
'If dtvarstartdatetime.lsLocaltime<> dtnsdate.lsLocaltime Then

MsgBox " truemaanu "

Dim dispsdate() As NotesDateTime
ReDim dispsdate(i)
Set dispsdate(i)=New NotesDateTime ((dtnsdate.DateOnly)+" "+(dtnsdate.TimeOnly))
Set arrstartdatetime(i)=New NotesDateTime ((dtsdate.DateOnly)+" "+(dtnsdate.TimeOnly))
Set arrarenddate(i)=New NotesDateTime ((dtvarstartdatetime.DateOnly)+" "+(dtedate.TimeOnly))
GoTo step1:GoTo step1

End If
End If
Set arrstartdatetime(i)=New NotesDateTime ((dtvarstartdatetime.DateOnly)+" "+(dtvarstartdatetime.TimeOnly))
Set arrarenddate(i)=New NotesDateTime ((dtvarstartdatetime.DateOnly)+" "+(dtedate.TimeOnly))
step1:

Next

updatedoc.CalendarDateTime=dispsdate
updatedoc.RepeatEndDates=arrarenddate ' As per output this is startup date only
updatedoc.EndDateTime= arrarenddate 'As per output in response document , this is all the date time
updatedoc.dispReadRepeatDateList=arrstartdatetime
updatedoc.dispRepeatDateList= arrstartdatetime
updatedoc.OrgRepeat="1"
updatedoc.RepeatInstanceDates=arrstartdatetime ' all date time
updatedoc.EndDate = dtsdate.DateOnly
updatedoc.EndTime = dtedate.TimeOnly
updatedoc.StartDate = dtnsdate.dateonly
updatedoc.StartTime = dtnsdate.TimeOnly
updatedoc.STARTDATETIME=arrstartdatetime ' all date time

Call updatedoc.Save(True,False)
Dim v1 As Variant

v1=updatedoc.STARTDATETIME
Dim j As Integer

For j = 0 To UBound(v1)

Dim vard1 As Variant

vard1 =v1(j)
Dim d1 As NotesDateTime

Set d1= New NotesDateTime(vard1)

MsgBox d1.lsLocaltime &"D1"
MsgBox dtsdate.lsLocaltime &"dtsdate"

If d1.Dateonly > dtsdate.Dateonly Then

MsgBox j

MsgBox "Is grreter "

'If dtsdate.TimeDifference( d1) > 0 Then

MsgBox " trueddsfdsfdfd"
Dim a1() As NotesDateTime
Dim a2() As NotesDateTime
MsgBox " trueddsfdsfdfd"

ReDim Preserve a1(j)As NotesDateTime
ReDim Preserve a2(j)As NotesDateTime

Set a1(j)=New NotesDateTime ((d1.DateOnly)+" "+(d1.TimeOnly))
Set a2(j)=New NotesDateTime ((d1.DateOnly)+" "+(dtedate.TimeOnly))

End If

Next

Dim pdoc As NotesDocument

Dim s1 As String

s1=updatedoc.Parentdocumentunid
Set pdoc=mdb.Getdocumentbyunid(s1)

If Not(pdoc Is Nothing) Then

Dim Response_Rdoc As NotesDocument
Set Response_Rdoc= mdb.CreateDocument
Call Response_Rdoc.MakeResponse (pdoc)
'making response document
With Response_Rdoc
.Replaceitemvalue "$CSFlags","i"
.Replaceitemvalue "$CSVersion","2"
.Replaceitemvalue "$NoPurge",enddate
.Replaceitemvalue "$PublicAccess","1"
.Replaceitemvalue "$RefOptions","1" '
.AltChair="Jayasree.sarojini@nl.abnamro.com"
.ApptUNID=CStr(pdoc.UniversalID) ' universal id of the parent document
.CalendarDateTime=a1 'All the date times
.Location=" Location"
Call CreateType(cType , Response_Rdoc)
.Chair="Jayasree.sarojini@nl.abnamro.com"
'.RequiredAttendees =cRqdattendees
.EndDate = d1.DateOnly
.RepeatEndDates=a2 ' As per output this is startup date only
.EndDateTime= a2 'As per output in response document , this is all the date time
.EndTime = dtedate.TimeOnly
'// new fields added
.dispReadRepeatDateList=a1
.dispRepeatDateList= a1
'.ExcludeFromView = ExcludeFromView ' keeps items out of the draft view.
.Form = "Appointment"

.MeetingType="1"
.OrgRepeat="1"

.RepeatInstanceDates=a1 ' all date time
.Repeats="1"
.SchedulerSwitcher="1"
.SequenceNum=1
.StartDate = d1.dateonly
.StartTime = d1.TimeOnly
.STARTDATETIME=a1 ' all date time
.Subject = "Testing for the final time "
.txtNum="5"
.UpdateSeq=1
.WebDateTimeInit="1"
.tmpAdditionalInviteeButton="1"
.tmpAdditionalRoomsButton="1"
.NoticeType=""
.ComputeWithForm True,False
.Save True, False
''.PutInFolder( "Calender" )
End With

End If

Else

End If 'End of if 2

Set updatedoc= collection.Getnextdocument(updatedoc)

Wend 'End of While 1

End If' end of if 1 End If' end of if 1

Exit Function
Error_Handler :

Print "An error occurred on line " & Trim(CStr(Erl)) & ": " & Error$ & Trim(CStr(Err))

Feedback response number WEBB9MAB24 created by ~Autumn Zekfreeplopgon on 07/23/2014