creating toolbar button to Mark As Read & Delete

[Guest]

I'm a VBA beginner. I tried to create a toolbar button that marks mail as
read & deletes it, and already I'm beyond my meager skills. I can create the
button & assign a macro to it, but I can't write the macro code!

So what's the code that will make a button mark mail as read and then delete
it?

Thanks very much,
Andrea

 

[Michael Bauer [MVP - Outlook]]

For one in a folder selected email:

Dim Mail as Outlook.MailItem
Set Mail=Application.ActiveExplorer.Selection(1)
Mail.Unread=False
Mail.Save
Mail.Delete

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Organize Outlook email:
<http://www.vboffice.net/product.html?id=2006063&cmd=detail&lang=en&pub=6>

Am Wed, 20 Jun 2007 16:41:33 -0700 schrieb Andrea:

 

[Guest]

That worked great! But it sure didn't look anything like I thought it would
-- guess I'd better hit the books & learn some more

Thank you Michael.