Code:
Private Sub Expired_AfterUpdate()
Dim outLookApp As Outlook.Application
Dim outLookTask As Outlook.TaskItem
Set outLookApp = CreateObject("outlook.application")
Set outLookTask = outLookApp.CreateItem(olTaskItem)
countMonth = MonthName(Month(Task_Due))
countYear = Year(Task_Due)
With outLookTask
.Subject = "Task
Leave a comment: