|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
| Tags: busy, checking, free, status |
|
|
Thread Tools | Display Modes |
|
#1
November 27th 07, 07:36 PM
posted to microsoft.public.outlook.program_forms
|
|||
|
|||
Checking for free busy status
I am checking for resource availability and checking for any conflicts with
other meetings. I want to check on a 30 mins interval. The code below is not working. iCurrentSlotStart and iCurrentSlotEnd in the below code always returns 0. Please help to make this work. Thanks in advance Regards Sub CommandButton3_Click() StartDate = FormatDateTime("11/28/2007 1:30:00 PM") EndDate = FormatDateTime("11/28/2007 2:30:00 PM") strFreeBusy = Item.Recipients(1).FreeBusy(FormatDateTime(StartDa te,vbShortDate), 30, False) oRecipient.resolve iCurrentSlotStart = Int(DateDiff("n", CDate(StartDate), CDate(StartDate)) \ 30) iCurrentSlotEnd = Int(DateDiff("n", CDate(EndDate), CDate(EndDate)) \ 30) strFreeBusyTemp = Left(strFreeBusy, iCurrentSlotEnd) strFreeBusyTemp2 = StrReverse(strFreeBusyTemp) strFreeBusy2 = StrReverse(Left(strFreeBusyTemp2, Len(strFreeBusyTemp2) - iCurrentSlotStart)) iBusySlot = InStr(1, strFreeBusy2, "1") If iBusySlot 0 Then Msgbox "Conflict with another meeting" Exit Sub End If End Sub 
|
| Ads |
|
#2
November 27th 07, 08:42 PM
posted to microsoft.public.outlook.program_forms
|
|||
|
|||
|
Checking for free busy status
I'm not sure what you're trying to do with this expression:
DateDiff("n", CDate(StartDate), CDate(StartDate)) It would always return 0, because the two dates are identical. -- Sue Mosher, Outlook MVP Author of Microsoft Outlook 2007 Programming: Jumpstart for Power Users and Administrators http://www.outlookcode.com/article.aspx?id=54 "GSK" wrote in message ... I am checking for resource availability and checking for any conflicts with other meetings. I want to check on a 30 mins interval. The code below is not working. iCurrentSlotStart and iCurrentSlotEnd in the below code always returns 0. Please help to make this work. Thanks in advance Regards Sub CommandButton3_Click() StartDate = FormatDateTime("11/28/2007 1:30:00 PM") EndDate = FormatDateTime("11/28/2007 2:30:00 PM") strFreeBusy = Item.Recipients(1).FreeBusy(FormatDateTime(StartDa te,vbShortDate), 30, False) oRecipient.resolve iCurrentSlotStart = Int(DateDiff("n", CDate(StartDate), CDate(StartDate)) \ 30) iCurrentSlotEnd = Int(DateDiff("n", CDate(EndDate), CDate(EndDate)) \ 30) strFreeBusyTemp = Left(strFreeBusy, iCurrentSlotEnd) strFreeBusyTemp2 = StrReverse(strFreeBusyTemp) strFreeBusy2 = StrReverse(Left(strFreeBusyTemp2, Len(strFreeBusyTemp2) - iCurrentSlotStart)) iBusySlot = InStr(1, strFreeBusy2, "1") If iBusySlot 0 Then Msgbox "Conflict with another meeting" Exit Sub End If End Sub
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Tentative always shows up as Busy when publishing Free/Busy to a file share | ralfthewise | Outlook - Calandaring | 0 | September 26th 07 12:17 AM |
| All Day Event Free/Busy Status | The Merg | Outlook - Calandaring | 5 | August 31st 07 12:48 AM |
| Free/Busy | Snookie1950 | Outlook - Calandaring | 1 | December 28th 06 08:40 PM |
| How can I add another time status (other than Free,Busy,Tentitive, | Ed S | Outlook - Calandaring | 3 | October 10th 06 08:54 PM |
| how to change busy/free time default from busy to free in calenda | Dr. D | Outlook - Calandaring | 0 | January 26th 06 05:30 AM |
Linear Mode
