Outlook Banter - View Single Post

**Vasil Vasilev** · July 22nd 09, 09:23 AM posted to microsoft.public.outlook.program_vba

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