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
 
A

Alan Moseley

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
 
A

Alberto_5015

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
 
A

Alan Moseley

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
Hobbes Outlook 365 Calendar spreads into second calendar Using Outlook 0
J Macro to Insert a Calendar Outlook VBA and Custom Forms 6
C Tracking Calendar Changes? Using Outlook 1
O Batch update calendar Using Outlook 3
P Outlook calendar and contacts sync problem-outlook disconnects Using Outlook.com accounts in Outlook 2
HarvMan Toggle between calendar and email in Outlook 365 Using Outlook 12
e_a_g_l_e_p_i Is it possible to transfer things from one calendar to another Using Outlook 2
M Outlook calendar is missing Using Outlook 2
A Any way to make Outlook Calendar invitations look right to Gmail/Google Calendar users? Using Outlook 3
O Calendar - Location: what happens when using my own way of entering locations Using Outlook 1
I Outlook is stuck at "Updating Calendar" Using Outlook 1
AmonRa Outlook 365 calendar - too much white space Using Outlook 0
M Cannot read the calendar Using Outlook 9
Horsepower What is best calendar practice for iMac Using Outlook 3
M Calendar greyed out Using Outlook 0
M Unable to share 2019 calendar Using Outlook 0
Fozzie Bear Accepted Zoom Invites deleting without going into Default Calendar - Office 2016 Mac Using Outlook 3
P Outlook 2013 Calendar Archiving Using Outlook 0
Fozzie Bear Sharing Birthday Calendar Using Outlook.com accounts in Outlook 3
M Calendar daily Appointments and printing Using Outlook 0
I Google Calendar <calendar-notification@google.com> appearing as a duplicate entry Using Outlook 2
L Sharing Calendar for Only Scheduling Using Outlook 2
S Excel VBA and shared calendar issue Outlook VBA and Custom Forms 3
E Work uses live accounts for emails for all employees. Can we use the outlook calendar to give the employees an universal work schedule calendar? Using Outlook 1
J O365 - Adding Shared Google Calendar ICS link issue in O365 Using Outlook 0
B Outlook Calendar not coming down from cloud Using Outlook 2
J Time Zone Issues - Outlook Calendar and Webcal Feed Using Outlook 8
N Backing Up Exchange Calendar Using Outlook 13
N Having Shared Calendar shift to Current day Using Outlook 0
K UDF with formula not showing on Calendar custom view. Outlook VBA and Custom Forms 0
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
U Macro for reminders,tasks,calendar Outlook VBA and Custom Forms 4
O Calendar - appointment templates and categories Using Outlook 1
HarvMan Outlook 365 Calendar Using Outlook 13
A calendar invites sent from Microsoft Outlook to Mac Outlook is not working Using Outlook 2
P Categorize in Calendar not listed under tags in Office 365 (Office 2016) Using Outlook 5
O Export Outlook calendar appointments by filters and date range Outlook VBA and Custom Forms 1
J Weekend View in Calendar Using Outlook 1
D Add date next to day name in Outlook Today calendar view Using Outlook 1
A Birthdays from .csv to Calendar - arriving day behind Using Outlook 5
C Put Day of Year into Outlook Calendar Outlook VBA and Custom Forms 2
J can't sync outlook calendar contacts with iphone ipad Using Outlook 4
C Outlook Calendar Using Outlook 1
L Deleting Office 365 calendar appt w/o emailing invitees Using Outlook 3
sahameed82 SharePoint calendar directly open in Outlook Using Outlook 0

Similar threads

Top