automatically save emails to hard drive

[tuo.cheng]

I have code that can save emails to C:\users. However this macro can only be triggered by hitting a macro button. Is there anyway that I can trigger the macro automatically when I move an email to a special outlook folder?

[tuo.cheng]

Could any expert help me pls? it is important to me. many thanks

[Mark90]

Be careful about bumping your thread tuo. Might hurt your chances of it getting answered. Good luck!

[tuo.cheng]

Sry I was a little desperate about getting answered...

[Mark90]

Was just reading the FAQ's before I saw your post and wanted to give you a head's up. Us newbies and all that.

[shaaneson]

Thank you vet much for your valuable contribution. keep sharing info. GOD bless you

[skatonni]

I have code that can save emails to C:\users. However this macro can only be triggered by hitting a macro button. Is there anyway that I can trigger the macro automatically when I move an email to a special outlook folder?

See here http://msdn.microsoft.com/en-us/library/office/ff869609.aspx

The "special outlook folder" goes in Public Sub Initialize_handler() replacing the Contact folder.

Replace all the code in Private Sub myOlItems_ItemAdd(ByVal Item As Object) with your code.

Save it in the "ThisOutlookSession" module. Close Outlook and restart.

The event "Occurs when one or more items are added to the specified collection. This event does not run when a large number of items are added to the folder at once."


Public WithEvents myOlItems As Outlook.Items

Public Sub Initialize_handler()

Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("a special folder").Items

End Sub


Private Sub myOlItems_ItemAdd(ByVal Item As Object)

' Code to save emails

End Sub

[tuo.cheng]

Dear skatonni

Thank you so much for your kind reply. Unfortunately, when I move an new mail to the Outlook folder, nothing happened.

Best

[tuo.cheng]

Dear skatonni

I am sorry for the previous pose. Your code totally worked! Thank you so much!!!!!!