Show the code you're using to invoke the Code method and give your Outlook
version and build number.
--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54
"Vasil Vasilev" wrote in message
...
Hi,
I made a custom form in Outlook 2003, which I assign to email messages in
a
certain subfolder of my inbox. Using this form, additional attributes can
be
assigned to the email. The user must open the mail, make the assignment,
save
it, and close it.
At this point I want to move this email to another folder. I'm using the
Close event, but I can't make it work...
I always get runtime error '-1040973560' (c1f40108)
Am I missing something? 
Here my code:
Code:
Public WithEvents myItem As Outlook.MailItem
Dim myApp As New Outlook.Application
Private Sub Application_Startup()
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.ActiveInspector.CurrentItem
......
End Sub
Private Sub myItem_Close(Cancel As Boolean)
Dim objNS As Outlook.NameSpace
Set objNS = GetNamespace("MAPI")
Dim destFolder As Object 'Outlook.MAPIFolder
Set destFolder =
objNS.GetDefaultFolder(olFolderInbox).Folders("Processed")
Set myItem = Application.ActiveInspector.CurrentItem
If Not (myItem.MessageClass = "IPM.Note.PDV_Nachricht_de" Or _
myItem.MessageClass = "IPM.Note.PDVA_Nachricht_de" ) Then
MsgBox " Nothing happens"
Else
myItem.Move destFolder
End If
End Sub
P.S. I also tried to create a temporary mail item, make it equal to the
current mail item, move this one and delete the current... but still no
luck