|
| 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 |
|
#1
July 22nd 09, 09:23 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Move email using the Close event
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
current mail item, move this one and delete the current... but still no luck 
|
| Ads |
|
#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
|
|
#3
July 22nd 09, 12:56 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
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.
|
|
#4
July 22nd 09, 01:33 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
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
|
|
#5
July 22nd 09, 02:32 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
1. Outlook 2003 (11.8217.8172) SP3
2. What do you mean by "the code you're using to invoke the Code method"? I placed the code in ThisOutlookSession and the event is automatically fired whenever an item is closed... Thanks Vasil "Sue Mosher [MVP]" wrote: 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
|
|
#6
July 22nd 09, 02:59 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
At which line of code does the process fail? Have you tried stepping it
though? -- 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.
|
|
#7
July 22nd 09, 03:10 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
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.
|
|
#8
July 22nd 09, 03:41 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
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.
|
|
#9
July 22nd 09, 03:56 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
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.
|
|
#10
July 22nd 09, 04:41 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Move email using the Close event
Vasil, please see also my reply in the German newsgroup. Additionally to the already mentioned issues: For setting an object varibale you need to use the Set statement Set myItem = ... -- Best regards Michael Bauer - MVP Outlook : Outlook Categories? Category Manager Is Your Tool : VBOffice Reporter for Data Analysis & Reporting : http://www.vboffice.net/product.html?pub=6&lang=en Am Wed, 22 Jul 2009 01:23:01 -0700 schrieb Vasil Vasilev: 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 |
Linear Mode
