Calendar private appointments, an unresolved question...

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.
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
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 5
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
CWM550 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
C How to import Outlook calendar? Using Outlook 1
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
V iCloud calendar problems, Outlook shuts down immediately Using Outlook 2
KeithJB iCloud calendar sync only works one way! Using Outlook 3
V Backup Calendar, Contacts, Tasks in an POP3 data file Using Outlook 3
O Unable to make changes to an existing Calendar entry Using Outlook 11
J VBA for outlook to compare and sync between calendar Outlook VBA and Custom Forms 1
A Meeting organizer calendar intermittently drops meeting after delegate sends invite Using Outlook 0
A Meeting organizer calendar intermittently drops meeting after delegate sends invite Exchange Server Administration 0
T Outlook 2010 Cannot edit Calendar entries in OL 2010. Using Outlook 1
M On behalf of not showing on calendar for boss Using Outlook 1
C Outlook 2016 Unable to delete Gmail IMAP calendar Using Outlook 2
A force outlook to default to MY calendar Using Outlook 3
O Carriage Return - Line Feeds - exporting Calendar events Using Outlook 0

Similar threads

Back
Top