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
Hi there,
There is an issue with role permissions that is being worked on at the moment.
If you are having trouble with access or permissions on regional forums please post here to get access: https://www.boards.ie/discussion/2058365403/you-do-not-have-permission-for-that#latest

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

  • 16-05-2017 2:28am
    #1
    Registered Users, Registered Users 2 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, Registered Users 2 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