'***********************************************************
'**      Insert Blackpool Championship fixtures 2011/2012
'**
'**      You use this at you own risk
'**
'***********************************************************
'
IF MSGBOX("Do you want to  Insert Blackpool Championship fixtures 2011/2012 to your Outlook calendar"+ vblf + "Ensure that Outlook is running",vbYesNo + vbQuestion + vbDefaultButton1, "Insert fixtures into Outlook") = vbNo THEN
          WScript.quit
END IF
'
DIM objOutlook
DIM objAppointment
'
SET objOutlook = CreateObject("outlook.application")
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 19 2011   7:30:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Glasgow Rangers"
     .Body = "http://www.rangers.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 23 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Oldham v Blackpool"
     .Body = "http://www.oldhamathletic.co.uk"
     .Location = "Boundary Park - OL1 2PA"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 26 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Hibernian"
     .Body = "http://www.hibernianfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 28 2011   7:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool XI v FK Jelgava"
     .Body = ""
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 31 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Sheffield Utd v Blackpool"
     .Body = "http://www.sufc.co.uk"
     .Location = "Bramall Lane - S2 4SU"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 11 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Sheffield Wednesday(Carling Cup)"
     .Body = "http://www.swfc.co.uk"
     .Location = "Hillsborough - S6 1SW"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 9 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Barnsley"
     .Body = "http://www.barnsleyfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 26 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Birmingham City"
     .Body = "http://www.bcfc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 17 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Brighton and Hove Albion"
     .Body = "http://www.seagulls.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 1 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Bristol City"
     .Body = "http://www.bcfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 21 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Burnley"
     .Body = "http://www.burnleyfootballclub.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 17 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Cardiff City"
     .Body = "http://www.cardiffcityfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 31 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Coventry City"
     .Body = "http://www.ccfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 21 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Crystal Palace"
     .Body = "http://www.cpfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 17 2011   8:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Derby County"
     .Body = "http://www.dbfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 18 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Doncaster Rovers"
     .Body = "http://www.doncasterroversfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 3 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Hull City"
     .Body = "http://www.hullcityafc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 10 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Ipswich Town"
     .Body = "http://www.itfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 17 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Leeds Utd"
     .Body = "http://www.leedsunited.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 20 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Leicester City"
     .Body = "http://www.lcfc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 2 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Middlesbrough"
     .Body = "http://www.mfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 5 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Millwall"
     .Body = "http://www.millwallfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 22 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Nottingham Forest"
     .Body = "http://www.nottinghamforrest.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 14 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Peterborough"
     .Body = "http://www.theposh.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 11 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Portsmouth"
     .Body = "http://www.portsmouthfc.co.uk/"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 3 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Reading"
     .Body = "http://www.readingfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 31 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Southampton"
     .Body = "http://www.saintsfc.co.uk/"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 17 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Watford"
     .Body = "http://www.watfordfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 18 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v West Ham"
     .Body = "http://www.whufc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 26 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Barnsley v Blackpool"
     .Body = "http://www.barnsleyfc.co.uk"
     .Location = "Oakwell Stadium - S71 1ET"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 31 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Birmingham City v Blackpool"
     .Body = "http://www.bcfc.com"
     .Location = "St. Andrews Stadium - B9 4RL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 20 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Brighton and Hove Albion v Blackpool"
     .Body = "http://www.seagulls.co.uk"
     .Location = "AMEX Stadium - BN1 1YR"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 25 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Bristol City v Blackpool"
     .Body = "http://www.bcfc.co.uk"
     .Location = "Ashton Gate - BS3 2EJ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 29 2011   5:20:00 PM#
     .Duration = 120
     .Subject = "Burnley v Blackpool"
     .Body = "http://www.burnleyfootballclub.co.uk"
     .Location = "Turf Moor - BB10 4BX"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 4 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Cardiff City v Blackpool"
     .Body = "http://www.cardiffcityfc.co.uk"
     .Location = "Ninian Park - CF11 8SX"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 27 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Coventry City v Blackpool"
     .Body = "http://www.ccfc.co.uk"
     .Location = "Ricoh Arena - CV6 6GE"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 27 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Crystal Palace v Blackpool"
     .Body = "http://www.cpfc.co.uk"
     .Location = "Selhurst Park - SE25 6PU"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 6 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Derby County v Blackpool"
     .Body = "http://www.dbfc.co.uk"
     .Location = "Pride Park Stadium - DE24 8XL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 14 2012   7:45:00 PM#
     .Duration = 120
     .Subject = "Doncaster Rovers v Blackpool"
     .Body = "http://www.doncasterroversfc.co.uk"
     .Location = "Keepmoat Stadium - DN4 5JW"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 5 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Hull City v Blackpool"
     .Body = "http://www.hullcityafc.co.uk"
     .Location = "KC Stadium - HU3 6HU"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 14 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Ipswich Town v Blackpool"
     .Body = "http://www.itfc.co.uk"
     .Location = "Portman Road - IP1 2DA"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 1 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Leeds Utd v Blackpool"
     .Body = "http://www.leedsunited.com"
     .Location = "Elland Rd  - LS11 0ES"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 29 2011   7:45:00 PM#
     .Duration = 120
     .Subject = "Leicester City v Blackpool"
     .Body = "http://www.lcfc.com"
     .Location = "Walkers Stadium - LE2 7FL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 19 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Middlesbrough v Blackpool"
     .Body = "http://www.mfc.co.uk"
     .Location = "Riverside Stadium - TS3 6RS"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 28 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Millwall v Blackpool"
     .Body = "http://www.millwallfc.co.uk"
     .Location = "The Den - SE16 3LN"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 14 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Nottingham Forest v Blackpool"
     .Body = "http://www.nottinghamforrest.co.uk"
     .Location = "The City Ground - NG2 5FJ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 10 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Peterborough v Blackpool"
     .Body = "http://www.theposh.com"
     .Location = "London Road - PE2 8AL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 24 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Portsmouth v Blackpool"
     .Body = "http://www.portsmouthfc.co.uk/"
     .Location = "Fratton Park - PO4 8RA"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 24 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Reading v Blackpool"
     .Body = "http://www.readingfc.co.uk"
     .Location = "Madejski Stadium - RG2 0FL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 10 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Southampton v Blackpool"
     .Body = "http://www.saintsfc.co.uk/"
     .Location = "St. Marys Stadium - SO14 5FP"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 6 2012   3:00:00 PM#
     .Duration = 120
     .Subject = "Watford v Blackpool"
     .Body = "http://www.watfordfc.co.uk"
     .Location = "Vicarage Road - WD18 0ER"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 15 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "West Ham v Blackpool"
     .Body = "http://www.whufc.com"
     .Location = "Boleyn Ground - E13 9AZ"
     .ReminderSet = false
     .Save
END WITH
'
'
SET objOutlook = Nothing
'
MSGBOX("Fixtures should now have been added")