Solved

No modification in ten days to task reminder

Posted on 2009-07-15
14
230 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
  • 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
 

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
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 

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

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

Granting full access permission allows users to access mailboxes present in their database. By giving full access permission one can open and read the content of any mailbox but cannot send emails from that mailbox.
Resolve Outlook connectivity issues after moving mailbox to new Exchange 2016 server
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …

747 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now