Whats up with this code?

Hi all,

I'm trying to write a piece of code that sends a file out via outlook daily, then misses saturday and sunday, and starts again on the monday. Can someone tell me why this isn't working, the code is commented:

Sub evalDay()

If WeekDay(Now) <> 7 Or WeekDay(Now) <> 1 Then
'***** If it isn't saturday or sunday^

Application.OnTime Now + TimeValue("23:59:59"), "sendMenu.xls!Sheet1.sendIt"
'***** Wait 24 hours and call the sendIt routine^

ElseIf WeekDay(Now) = 7 Then
'***** If its Saturday^

Set oApp = CreateObject("outlook.application")
'***** Create an Outlook application object^

Set oItem = oApp.createItem(olMailItem)
'***** Use the outlook application object and create a mail item^

oItem.attachments.Add ("\\FP06\common$\Facilities\Eurest - Restaurant\Menus\Menu.doc")
'***** Add an attachment if you want one.^

oItem.To = "someone@somewhere.co.uk"
'***** Set the recipient(s)^

oItem.Body = "Its Saturday. Change the menu."
'***** Set your body text (the message that the recipient will receive)^

oItem.Send
'***** Send it^
Set oApp = Nothing
'***** Clean up^

saturday
'***** Call saturday macro^

ElseIf WeekDay(Now) = 1 Then
'***** If its sunday today^

sunday
'***** Call the sunday macro^

End If
End Sub


Sub saturday()
Do While Time <> "23:59:59"
'***** While it isn't 1 second before midnight on saturday^

If Time = "23:59:59" Then Application.OnTime Now + TimeValue("00:00:05"), "sendmenu.xls!sheet1.sunday"
'***** Keep checking it isn't 1 second before midnight and if it is, wait for 5 seconds and call the sunday routine^

Loop
'***** Loop round the do while routine again^

End Sub

Sub sunday()
Do While Time <> "23:59:59"
'***** While it isn't 1 second to midnight on Sunday^

If Time = "23:59:59" Then Application.OnTime Now + TimeValue("7:59:59"), "sendmenu.xls!sheet1.sendIt"
'***** keep checking it isn't 1 second before midnigh and if it is, wait for 8 hours then call sendIt routine^

Loop
'***** Loop around the do while routine again
End Sub




Sub sendIt()
If WeekDay(Now) = 7 Then
'***** If its Saturday^
saturday
'***** Call the saturday routine^

ElseIf WeekDay(Now) = 1 Then
'***** If its sunday^

sunday
'***** Call the sunday routine^
Else
'***** otherwise? ^

Set oApp = CreateObject("outlook.application")
'***** Create an outlook application object^

Set oItem = oApp.createItem(olMailItem)
'***** Use the outlook application object and create a mail item^

oItem.attachments.Add ("\\FP06\common$\Facilities\Eurest - Restaurant\Menus\Menu.doc")
'***** Add an attachment^

oItem.To = "Support Team"
'***** Define the recipient(s)^

oItem.Body = "Hi," & Chr(13) & Chr(13) & "Please find attached this weeks menu. You can access the ordering system from within the attached menu." & Chr(13) & Chr(13) & "Regards" & Chr(13) & "Joe"
'***** Define your message text^ (use the '& chr(13)' for line breaks inside the message)

oItem.Send
'***** Send it^
Set oApp = Nothing
'***** Clean up^

'***** Insert 'exit sub' here in break mode to kill this routine.

evalDay
'***** Go back to the start ^
end sub


Help appreciated.
Thanks
Joe

Shouldnt that Weekday(Now) expression at the top of the code be

If WeekDay(Now) <> 7 And WeekDay(Now) <> 1 Then
'***** If it isn't saturday or sunday^

??

LOL! Save a place for me in that cupboard, I'm bound to do the same soon! :-)

I wasnt sure as I dont know VBA at all well but I've seen that sort of thing in programming before, ie when you have multiple conditions and you use "not equals" it has to be AND rather than OR.

Glad you solved it! :-)