'***********************************************************
'**      Insert Blackpool League fixtures   2009/2010 Season
'**
'**      You use this at you own risk
'**
'***********************************************************
'
IF MSGBOX("Do you want to add Blackpool's League 2009/2010 fixtures 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 11 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Burscough v Blackpool"
     .Body = "http://www.burscoughfc.co.uk"
     .Location = "Victoria Park - L40 0SD"
     .ReminderSet = false
     .Save
END WITH
'
'
WITH objAppointment
     .Start = #Jul 12 2009   12:01:00 AM#
     .End = #Jul 19 2009   11:59:00 PM#
     .AllDayEvent = True
     .Subject = "South West Challenge Cup"
     .Body = ""
     .Location = "http://southwestchallengecup.moonfruit.com"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 13 2009   8:00:00 PM#
     .Duration = 120
     .Subject = "Barnstaple v Blackpool"
     .Body = "http://southwestchallengecup.moonfruit.com"
     .Location = "Mill Road - EX31 1JQ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 15 2009   8:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Rushden & Diamonds"
     .Body = "http://southwestchallengecup.moonfruit.com"
     .Location = "Ilfracombe Town FC, Marlborough Park - EX34 8AB"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 25 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Rochdale v Blackpool"
     .Body = "http://www.rochdaleafc.co.uk"
     .Location = "Spotland Stadium - OL11 5DS"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 28 2009   7:45:00 PM#
     .Duration = 120
     .Subject = "Carlise v Blackpool"
     .Body = "http://www.carlisleunited.co.uk"
     .Location = "Brunton Park - CA1 1LL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 1 2009   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 = #Aug 11 2009   7:45:00 PM#
     .Duration = 120
     .Subject = "Crewe v Blackpool (Carling Cup)"
     .Body = "http://www.crewealex.net"
     .Location = "Gresty Road - CW2 6EB"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 5 2009   3:00: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 = #May 2 2010   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 = #Aug 15 2009   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 = #Aug 29 2009   3:00: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 = #Mar 20 2010   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 18 2009   7:45: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 = #Apr 5 2010   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 6 2010   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 = #Feb 6 2010   3:00: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 = #Feb 16 2010   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 = #Sep 15 2009   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Newcastle"
     .Body = "http://www.nufc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 17 2010   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 = #Sep 26 2009   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 = #Oct 17 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Plymouth Argyle"
     .Body = "http://www.pafc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 28 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Preston North End"
     .Body = "http://www.pnefc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 16 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Queens Park Rangers"
     .Body = "http://www.qpr.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 20 2010   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 = #Nov 7 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Scunthorpe"
     .Body = "http://www.scunthorpe-united.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 20 2009   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Sheffield Utd"
     .Body = "http://www.sufc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 28 2009   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Sheffield Wednesday"
     .Body = "http://www.swfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 23 2010   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Swansea City"
     .Body = "http://www.swanseacity.net"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 26 2010   7:45: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 = #Dec 19 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v West Brom"
     .Body = "http://www.wba.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 27 2010   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 = #Sep 29 2009   7:45: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 = #Jan 9 2010   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 = #Jan 30 2010   3:00: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 = #Oct 3 2009   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 = #Dec 26 2009   3:00: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 = #Oct 31 2009   3:00: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 = #Dec 12 2009   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 = #Sep 12 2009   3:00: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 = #Dec 8 2009   7:45: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 10 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Newcastle v Blackpool"
     .Body = "http://www.nufc.co.uk"
     .Location = "ST. James Park - NE1 4ST"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 19 2009   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 = #Apr 24 2010   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 = #Mar 27 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Plymouth Argyle v Blackpool"
     .Body = "http://www.pafc.co.uk"
     .Location = "Home Park - PL2 3DQ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 13 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Preston North End v Blackpool"
     .Body = "http://www.pnefc.co.uk"
     .Location = "Deepdale - PR1 6RU"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 8 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Queens Park Rangers v Blackpool"
     .Body = "http://www.qpr.co.uk"
     .Location = "Loftus Rd - W12 7PA"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 21 2009   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 = #Apr 3 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Scunthorpe v Blackpool"
     .Body = "http://www.scunthorpe-united.co.uk"
     .Location = "Glanford Park - DN15 8TD"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 16 2010   7:45: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 = #Feb 9 2010   7:45:00 PM#
     .Duration = 120
     .Subject = "Sheffield Wednesday v Blackpool"
     .Body = "http://www.swfc.co.uk"
     .Location = "Hillsborough - S6 1SW"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 24 2009   3:00:00 PM#
     .Duration = 120
     .Subject = "Swansea City v Blackpool"
     .Body = "http://www.swanseacity.net"
     .Location = "Libert Stadium - SA1 2FA"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 22 2009   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 = #Mar 13 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "West Brom v Blackpool"
     .Body = "http://www.wba.co.uk"
     .Location = "The Hawthorns - B71 4LF"
     .ReminderSet = false
     .Save
END WITH
'
'
SET objOutlook = Nothing
'
MSGBOX("Fixtures should now have been added")