|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#2
July 22nd 09, 11:48 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Move email using the Close event
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. "Vasil Vasilev" wrote: 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 
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Inspecter Close Event | dch3 | Outlook and VBA | 2 | August 27th 07 11:34 AM |
| MailItem Close Event | Robert Morley | Outlook and VBA | 8 | April 19th 07 09:03 PM |
| Explorer' Close event not fired | j | Add-ins for Outlook | 9 | April 2nd 07 02:24 PM |
| Inspector Close Event is fired when spell checking is canceled. | Arcady | Outlook and VBA | 6 | December 28th 06 02:38 PM |
| Cancelling Outlook.Application.ActiveExplorer.Close event? | Nathan | Add-ins for Outlook | 1 | September 8th 06 07:14 PM |
Threaded Mode