Oultook VBA

[rss01]

I'm looking for some help, I would like to create some code that I can take all the emails in my INBOX and move them to the INBOX of my personal folder.

Any help would be appreciated.

 

[Chance1234]

faq707-5368

That should get you started on working with outlook folders.



Chance,

Filmmaker, gentlemen and Cavalier

http://WWW.5YLAC.S5.COM

,

http://WWW.HOWTOBESPOOKY.CO.UK,

http://WWW.HENRYV.CO.UK

 

[SomebodyOutThere]

Here's some code that I have been using. Replace "Short Term Archive" with the name of the .pst file that you want to store messages in. Enjoy.

Sub ClearInbox()
On Local Error Resume Next
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myinbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myinbox.Items
Set myDestFolder = Application.GetNamespace("MAPI").Folders("Short Term Archive").Folders("Inbox")
Set myItem = myItems.Find("[SenderName] <> 'Joe Blow'")

While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub