| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Visitors | 1409384 | | Impressions | 5190163 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 26.02.2007 | Accessed: 18273 | | | | Description
We are very sorry! This description is not translated yet. Anyway, please try the code as it is self-explanatory. |
Public Sub ReactivateTaskReminder()
Dim Selection As Outlook.Selection
Dim obj As Object
Dim Task As Outlook.TaskItem
Set Selection = Application.ActiveExplorer.Selection
If Selection.Count Then
For Each obj In Selection
If TypeOf obj Is Outlook.TaskItem Then
Set Task = obj
If Year(Task.ReminderTime) < 4500 Then
Task.ReminderSet = True
Task.Save
End If
End If
Next
End If
End Sub
|
| | |
| | |  | ReplyAll alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more] |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
