Some code to set your due tasks 20 days from now

R

replacewithat

Sub taskadd_days()
Set myOlApp = Outlook.Application
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks)
Set myItems = myFolder.Items
For Each x In myFolder.Items
If x.Complete <> True And x.DueDate < Date Then
x.DueDate = Date + 20
x.ReminderTime = Date + 15 + TimeValue("09:00:00")
x.ReminderSet = True
x.Save
End If
Next
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Want e-mail addresses from items in my inbox 5
Want to forward a template email with an email address contained inthe trigger email 1
Changes in Tasks 3
VBA: how to set a category to all mail in a folder ? 1
Retrieving Calendar Info 2
Save Excel Attachment Using VBA 2
How to copy only the changed and new journal items? 1
move read email based on date and sender 8

Top