TaskItem
Object exposes various methods and properties which can be set to create automated reminder tasks in Outlook. In this PoC we will write code to create and automated task by taking inputs from Excel sheet and mark it highly importance to the receipents.
Code example
Sub createReminderTask() 'Outlook application object declaration Dim oApp As Outlook.Application 'bind current outlook instance Set oApp = GetObject("", "Outlook.Application") 'Declare object Dim oTaskItem As TaskItem 'Create new item Set oTaskItem = oApp.CreateItem(olTaskItem) 'Assign proerties oTaskItem.Assign 'Declare Receipents object Dim oReceipents As Outlook.Recipient 'Add receipents Set oReceipents = oTaskItem.Recipients.Add(Range("B2")) 'Perform resolve oReceipents.Resolve 'Check if resolved If oReceipents.Resolved = True Then oTaskItem.Subject = Range("B1") oTaskItem.DueDate = Range("B3") oTaskItem.Body = Range("B5") End If 'Setting reminder oTaskItem.ReminderSet = True 'Set importance oTaskItem.Importance = olImportanceHigh 'set time oTaskItem.ReminderTime = Range("D3") 'Start Date oTaskItem.StartDate = Range("B4") 'Display oTaskItem.Display 'Send oTaskItem.Send 'Close outlook oApp.Quit 'CleanUp If Not oTaskItem Is Nothing Then Set oTaskItem = Nothing End If If Not oApp Is Nothing Then Set oApp = Nothing End If End Sub
Input

Output

Next >> Create Outlook Meeting or Appointment using VBA Code