'***********************************************************
'**      Import Blackpool Championship fixtures   2022/2023
'**
'**      You use this at you own risk
'**
'***********************************************************
'
IF MSGBOX("Do you want to  Import Blackpool Championship fixtures   2022/2023 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 2 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Southport v Blackpool"
     .Body = "https://southportfc.net/"
     .Location = "The Mersyrail Community Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 7 2022   7:00:00 PM#
     .Duration = 120
     .Subject = "York City v Blackpool"
     .Body = "https://www.yorkcityfootballclub.co.uk"
     .Location = "LNER Community Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 16 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Rangers FC"
     .Body = "https://www.rangers.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 19 2022   7:30:00 PM#
     .Duration = 120
     .Subject = "Salford City v Blackpool"
     .Body = "https://salfordcityfc.co.uk/"
     .Location = "Peninsula Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 24 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Everton FC"
     .Body = "http://www.evertonfc.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 10 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Birmingham City"
     .Body = "http://www.bcfc.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 31 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Blackburn Rovers"
     .Body = "http://www.rovers.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 27 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Bristol City"
     .Body = "http://www.bcfc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 4 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Burnley FC"
     .Body = "http://www.burnlyfootballclub.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 7 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Cardiff City"
     .Body = "http://www.cardi.fcityfc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 18 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Coventry City"
     .Body = "http://www.ccfc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 21 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Huddersfield Town"
     .Body = "http://www.htafc.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 19 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Hull City"
     .Body = "http://www.hullcitytigers.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 5 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Luton Town"
     .Body = "http://www.lutontown.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 10 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Middlesbrough"
     .Body = "http://www.mfc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 29 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Millwall"
     .Body = "http://www.millwallfc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 1 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Norwich City"
     .Body = "http://www.canaries.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 22 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Preston North End"
     .Body = "http://www.pne.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 14 2023   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Queens Park Rangers"
     .Body = "http://www.qpr.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 30 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Reading"
     .Body = "http://www.readingfc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 11 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Rotherham United"
     .Body = "http://www.themillers.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 29 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Sheffield United"
     .Body = "http://www.sufc.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 18 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Stoke City"
     .Body = "http://www.stokecityfc.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 1 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Sunderland"
     .Body = "http://www.safc.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 13 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Swansea City"
     .Body = "http://www.swanseacity.net"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 8 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Watford FC"
     .Body = "http://www.watfordfc.com"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 18 2023   7:45:00 PM#
     .Duration = 120
     .Subject = "Blackpool v West Bromwich Albion"
     .Body = "http://www.wba.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 15 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Wigan Athletic"
     .Body = "http://www.wiganlatics.co.uk"
     .Location = "Bloomfield Rd."
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 22 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Birmingham City v Blackpool"
     .Body = "http://www.bcfc.com"
     .Location = "St Andrew's Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 28 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackburn Rovers v Blackpool"
     .Body = "http://www.rovers.co.uk"
     .Location = "Ewood Park"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 11 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Bristol City v Blackpool"
     .Body = "http://www.bcfc.co.uk"
     .Location = "Ashton Gate Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 20 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Burnley FC v Blackpool"
     .Body = "http://www.burnlyfootballclub.com"
     .Location = "Turf Moor"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 17 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Cardiff City v Blackpool"
     .Body = "http://www.cardi.fcityfc.co.uk"
     .Location = "Cardiff City Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 29 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Coventry City v Blackpool"
     .Body = "http://www.ccfc.co.uk"
     .Location = "Ricoh Arena"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 3 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Huddersfield Town v Blackpool"
     .Body = "http://www.htafc.com"
     .Location = "The John Smith's Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 26 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Hull City v Blackpool"
     .Body = "http://www.hullcitytigers.com"
     .Location = "KCOM Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 10 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Luton Town v Blackpool"
     .Body = "http://www.lutontown.co.uk"
     .Location = "Kenilworth Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 4 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Middlesbrough v Blackpool"
     .Body = "http://www.mfc.co.uk"
     .Location = "Riverside Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 17 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Millwall v Blackpool"
     .Body = "http://www.millwallfc.co.uk"
     .Location = "The Den"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #May 6 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Norwich City v Blackpool"
     .Body = "http://www.canaries.co.uk"
     .Location = "Carrow Rd"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 1 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Preston North End v Blackpool"
     .Body = "http://www.pne.com"
     .Location = "Deepdale"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 16 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Queens Park Rangers v Blackpool"
     .Body = "http://www.qpr.co.uk"
     .Location = "Kiyan Prince Foundation Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 25 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Reading v Blackpool"
     .Body = "http://www.readingfc.co.uk"
     .Location = "Madejski Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 14 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Rotherham United v Blackpool"
     .Body = "http://www.themillers.co.uk"
     .Location = "The AESSEAL New York Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 15 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Sheffield United v Blackpool"
     .Body = "http://www.sufc.co.uk"
     .Location = "Bramall Lane"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 6 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Stoke City v Blackpool"
     .Body = "http://www.stokecityfc.com"
     .Location = "Bet365 Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 4 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Sunderland v Blackpool"
     .Body = "http://www.safc.com"
     .Location = "Stadium of Light"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 15 2023   7:45:00 PM#
     .Duration = 120
     .Subject = "Swansea City v Blackpool"
     .Body = "http://www.swanseacity.net"
     .Location = "Liberty Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 14 2023   3:00:00 PM#
     .Duration = 120
     .Subject = "Watford FC v Blackpool"
     .Body = "http://www.watfordfc.com"
     .Location = "Vicarage Rd"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 1 2022   8:00:00 PM#
     .Duration = 120
     .Subject = "West Bromwich Albion v Blackpool"
     .Body = "http://www.wba.co.uk"
     .Location = "The Hawthornes"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 12 2022   3:00:00 PM#
     .Duration = 120
     .Subject = "Wigan Athletic v Blackpool"
     .Body = "http://www.wiganlatics.co.uk"
     .Location = "DW Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 9 2022   7:45:00 PM#
     .Duration = 120
     .Subject = "Barrow AFC v Blackpool"
     .Body = "http://barrowafc.com"
     .Location = "The Furness Building Society Stadium"
     .Categories = "Football"
     .ReminderSet = false
     .Save
END WITH
'
'
SET objOutlook = Nothing
'
MSGBOX("Fixtures should now have been added")