Len,
If you already have code and just need a way to iterate through all the messages, use this section of the sample Dreamboat posted:

[vba]
For Each oMessage In oFldr.Items
With oMessage.Attachments
iAttachCnt = .Count
If iAttachCnt > 0 Then
For iCtr = 1 To iAttachCnt
.Item(iCtr).SaveAsFile sPathName _
& .Item(iCtr).FileName
Next iCtr
End If
End With
DoEvents

Next oMessage
SaveAttachments = True
[/vba]

You will need to set you oFldr tp your "Overtime\Weekly Asking" folder, and the sPathName to the "c:\my documents\xl\wk" path.

Let us know if you need more help putting it all together. If so, post the code you've already written and I'm sure we can get it working like you want.

Cheers,
James