Sub myButtonMacro3(control As IRibbonControl)

    myDocName = Left(ActiveDocument.Name, (InStr(ActiveDocument.Name, ".doc")) - 1)
    mySession = ""
    
    While IsNumeric(Right(myDocName, 1))
        mySession = Right(myDocName, 1) + mySession
        myDocName = Left(myDocName, Len(myDocName) - 1)
    Wend
    
    myLeagueName = Left(myDocName, Len(myDocName) - 4)
    mySubject = "NewsLetter For " + myLeagueName + " Session " + mySession
    myBody = "Here you go ..."
    
     ActiveDocument.Save
    
    Set oOutlookApp = GetObject(, "Outlook.Application")

    If Err <> 0 Then
        Set oOutlookApp = CreateObject("Outlook.Application")
        bStarted = True
    End If

    Set oItem = oOutlookApp.CreateItem(olMailItem)

    With oItem
        .To = "xxx@gmail.com"
        .Subject = mySubject
        .Body = myBody
        .Attachments.Add ActiveDocument.FullName
        .Send
    End With

    If bStarted Then
        oOutlookApp.Quit
    End If
    
    UpdateCalendar '<<< Call Routine to update Task 
    
    Set oItem = Nothing
    Set oOutlookApp = Nothing

    Application.Quit


End Sub

Sub UpdateCalendar()

'The following code is NOT working code, it is just typed up from memory, but no matter what I try,
'I cannot even get the next line working & I am getting no help from the IntelliSense system !

    Set oTsk = Outlook.TaskItem
    
    For Each oTsk In oOutlookApp
        If Task.Name = myLeagueName & " Newsletter" Then
            Task.Status = olWaitingOnSomeoneElse
            Task.Complete = "75%"
            Task.Categories = "Newsletters : Sent"
            Task.Save
        End If
    Next olTsk

End Sub