Saving outlook email

[stephanie]

Hello

I am trying to create a macro to save outlook attachments.

typelib Outlook {00062FFF-0000-0000-C000-000000000046} 9.2
Outlook.Application a._getactive
Outlook.Inspector i = a.ActiveInspector
Outlook.MailItem n = i.CurrentItem
Outlook.Attachments p = n.Attachments
p.Item(1).SaveAsFile("c:\taimport.txt")

when i run it it i get the error:- invalid interface pointer. Use _create or other function to create or get object

Can anyone help

Thanks