Hi Evan,

The following works for me:

loOutLook     = CREATEOBJECT("Outlook.Application")
loNameSpace   = loOutLook.GetNameSpace("MAPI")
loInbox	      = loNameSpace.GetDefaultFolder(6)

WITH loInBox
    FOR nMessageCtr = 1 TO .Items.Count
        FOR nAttachmentCtr = 1 TO .Items[nMessageCtr].Attachments.Count
            WITH .Items[nMessageCtr].Attachments[nAttachmentCtr]
                .SaveAsFile("c:\attachmentsdirectory\" + .FileName)
            ENDWITH
        ENDFOR
    ENDFOR
ENDWITH

RELEASE loOutLook

I seem to recall having a similar problem with filenames. I think the problem was that the operating system was set to restrict files in a specific folder to 8.3 format. It might be worth checking to see if this is the case with your system.

Hope this helps,
Gavin...

>It appears that when I save attached files from an incomming email Outlook(2000) gives me the attched file in 8 char, cutting off the remaining attached file name such as previous DOS did. Is there a way to get around Outlook cutting off the attachment file names ( Getting the full attachment file name) when automating through VFP?
>
>Thanks,
>
>Evan Lambson