I have been working closely with the RNIB, RNID and other enablement organisations to produce the Office for Disability Website and the Equality 2025 Websites for the Department for Work and Pensions. There's none for ages, then two come at once.
Questions of the day that is...
The first a simple, "how do I do this in SQL", the other "how do I create the correct type of access database file for my labeling application". Obviously, these were sorted out in a matter of minutes, but they asked me, that's what is important.
It's all starting to kick in now, I'm starting to get use to where most things are, and can deal with some of the simpler queries, ie. can you arrange for this new starter to be added to the intranet, etc...
We had a employee benefits (elements) meeting this morning (2 hrs), pretty interesting, about benefit elements we may want to add to our already strong benefits package.
Basically most of these, they will take out of your gross pay, and you pay Tax and NI on the balance.
I'm only interested in only a few, probably the BUPA cash plan, the discounted mobile phone+tariff, the buy and sell holidays and the Stakeholder pension, even then I may not opt in for all of these at the moment. [[sssh... keep the cash]]
The BUPA cash plan is in addition to the BUPA Healthcare Plan that comes as part of our normal benefits.
Sub archiveIT()
Dim diff: diff = CInt(InputBox("Enter total number of day to retain", "Archive Mail", 7))
Dim myOlApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Dim Destination As MAPIFolder
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set Destination = myInbox.Folders("Archive")
Dim msg As MailItem
For x = myInbox.Items.Count To 1 Step -1
Set msg = myInbox.Items(x)
If msg.FlagIcon = olNoFlagIcon Then
If Abs(DateDiff("d", msg.ReceivedTime, DateTime.Now)) > diff Then
msg.Move Destination
End If
End If
Next
End Sub
