I do apologise, I missed a line of code when cpying and pasting. The
contents of Class1 should be:-

Dim WithEvents myMailItem As MailItem
Dim WithEvents myInspectors As Inspectors
Dim myDestFolder As MAPIFolder
Private Sub Class_Initialize()
Set myInspectors = Outlook.Inspectors
Set myDestFolder =
Outlook.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox).Folders("Processed")
End Sub
Private Sub myInspector_NewInspector(ByVal Inspector As Inspector)
Dim myItem As Object
Set myItem = Inspector.CurrentItem
If TypeName(myItem) = "MailItem" Then
Set myMailItem = myItem
End If
Set myItem = Nothing
End Sub
Private Sub Class_Terminate()
Set myDestFolder = Nothing
Set myInspectors = Nothing
End Sub
Private Sub myMailItem_Close(Cancel As Boolean)
myMailItem.Move
End Sub

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Alan Moseley" wrote:

It will do because you are not correctly setting myItem in the first place.
Create yourself a new Class (let's say it's called Class1) and insert the
following code into it:-

Dim WithEvents myInspectors As Inspectors
Dim myDestFolder As MAPIFolder
Private Sub Class_Initialize()
Set myInspectors = Outlook.Inspectors
Set myDestFolder =
Outlook.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox).Folders("Processed")
End Sub
Private Sub myInspector_NewInspector(ByVal Inspector As Inspector)
Dim myItem As Object
Set myItem = Inspector.CurrentItem
If TypeName(myItem) = "MailItem" Then
Set myMailItem = myItem
End If
Set myItem = Nothing
End Sub
Private Sub Class_Terminate()
Set myDestFolder = Nothing
Set myInspectors = Nothing
End Sub
Private Sub myMailItem_Close(Cancel As Boolean)
myMailItem.Move mtDestFolder
End Sub

Now in the ThisOutlookSession code window include the following code:-

Private Sub Application_Quit()
Set myClass = Nothing
End Sub

Private Sub Application_Startup()
Set myClass = New Class1
End Sub

This code will currently move any mailitem opened to be moved to the
processed folder, so you will need to think about including some checking
(such as the item isnt already in the processed folder).

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Vasil Vasilev" wrote:

I tried to remove this... still no luck

The process fails on trying to execute
myItem.Move destFolder


"Alan Moseley" wrote:

I think I see your problem. When you open Outlook you are setting myItem to
be the CurrentItem of the ActiveInspector (within the Application_Startup
Sub). Surely when you open outlook you won't have an ActiveInspector. You
need to set myItem when opening a MailItem surely?

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Vasil Vasilev" wrote:

Hi Alan,

thanks for the answer.
Unfortunatelly the problem still persists. No change...


"Alan Moseley" wrote:

You are creating a separate process for your myApp object, which you don't
need and will cause problems. Your code doesn't actaully use the myApp
object anywhere so you don't need any of them, but if other areas of your
code do make use of them then change :-

Dim myApp As New Outlook.Application
to
Dim myApp As Outlook.Application

next change

Set myApp = CreateObject("Outlook.Application")
to
set myApp = Outlook

Lastly change

Set objNS = GetNamespace("MAPI")
to
Set objNS = Outlook.GetNamespace("MAPI")
or
Set objNS = myApp.GetNamespace("MAPI")

Does this prevent the problem?

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.

Alan,

thanks a lot for the code, but it still doesn't work

Meanwhile I found this...
http://support.microsoft.com/kb/929593/en-us

Finally, I end up writing an add-in, which does what I want on button click!

Thank you all for your help

Regards,
Vasil


"Alan Moseley" wrote:

I do apologise, I missed a line of code when cpying and pasting. The
contents of Class1 should be:-

Dim WithEvents myMailItem As MailItem
Dim WithEvents myInspectors As Inspectors
Dim myDestFolder As MAPIFolder
Private Sub Class_Initialize()
Set myInspectors = Outlook.Inspectors
Set myDestFolder =
Outlook.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox).Folders("Processed")
End Sub
Private Sub myInspector_NewInspector(ByVal Inspector As Inspector)
Dim myItem As Object
Set myItem = Inspector.CurrentItem
If TypeName(myItem) = "MailItem" Then
Set myMailItem = myItem
End If
Set myItem = Nothing
End Sub
Private Sub Class_Terminate()
Set myDestFolder = Nothing
Set myInspectors = Nothing
End Sub
Private Sub myMailItem_Close(Cancel As Boolean)
myMailItem.Move
End Sub

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Alan Moseley" wrote:

It will do because you are not correctly setting myItem in the first place.
Create yourself a new Class (let's say it's called Class1) and insert the
following code into it:-

Dim WithEvents myInspectors As Inspectors
Dim myDestFolder As MAPIFolder
Private Sub Class_Initialize()
Set myInspectors = Outlook.Inspectors
Set myDestFolder =
Outlook.GetNamespace("MAPI").GetDefaultFolder(olFo lderInbox).Folders("Processed")
End Sub
Private Sub myInspector_NewInspector(ByVal Inspector As Inspector)
Dim myItem As Object
Set myItem = Inspector.CurrentItem
If TypeName(myItem) = "MailItem" Then
Set myMailItem = myItem
End If
Set myItem = Nothing
End Sub
Private Sub Class_Terminate()
Set myDestFolder = Nothing
Set myInspectors = Nothing
End Sub
Private Sub myMailItem_Close(Cancel As Boolean)
myMailItem.Move mtDestFolder
End Sub

Now in the ThisOutlookSession code window include the following code:-

Private Sub Application_Quit()
Set myClass = Nothing
End Sub

Private Sub Application_Startup()
Set myClass = New Class1
End Sub

This code will currently move any mailitem opened to be moved to the
processed folder, so you will need to think about including some checking
(such as the item isnt already in the processed folder).

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Vasil Vasilev" wrote:

I tried to remove this... still no luck

The process fails on trying to execute
myItem.Move destFolder


"Alan Moseley" wrote:

I think I see your problem. When you open Outlook you are setting myItem to
be the CurrentItem of the ActiveInspector (within the Application_Startup
Sub). Surely when you open outlook you won't have an ActiveInspector. You
need to set myItem when opening a MailItem surely?

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"Vasil Vasilev" wrote:

Hi Alan,

thanks for the answer.
Unfortunatelly the problem still persists. No change...


"Alan Moseley" wrote:

You are creating a separate process for your myApp object, which you don't
need and will cause problems. Your code doesn't actaully use the myApp
object anywhere so you don't need any of them, but if other areas of your
code do make use of them then change :-

Dim myApp As New Outlook.Application
to
Dim myApp As Outlook.Application

next change

Set myApp = CreateObject("Outlook.Application")
to
set myApp = Outlook

Lastly change

Set objNS = GetNamespace("MAPI")
to
Set objNS = Outlook.GetNamespace("MAPI")
or
Set objNS = myApp.GetNamespace("MAPI")

Does this prevent the problem?

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.