Anyone know how to get Outlook 2003 to display more than 22 appointments for one day? Trying to display peoples leave in a nice printable format, but its not displaying them all

http://i227.photobucket.com/albums/dd132/eyeamjosh/cal.jpg

Assign them times throughout the day. You can have items overlapping, they just share the same time frame you've allocated to them. At least, I'm assuming that's what you're meaning (going from what I can see in that SS)

Negative

Its the receptionists computer right, and she is trying to have a printout of everyone thats on leave.

It won't display more than 22 lines, and it seems you cant get rid of that gay time s*** down the bottom

Dunno, but out of interest... how long does it take for you to change between shared calendars?

I see you have several in that window.

At the moment, every PA in my office is whinging to me because it takes around 30 seconds to open a calendar the first time, and about 5 seconds every time after that.

I know it sucks, but I can't do anything about it.

LAME SYDNEY MAILSERVERS

Is there a worse employee in the company than a PA? Some of ours need to have an attitude transplanet courtesy of my fist in their face. So far today I've hung up on 2 and told another her issues would get looked at when we have time, she was not impressed especially when she dropped the "do you know who I am" line to which I replied "a glorified receptionist".

Try dealing with the PA of an EX-Premier :P

Save the following as a text file and change the extension to .vbs

'Get the path to where this script is running
strScriptFullName = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strScriptFullName)
strScriptPath = objFSO.GetParentFolderName(objFile)

'Get a date. VB likes American dates. It's simple enough to make a function to fix it, if you care.
strDate = InputBox("Use American dates (e.g. 1/13/1900)", "Pick Date")

'Get the user to pick the calendar they want
Set objOutlook = CreateObject("Outlook.Application")
Set olFolder = objOutlook.GetNamespace("MAPI").PickFolder

'Get the user to name the text file they want as output.
'It will be saved in the same folder as the script is run from.
strOutputFile = strScriptPath & "\" & _
  InputBox("Specify a name for a text file with extension (e.g. Output.CSV)", "Output file", "Output.csv")

'Get every item from the folder.
Set colItems = olFolder.Items

'Make a text file
set objTextFile = objFSO.CreateTextFile(strOutputFile)
objTextFile.WriteLine("Start,End,Subject,Location,Body")

'This will go through every single item and check the date, which will probably be pretty painful.
'I briefly fiddled with colItems.Find, but you have to format the dates just right.
For each objItem in colItems
  'This is just going to get appointment items that start on the date specified.
  'You may want to change the "+1" bit to however many days after this moment you want to scan.
  If objItem.Start >= Cdate(strDate) AND objItem.Start < Cdate(strDate) + 1 Then
   objTextFile.WriteLine(objItem.Start & "," & objItem.End & "," & _
   objItem.Subject & "," & objItem.Location & "," & objItem.Body)
  End If
Next

wscript.echo "Finished looking through the calendar."

- edited so copied text doesn't get carriage returns where it shouldn't

There are a whole lot of things that could stop this from working. When Outlook is on paranoid security settings it'll probably ask a question or two (or possibly just prevent the script from working). Virus scanners may dislike a script touching Outlook at all. I only bothered testing this on WinXP with Outlook 2003. In any case, it works for me.

last edited by Chancre at 19:16:37 15/Nov/07

last edited by Chancre at 23:55:49 15/Nov/07

A PA gave me a free 2008 diary so I can't be too mad at them atm.

Mad Chancre, but what exactly is it doing?

Grabbing the appointments and putting them somewhere?

Do you want a blow by blow description of what it does? I'll try not to ramble:
- You double click the .vbs file you just made
- it asks you for a date (and tells you to use American dates)
- it asks which Outlook folder you want to look at (you browse to it in the window that comes up)
- it asks you for a name for a text file it's going to make (this'll be what you want for printing out - I'd use .csv as an extension so your receptionist can just double-click the file to open it in Excel
- it grabs those appointment items for that day, and puts them in the text file (this will be in the same folder as where you saved the script).

It finds appointment items that START on the day you mention. It treats dates like a specific second, so a date without hours or minutes means the very first second of that day. That's why when it checks the date it has to be >= TheDate and < [TheDate + 1] (i.e. the next day). If you wanted it to grab every appointment item for the seven days following the date you mention, change the "+ 1" part to "+ 7".

I only got it to put in the following details:
Start
End
Subject
Location
Body

If you wanted more details than that, check out this page and look up the bit for AppointmentItem, then change the script to suit.
http://msdn2.microsoft.com/en-us/library/ms526861.aspx

last edited by Chancre at 23:58:15 15/Nov/07

try dealing with a PA who has 2 PA's

bitch thinks shes f***in god

Is there a worse employee in the company than a PA? Some of ours need to have an attitude transplanet courtesy of my fist in their face. So far today I've hung up on 2 and told another her issues would get looked at when we have time, she was not impressed especially when she dropped the "do you know who I am" line to which I replied "a glorified receptionist".

You sound like a joy to work with too.

If a PA pisses you off to much just tell them to "wright all the problems you want me to fix on a peace of paper so I don't have to listen to you and I can throw the paper out when you go"

Didn't go down well when I used it

You sound like a joy to work with too.

I am actually but I don't take s*** from people who think they deserve special treatment. Special treatment is reserved for Exec's, VPs, etc - not PA's.