Calendar private appointments, an unresolved question...

  • Thread starter Thread starter Alberto_5015
  • Start date Start date
Status
Not open for further replies.
A

Alberto_5015

In Outlook 2003's calendar view you can see a placeholder for a private

appointment in another person's calendar.

There is a way to retrive non-confidential information (start, end and

free/busy status) by vba or it is impossible???

Thanks in advance,

Alberto
 
You need to use the GetFreeBusy method of the AddressEntry object to do this.

Alan Moseley IT Consultancy

http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.

"Alberto_5015" wrote:


> In Outlook 2003's calendar view you can see a placeholder for a private
> appointment in another person's calendar.

> There is a way to retrive non-confidential information (start, end and
> free/busy status) by vba or it is impossible???

> Thanks in advance,
> Alberto
 
Hi Alan, thanks for the hint!

I'm trying to do some experiments with the the GetFreeBusy method,

but it seems a little unpredictable...

Sometimes I got the right day and hour of an hidden appointment,

but sometime they are wrong!

And how can I find the end of the appointment???

Can anyone post a little example?

Thanks in advance,

Alberto

"Alan Moseley" wrote:


> You need to use the GetFreeBusy method of the AddressEntry object to do this.
> > Alan Moseley IT Consultancy
> http://www.amitc.co.uk

> If I have solved your problem, please click Yes below. Thanks.

> "Alberto_5015" wrote:
>
> > In Outlook 2003's calendar view you can see a placeholder for a private
> > appointment in another person's calendar.
> > There is a way to retrive non-confidential information (start, end and
> > free/busy status) by vba or it is impossible???
> > Thanks in advance,
> > Alberto
 
GetFreeBusy does not get the start and end times of appointments as you have

probably figured out. If a user has created an appointment in their

calendar, it will detect whether they have set the 'Show Time As' box to free

or busy. If the user has not done this then the method will not return the

information that you are expecting. Some sample code:-

Public Function GetFreeBusyOfSomeone(Person As String) As String

Dim objRecipient As Recipient

Dim objAddressEntry As AddressEntry

Dim strFreeBusy As String

Set objRecipient = Outlook.Session.CreateRecipient(Person)

objRecipient.Resolve

If objRecipient.Resolved Then

Set objAddressEntry = objRecipient.AddressEntry

strFreeBusy = objAddressEntry.GetFreeBusy(#7/7/2009#, 60)

Set objAddressEntry = Nothing

End If

Set objRecipient = Nothing

GetFreeBusyOfSomeone=strFreeBusy

End Sub

This gets a string showing Fred Bloggs free or busy status starting on the

7th July in 60 minute intervals for the next 30 days. Therefore if the first

character in the string is a 0 then the person is free from 00:00 till 01:00.

If it is a 1 then the person is marked as busy from 00:00 to 01:00, and so

on.

Alan Moseley IT Consultancy

http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.

"Alberto_5015" wrote:


> Hi Alan, thanks for the hint!

> I'm trying to do some experiments with the the GetFreeBusy method,
> but it seems a little unpredictable...
> Sometimes I got the right day and hour of an hidden appointment,
> but sometime they are wrong!

> And how can I find the end of the appointment???

> Can anyone post a little example?

> Thanks in advance,
> Alberto

> "Alan Moseley" wrote:
>
> > You need to use the GetFreeBusy method of the AddressEntry object to do this.
> > > > Alan Moseley IT Consultancy
> > http://www.amitc.co.uk
> > If I have solved your problem, please click Yes below. Thanks.
> > "Alberto_5015" wrote:
> >
> > > In Outlook 2003's calendar view you can see a placeholder for a private
> > > appointment in another person's calendar.
> > > > There is a way to retrive non-confidential information (start, end and
> > > free/busy status) by vba or it is impossible???
> > > > Thanks in advance,
> > > Alberto
 
Status
Not open for further replies.
< Changing Icon of message class | Run script rule not exectued for first few mails >
Similar threads
Thread starter Title Forum Replies Date
N Outlook Shared appointments automatically to Private Calendar Using Outlook 1
L Showing @live account in outlook 2013 calendar as private appointment Using Outlook 1
K Private Calendar events Using Outlook 3
M Auto-color all Calendar items based on condition: Private Using Outlook 6
J Printing Private Appointment Detail on Calendar Printing Assistance Using Outlook 0
P Windows 11/Office 365 - can't forward calendar entry as ics file Using Outlook 2
O How to share calendar categories? Using Outlook 4
T Cannot delete a calendar Using Outlook 0
A OL24 Calendar folder pane too narrow Using Outlook 9
F Sync Outlook Calendar Using Outlook 0
F Show events in Monthly Calendar Using Outlook 3
E Subscribing to another calendar when each party uses Office 365 Family Using Outlook 3
M Retaining old contacts and calendar in new account setup Using Outlook 6
P Email and calendar entry text now shifts right about 3 tabs worth of space Using Outlook 1
N Best way to sync calendar and contacts between Outlook 365 and Outlook on iPhone Using Outlook 4
H Macro to Delete Duplicate items in Outlook calendar where title is the same and date is the same Outlook VBA and Custom Forms 0
J Emails with .ICS calendar invitations attached don't contents when received in Outlook 365 Using Outlook 6
O Any 3rd party tool that sync (mirror) from Outlook Calendar to Google Calendar? Using Outlook 5
Fozzie Bear Calendar Events created on iPhone have suddenly start sending invitations to attendees Using Outlook 2
J Set calendar default to 'none' (policy) Exchange Server Administration 3
J Calendar events created on iPhone automatically changing default alert from 'None' to 'Time of Event' Using Outlook.com accounts in Outlook 0
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
G Creating Macro to scrape emails from calendar invite body Outlook VBA and Custom Forms 6
U When opening shared Calendar "The set of folders cannot be opened" Using Outlook 0
P Can no longer sync Outlook with iPhone calendar after iPhone update to 17.1.1 Using Outlook 7
P turn off the default "all day" check box in new calendar items. How? Using Outlook 1
A Outlook 365 New Appointments All saved to a 365 default calendar on Mac Using Outlook 0
V Unchecking my calendar and leaving shared one visible Outlook VBA and Custom Forms 1
V VBA Categories unrelated to visible calendar and Visual appointment Categories Outlook VBA and Custom Forms 2
M New Calendar Appointments: Conditionally turn off reminder and show time as free Using Outlook 14
J Cannot edit a calendar event received as an invitation Using Outlook 2
H Outlook 365 O365 outlook calendar item editing Using Outlook 1
Kika Melo Outlook Calendar deleted appointments not in Deleted Items folder Using Outlook 3
P Copying ALL calendar entries from Calender in PST file to IMAP OST file? Using Outlook 1
e_a_g_l_e_p_i Question about calendar Using Outlook 5
icacream Outlook 2021 - Google calendar in the peek Using Outlook 0
e_a_g_l_e_p_i MY Outlook 2021 changed the format of the shortcuts for mail, calendar etc. Using Outlook 10
Fozzie Bear Shared Calendar For Scheduled Tasks Using Outlook.com accounts in Outlook 3
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
L Synch Outlook 365 calendar with iPhone Using Outlook 0
C Recover calendar Using Outlook 0
R How to prevent corrupted Notes format in Calendar and Contacts Using Outlook 0
L Duplicate calendar entries in Outlook 365 Using Outlook 3
G Stop Outlook 365 adding meetings to calendar Using Outlook 1
CWM330 Outlook 365 HELP! Calendar Craziness! Using Outlook 5
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
Commodore Slow calendar Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
e_a_g_l_e_p_i Outlook 2021 all appointments not showing in calendar Using Outlook 2

Similar threads

Back
Top