Hi everybody,

I use OL 2003 and I use the following code to save the incoming mail
attachments (based on a rule of the sender name and subject) on a specific
folder in My Documents, delete the attachments and clear the space:

strControl = subsubfolder.Items.Count
Set olMail = subsubfolder.Items(strControl) ' to get the last
mailItem moved in the folder by the rule

For Each atm In olMail.Attachments
atm.SaveAsFile "C:\Documents and Settings\..." & atm.FileName
Next

For Each atm In olMail.Attachments
atm.Delete
Next

The problem is that the attachments are not deleted.
I am a newbie with VBA. Can somebody help me please ?

Also, is there any other method which returns the last mailItem received in
a specific folder? How can I use AddItem method in the rule?

Thanks in advance,
Catalin

Take a look at the code sample at
http://www.slovaktech.com/code_sampl...ripAttachments. It might help
you.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Catalin" <(E-Mail Removed)> wrote in message
news:3B372CEE-46EC-41B1-BDFB-(E-Mail Removed)...
> Hi everybody,
>
> I use OL 2003 and I use the following code to save the incoming mail
> attachments (based on a rule of the sender name and subject) on a specific
> folder in My Documents, delete the attachments and clear the space:
>
> strControl = subsubfolder.Items.Count
> Set olMail = subsubfolder.Items(strControl) ' to get the last
> mailItem moved in the folder by the rule
>
> For Each atm In olMail.Attachments
> atm.SaveAsFile "C:\Documents and Settings\..." & atm.FileName
> Next
>
> For Each atm In olMail.Attachments
> atm.Delete
> Next
>
> The problem is that the attachments are not deleted.
> I am a newbie with VBA. Can somebody help me please ?
>
> Also, is there any other method which returns the last mailItem received
> in
> a specific folder? How can I use AddItem method in the rule?
>
> Thanks in advance,
> Catalin

On Fri, 23 Sep 2005 04:09:03 -0700, "Catalin"
<(E-Mail Removed)> wrote in
microsoft.public.outlook.program_vba:

>I use OL 2003 and I use the following code to save the incoming mail
>attachments (based on a rule of the sender name and subject) on a specific
>folder in My Documents, delete the attachments and clear the space:
>
> strControl = subsubfolder.Items.Count
> Set olMail = subsubfolder.Items(strControl) ' to get the last
>mailItem moved in the folder by the rule
>
> For Each atm In olMail.Attachments
> atm.SaveAsFile "C:\Documents and Settings\..." & atm.FileName
> Next
>
> For Each atm In olMail.Attachments
> atm.Delete
> Next
>
>The problem is that the attachments are not deleted.
>I am a newbie with VBA. Can somebody help me please ?
[snip]

From memory, try adding this:
olMail.Save

--
Michael Bednarek http://mbednarek.com/ "POST NO BILLS"

Thank you very much Michael and Ken. You have been very helpful.

Well, can you also tell me how I can refer to the last mailItem received in
a folder using AddItem ? is there any way to do that?

Thanks,
Catalin

"Michael Bednarek" wrote:

> On Fri, 23 Sep 2005 04:09:03 -0700, "Catalin"
> <(E-Mail Removed)> wrote in
> microsoft.public.outlook.program_vba:
>
> >I use OL 2003 and I use the following code to save the incoming mail
> >attachments (based on a rule of the sender name and subject) on a specific
> >folder in My Documents, delete the attachments and clear the space:
> >
> > strControl = subsubfolder.Items.Count
> > Set olMail = subsubfolder.Items(strControl) ' to get the last
> >mailItem moved in the folder by the rule
> >
> > For Each atm In olMail.Attachments
> > atm.SaveAsFile "C:\Documents and Settings\..." & atm.FileName
> > Next
> >
> > For Each atm In olMail.Attachments
> > atm.Delete
> > Next
> >
> >The problem is that the attachments are not deleted.
> >I am a newbie with VBA. Can somebody help me please ?
> [snip]
>
> From memory, try adding this:
> olMail.Save
>
> --
> Michael Bednarek http://mbednarek.com/ "POST NO BILLS"
>

You'd have to sort the Items collection for that folder by date, then you
could easily pick out the first or last items in the folder.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Catalin" <(E-Mail Removed)> wrote in message
news:FAD132CD-F14E-4D43-80F1-(E-Mail Removed)...
> Thank you very much Michael and Ken. You have been very helpful.
>
> Well, can you also tell me how I can refer to the last mailItem received
> in
> a folder using AddItem ? is there any way to do that?
>
> Thanks,
> Catalin