Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie

auto create a new related task when a task has finished in outlook

Options
  • 16-05-2017 3:28am
    #1
    Registered Users Posts: 1


    hello,
    Here is the question. I have some related tasks. For example , task 1 and task 2. And I need to start task 2 just after task 1 has finished.  But I'm not sure when task 1 will finished.  So I can't use the Recurrence feature on tasks for that, I just need to do that manually.
    Is there any way that can auto do that in outlook? How to auto create a new related task when a task has finished ?


Comments

  • Registered Users Posts: 1 Maczry


    Hi,
    You can use VBA to do that. I just search online and find a link which may help

    You can search on goole with "How to Auto Create a New Follow-up Task After Completing a Specific One in Your Outlook"

    And I attach the code here ,good luck

    Public WithEvents objTasks As Outlook.Items

    Private Sub Application_Startup()
        Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items
    End Sub

    Private Sub objTasks_ItemChange(ByVal Item As Object)
        Dim objCurrentTask As Outlook.TaskItem
        Dim objFollowUpTask As Outlook.TaskItem
        Dim strSubject As String
     
        'Change the specific conditions as per your own case
        If InStr(Item.Subject, "DataNumen Outlook Repair Project") > 0 Then
           Set objCurrentTask = Item
           'Create a new task after completing the current one
           If objCurrentTask.Complete = True Then
              Set objFollowUpTask = Outlook.Application.CreateItem(olTaskItem)
     
              'You can change the new follow-up task details to your own needs
              With objFollowUpTask
                   .Subject = "DataNumen Outlook Repair Project" & vbTab & Format(Now, "DD/MM/YYYY hh:mm")
                   .Body = objCurrentTask.Body
                   .attachments.Add objCurrentTask
                   .Display
              End With
           End If
        End If
    End Sub


Advertisement