'***********************************************************
'**      Insert Blackpool Premier League fixtures   2010/2011
'**
'**      You use this at you own risk
'**
'***********************************************************
'
IF MSGBOX("Do you want to  Insert Blackpool Premier League fixtures   2010/2011 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 16 2010   7:30:00 PM#
     .Duration = 120
     .Subject = "Tiverton Town v Blackpool"
     .Body = "http://www.tivertontownfc.com/"
     .Location = "Ladysmead, EX16 6SG "
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 20 2010   7:30:00 PM#
     .Duration = 120
     .Subject = "Accrington v Blackpool"
     .Body = "http://southwestchallengecup.moonfruit.com/"
     .Location = "Torrington FC, Vicarage Fields, EX38  7AJ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 22 2010   8:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Kilmarnock"
     .Body = "http://southwestchallengecup.moonfruit.com/"
     .Location = "The Sports Ground, EX39 2NG"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jul 31 2010   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 = #Apr 9 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Arsenal"
     .Body = "http://www.arsenal.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 12 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Aston Villa"
     .Body = "http://www.avfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 4 2011   7:45: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 = #Sep 25 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Blackburn Rovers"
     .Body = "http://www.rovers.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #May 14 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Bolton Wanderers"
     .Body = "http://www.bwfc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Mar 5 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Chelsea"
     .Body = "http://www.chelseafc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 6 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Everton"
     .Body = "http://www.evertonfc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 28 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Fulham"
     .Body = "http://www.fulhamfc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 26 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Liverpool"
     .Body = "http://www.liverpoolfc.tv/"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 16 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Man City"
     .Body = "http://www.mcfc.co.uk/"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 4 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Man Utd"
     .Body = "http://www.manutd.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 23 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Newcastle Utd"
     .Body = "http://www.nufc.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 30 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Stoke City"
     .Body = "http://www.stokecityfc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 22 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Sunderland"
     .Body = "http://www.safc.com"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 18 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Tottenham Hotspur"
     .Body = "http://www.tottenhamhotspur.com/"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 30 2010   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 1 2011   7:45: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 = #Aug 14 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Wigan"
     .Body = "http://www.wiganlatics.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 20 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackpool v Wolves"
     .Body = "http://www.wolves.co.uk"
     .Location = "Bloomfield Rd"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Aug 21 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Arsenal v Blackpool"
     .Body = "http://www.arsenal.com"
     .Location = "Emirates Stadium, N5 1BU"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 10 2010   7:45:00 PM#
     .Duration = 120
     .Subject = "Aston Villa v Blackpool"
     .Body = "http://www.avfc.co.uk"
     .Location = "Villa Park, B6 6HE"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 23 2010   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 = #Mar 19 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Blackburn Rovers v Blackpool"
     .Body = "http://www.rovers.co.uk"
     .Location = "Ewood Park, BB2 4JF"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 27 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Bolton v Blackpool"
     .Body = "http://www.bwfc.co.uk"
     .Location = "Reebok Stadium, BL6 6JW"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 18 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Chelsea v Blackpool"
     .Body = "http://www.chelseafc.com"
     .Location = "Stamford Bridge, SW6 1HS"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 5 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Everton v Blackpool"
     .Body = "http://www.evertonfc.com"
     .Location = "Goodison Park, L4 4EL"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 2 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Fulham v Blackpool"
     .Body = "http://www.fulhamfc.com"
     .Location = "Craven Cottage, SW6 6HH"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Oct 2 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Liverpool v Blackpool"
     .Body = "http://www.liverpoolfc.tv/"
     .Location = "Anfield, L4 0TH"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 1 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Man City v Blackpool"
     .Body = "http://www.mcfc.co.uk/"
     .Location = "City of Manchester Stadium, M11 3FF"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #May 22 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Man Utd v Blackpool"
     .Body = "http://www.manutd.com"
     .Location = "Old Trafford, M16 0RA"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Sep 11 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 = #Dec 11 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Stoke v Blackpool"
     .Body = "http://www.stokecityfc.com"
     .Location = "Britannia Stadium, ST4 4EG"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Dec 28 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "Sunderland v Blackpool"
     .Body = "http://www.safc.com"
     .Location = "Stadium Of Light, SR5 1SU"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #May 7 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Tottenham v Blackpool"
     .Body = "http://www.tottenhamhotspur.com/"
     .Location = "White Hart Lane, N17 0AP"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Jan 15 2011   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 objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Nov 13 2010   3:00:00 PM#
     .Duration = 120
     .Subject = "West Ham v Blackpool"
     .Body = "http://www.whufc.com"
     .Location = "Upton Park, E13 9AZ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Apr 16 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Wigan v Blackpool"
     .Body = "http://www.wiganlatics.co.uk"
     .Location = "DW Stadium, WN5 0UZ"
     .ReminderSet = false
     .Save
END WITH
'
SET objAppointment = objOutlook.CreateItem(1)
'
WITH objAppointment
     .Start = #Feb 26 2011   3:00:00 PM#
     .Duration = 120
     .Subject = "Wolves v Blackpool"
     .Body = "http://www.wolves.co.uk"
     .Location = "Molineux, WV1 4QR"
     .ReminderSet = false
     .Save
END WITH
'
'
SET objOutlook = Nothing
'
MSGBOX("Fixtures should now have been added")