M
masani paresh
Hi Friends,
We have almost done with the macro and it is working fine on some
*machines.* We have one question. Could you please help on this and we are
done.
On some machine below portion of code works in strenge manner.
For Each olkAppt In olkThisSeries
MsgBox Date & " " & DateValue(olkAppt.Start)
If Date < DateValue(olkAppt.Start) Then Exit Do
Set olkNewAppt = Application.CreateItem(olAppointmentItem)
With olkNewAppt
.Start = olkAppt.Start
.End = olkAppt.End
.Subject = olkAppt.Subject
.Body = olkAppt.Body
.Location = olkAppt.Location
.ReminderSet = olkAppt.ReminderSet
.BusyStatus = olkAppt.BusyStatus
.Save
End With
Next
The olkAppt.Start time returns always the date and time of first meeting and
hence this loop goes in infinite loop. What could be the reason here? We also
tried below code but no luck. Please note that it happens only on some
machine while working on another machines.
Do While True
MsgBox Date & " " & DateValue(olkAppt.Start)
If Date < DateValue(olkAppt.Start) Then Exit Do
Set olkNewAppt = Application.CreateItem(olAppointmentItem)
With olkNewAppt
.Start = olkAppt.Start
.End = olkAppt.End
.Subject = olkAppt.Subject
.Body = olkAppt.Body
.Location = olkAppt.Location
.ReminderSet = olkAppt.ReminderSet
.BusyStatus = olkAppt.BusyStatus
.Save
End With
Set olkAppt = olkThisSeries.GetNext
Loop
Thanks in advanced
We have almost done with the macro and it is working fine on some
*machines.* We have one question. Could you please help on this and we are
done.
On some machine below portion of code works in strenge manner.
For Each olkAppt In olkThisSeries
MsgBox Date & " " & DateValue(olkAppt.Start)
If Date < DateValue(olkAppt.Start) Then Exit Do
Set olkNewAppt = Application.CreateItem(olAppointmentItem)
With olkNewAppt
.Start = olkAppt.Start
.End = olkAppt.End
.Subject = olkAppt.Subject
.Body = olkAppt.Body
.Location = olkAppt.Location
.ReminderSet = olkAppt.ReminderSet
.BusyStatus = olkAppt.BusyStatus
.Save
End With
Next
The olkAppt.Start time returns always the date and time of first meeting and
hence this loop goes in infinite loop. What could be the reason here? We also
tried below code but no luck. Please note that it happens only on some
machine while working on another machines.
Do While True
MsgBox Date & " " & DateValue(olkAppt.Start)
If Date < DateValue(olkAppt.Start) Then Exit Do
Set olkNewAppt = Application.CreateItem(olAppointmentItem)
With olkNewAppt
.Start = olkAppt.Start
.End = olkAppt.End
.Subject = olkAppt.Subject
.Body = olkAppt.Body
.Location = olkAppt.Location
.ReminderSet = olkAppt.ReminderSet
.BusyStatus = olkAppt.BusyStatus
.Save
End With
Set olkAppt = olkThisSeries.GetNext
Loop
Thanks in advanced