Search results

Excellent! That works. Now to figure out the best way to automatically apply that tag to any overdue tasks. Thanks again Diane

OK, so I now have:- Sub UpdateTaskStatus() Dim objTask As Outlook.TaskItem Dim overdueDate As Date ' Define the overdue threshold (e.g., overdue if due date is in the past) overdueDate = Date On Error Resume Next ' Continue if an error occurs (e.g., not a task item)...

In the meantime, I have added the macro I have above to a button in the quick access ribbon in the toolbar within open task windows. When I run the macro when the task window it should apply the text "Overdue" to my custom field "TaskStatus". Since this task is open then this should work, but...

Thanks Diane, I'll check all that out.

I am trying to add some text to a custom field I have created when a task is overdue so that I can use it when sorting some of my lists. I plan on running it automatically somehow at the start of the day and then hoping to apply it when a new task is added or changed for new or updated...

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...