Search results

Great Diane, I will implement that new code. Ironically after tweak my code with your previous update I have nit had a single duplicate all day today, although I've probably just been fortunate. I have also successfully updated it with extra code so that only certain categories create the new...

Thanks Michael & Dianne, I really appreciate the help and I thank you for the clarification regarding the use of the "complete" category. Regardless of my own reading and research I have learnt far more from you here on the forum. Dianne, The "Private WithEvents" line is definitely there. It's...

I am now getting confused. Some of the most recent posts seem to reference a category of complete. My code relates purely to a complete status.

My current code still looks like this: Private Sub Application_Startup() Dim Ns As Outlook.NameSpace Set Ns = Application.GetNamespace("MAPI") Set Items = Ns.GetDefaultFolder(olFolderTasks).Items End Sub Private Sub Items_ItemChange(ByVal Item As Object) 'On Error Resume Next Dim...

I haven't been able to figure out exactly where to put "busy flag" code into mine. I either get an error when i run it or it doesn't do anything.

Hmmmm. No I spoke too soon. There appears to have been a delay but between the creation of the first task but an extra two eventually appeared.

Thanks Diane & Michael, You are a wealth of information and have been a great help, both for this project and general learning. Diane, your solution seems to be working so far. I will proceed with my other adjustments. Michael, I will keep your response in mind as there may be more categories...

Thanks for testing. It's not an identical task that I am regenerating. It uses the date completed as the start date and sets a due date 10 days later. There will also be other changes and filters that will be made but I want to get the basic concept working first before I proceed further...

Oops. Thanks for the tip about the "On Error Resume" line. Very handy. I had been commenting various lines out to see how it changed the outcome in an attempt to fix the issue with it creating three new tasks. I had obviously forgot to change it back before posting the code. I have checked and...

Thanks Michael & Diane, I now almost have the code working as hoped. Here is my updated code: ' <DieseOutlookSitzung> Private Sub Application_Startup() Dim Ns As Outlook.NameSpace Set Ns = Application.GetNamespace("MAPI") Set Items = Ns.GetDefaultFolder(olFolderTasks).Items End Sub...

I am still having problems getting this to work. Here is my code: ' <DieseOutlookSitzung> Private Sub Application_Startup() Dim Ns As Outlook.NameSpace Set Ns = Application.GetNamespace("MAPI") Set Items = Ns.GetDefaultFolder(olFolderTasks).Items End Sub Private Sub...

Thanks Michael, That's actually the code that I was trying to use as a starting point, but I couldn't seem to get it to work as is much less modify it to do what I want. I'll keep researching and trying.

I am wanting to create some vba code that will automatically create a new task when an existing task is completed. I need it to auto-run (via the VbaProject.OTM) so that when tasks of certain categories are marked as complete a new task is created using the same subject, a different category...