|
- Subject: Re: deleting appointmets in 1 specific month
- Author: Diane Poremsky
- Date: 13 Sep 2011
- References: 1
You need to step backwards - when you move forward you'll skip every
other appt. to do this you need to get a count of appt first then run
through them backwards:
For i = [#of appt] To 1 Step -1
[delete appts]
Next i
Diane Poremsky [MVP - Outlook]
Outlook Tips: http://www.outlook-tips.net/
Outlook & Exchange Solutions Center: http://www.slipstick.com/
OutlookForums http://www.outlookforums.com
On 9/7/2011 12:41 PM, Filips Benoit wrote:
> Dear All,
>
> The code below does not run always correctly.
> Somethimes appointments in the specific month has not been deleted !
>
> Can't see why!
>
> 'Delete all appointment in this month
> For Each objAppointement In myNewFolder.Items
> If Month(objAppointement.Start) = iMonth And Year(objAppointement.Start)
> = iYear Then objAppointement.Delete
> DoEvents
> Next
>
> Thanks,
>
> Filip
| 07 Sep 2011 | deleting appointmets in 1 specific month | .Filips Benoit |
| 07 Sep 2011 |  Re: deleting appointmets in 1 specific month | .Filips Benoit |
| 13 Sep 2011 |  Re: deleting appointmets in 1 specific month | .Diane Poremsky |
Contact Us
All times are in (US) Eastern Daylight Time (GMT -4:00)
All times are in (US) Eastern Daylight Time (GMT -4:00)