my code stock.com

bf4648

Change all due date items to current date
by bf4648

Outlook vb script to change all due dates to "current date"

Snippet options

Download: Download snippet as change-all-due-date-items-to-current-date.txt.
Copy snippet: For this you need a free my code stock.com account.
Embed code : You will find the embed code for this snippet at the end of the page, if you want to embed it into a website or a blog!

Const olFolderTasks = 13
now_date = Date()

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderTasks)

Set colItems = objFolder.Items
strFilter = "[Complete] = FALSE"
strFilter = "[Due Date] < now_date"
strFilter = "[Start Date] < now_date"
Set colTasks = colItems.Restrict(strFilter)

For Each objTask In colTasks
   objTask.DueDate = now_date
   objTask.StartDate = now_date
   objTask.Save
Next

Create a free my code stock.com account now.

my code stok.com is a free service, which allows you to save and manage code snippes of any kind and programming language. We provide many advantages for your daily work with code-snippets, also for your teamwork. Give it a try!

Find out more and register now

You can customize the height of iFrame-Codes as needed! You can find more infos in our API Reference for iframe Embeds.