Saving Down E-mail Attachments

Hi,

I'm tryin to save down E-mail attachments from a subfodler in outlook.

I'm following this websites instructions....
http://www.fontstuff.com/outlook/oltut01pfv.htm

 Dim ns As NameSpace
 Dim Inbox As MAPIFolder
 Dim Item As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer

the issue seems to be the whole nameSpace and MAPIFOLDER (And Yes I selected this in the references Object Library)

Is it necessary to go into OUTLOOK itself and maybe turn on something?

Please Help