Hello everyone - I am being a pain in the butt and if anyone does take
the time to help me out I will really apperciate it. (For what that
is worth, right) - that being said, as you are an experianced
programmer and I am a novice hack... tell me if this is something to
complex to be fishing for on the groups as I won't learn otherwise.

What I am looking for:

I want to create a macro that when run will take a look at all emails
in the inbox and save them to a subdirectory folder of C:\TD ; that
subdirectory will be determined by the name of the attachment.

Caveats:
I am on Exchange 2003 and Outlook 2007
The mailbox I want to process is not my primary Outlook account but
rather an additional exchange mailbox that I have added to my
account. For the purposes of example I will call my additional
mailbox box2 below.
The attachments are always going to be named 123456_Description.tif.
When the attachments are saved in the c:\TD folder I would like a
directory to be created named 123456 with the directory containing the
file 123456_Description.tif
One email could have multiple attachments.
I would then like email to move to the delete items folder after it is
processed.

Walking through the process:
Email comes into box2 inbox with two attachments 54454_docname.tif and
77745_docname_state.tif
Macro runs
Creates directories c:\TD\554454 and c:\TD\77745
Creates files c:\TD\54454\54454_docname.tif and c:\TD
\77745\77745_docname_state.tif
Email moved to box2 "Deleted Items"
Check for any additional emails in box2 inbox and repeat if necessary,
otherwise stop

One other caveat I just thought of, it is possible that the directory
could already exist as I could get a single email with two attachments
12345_mydoc.tif and 12345_otherdoc.tif In that instance I would like
the directory to be c:\TD\12345\ and have it contain both
12345_mydoc.tif and 12345_otherdoc.tif


My code so far:

Public Sub SaveTDAttachments()
Dim Inbox As MAPIFolder
Dim Item As MailItem
Dim Atmt As Attachment
Dim FileName As String
Dim i As Integer
Dim olns As Outlook.NameSpace

Set Inbox = olns.Folders("box2")



For Each Item In Inbox.Items
For Each Atmt In Item.Attachments
FileName = "C:\td\" & Atmt.FileName
Atmt.SaveAsFile FileName
Next

'Item.Delete
Next

Set Inbox = Nothing
End Sub


comments on my code:
1 . it doesn't work
2. I don't have the logic for the directory creation
3. I don't know how to tell it to look for an existing directory
4. I don't know how to tell it to create the directory based on the
attachment name text preceding the first _
5. I don't know if Item.Delete will move it to the box2 deleted items
folder or just delete it
6. I don't know how to tell it to look at box2 inbox


That is it... Thank you much!