Solved

No modification in ten days to task reminder

Posted on 2009-07-15
14
237 Views
Last Modified: 2012-05-07
I have many tasks active in outlook and while I try and keep on top of them some I forget about. It is not until I work my way down the list, sorting from modified last that I can clear some of the ones I have forgotten about. It many cases if I had just set a reminder within the task to remind me in a weeks time I wouldn't have missed things.
So is there anyway to make the task tell you that you have not amended it, added notes or such like, ie you have not modified the task in say the last ten days.

I am running Outlook 2007 with exchange on Win XP
Thanks Ed
0
Comment
Question by:edmacey
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 7
14 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 24857854
Hi, Ed.

There's no built-in means of doing this.  Of course it's possible with a bit of scripting.  Are you interested in pursuing that?
0
 

Author Comment

by:edmacey
ID: 24857868
Hi BlueDevilFan, yes definitely interested in a bit of scripting, it would have to run with all my other scripts of course. I can email them to you if you need them in their entirety. Ed.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 24857893
I don't think I need them.  What action do you want to take if the task hasn't been modified in however many days?  Do you want it to open, categegorize it using a certain color, simply build a list, ...?
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:edmacey
ID: 24857905
If a reminder could pop up, maybe as part of the calendar reminders that you usually get at the beginning of a session. Or a pop up alert box, You have not done anything with this task in 10 days, titleoftask. and then simply click OK to carry on.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 24858141
Try this, Ed.
Sub ActivityCheck()
    'Change the interval on the next line'
    Const INTERVAL_DAYS = 10
    Dim olkTask As Outlook.TaskItem, olkPost As Outlook.PostItem
    Set olkPost = Application.CreateItem(olPostItem)
    olkPost.Subject = "Tasks Not Edited Since " & DateAdd("d", -5, Date)
    For Each olkTask In Session.GetDefaultFolder(olFolderTasks).Items
        If Not olkTask.Complete Then
            If DateDiff("d", olkTask.LastModificationTime, Now) > INTERVAL_DAYS Then
                olkPost.HTMLBody = olkPost.HTMLBody & "<a href=""outlook:" & olkTask.EntryID & """>" & olkTask.Subject & "</a><br>"
            End If
        End If
    Next
    olkPost.Save
    olkPost.Display
    Set olkTask = Nothing
    Set olkPost = Nothing
End Sub

Open in new window

0
 

Author Comment

by:edmacey
ID: 24858244
Thanks BlueDevilFan, so that I can check it, how would I set the interval to half an hour? or is that difficult?
0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 24858420
This version is set to 30 minutes.
Sub ActivityCheck()
    'Change the interval on the next line'
    Const INTERVAL_DAYS = 30
    Dim olkTask As Outlook.TaskItem, olkPost As Outlook.PostItem
    Set olkPost = Application.CreateItem(olPostItem)
    olkPost.Subject = "Tasks Not Edited Since " & DateAdd("n", INTERVAL_DAYS, Date)
    For Each olkTask In Session.GetDefaultFolder(olFolderTasks).Items
        If Not olkTask.Complete Then
            If DateDiff("n", olkTask.LastModificationTime, Now) > INTERVAL_DAYS Then
                olkPost.HTMLBody = olkPost.HTMLBody & "<a href=""outlook:" & olkTask.EntryID & """>" & olkTask.Subject & "</a><br>"
            End If
        End If
    Next
    olkPost.Save
    olkPost.Display
    Set olkTask = Nothing
    Set olkPost = Nothing
End Sub

Open in new window

0
 

Author Comment

by:edmacey
ID: 24861048
Forgive me for being silly, I just create a module and put this in it save and reboot?
0
 
LVL 76

Expert Comment

by:David Lee
ID: 24861275
Don't have to reboot.  Just add the code.
0
 

Author Comment

by:edmacey
ID: 25404184
I haven't been able to get this to work at all, is it because it is looking for things older than 30 days?
0
 
LVL 76

Expert Comment

by:David Lee
ID: 25432333
It's only looking for things that are older than 30 minutes.  Have you tried stepping through the code in the debugger to see what happens?
0
 

Author Comment

by:edmacey
ID: 25439070
Dear BlueDevilFan,

I see my error, of course it works it just needs to be started, I have popped into Application_Startup so that it runs whenever I turn on Outlook.

Thanks so much. Ed.
0
 

Author Closing Comment

by:edmacey
ID: 31603649
Thanks Ed.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 25442980
You're welcome, Ed.
0

Featured Post

Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to import an Outlook PST file to Office 365 using a third party product to avoid Microsoft's Azure command line tool, saving you time.
If you troubleshoot Outlook for clients, you may want to know a bit more about the OST file before doing your next job. IMAP can cause a lot of drama if removed in the accounts without backing up.
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

617 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question