I have been able to migrate from the filter to the new /rest/api/3/search/jql API. However, my code is now failing on getting the comment("body"). Everything else works. There is a comment on the jira and the date of the comment is successfully retrieved.
If fields.Exists("comment") Then
If fields("comment").Exists("comments") Then
For Each oComment In fields("comment")("comments")
If CDate(mConvertISODate(oComment("updated"))) > dLatestCommentDate Then
Set oLatestComment = oComment
dLatestCommentDate = CDate(mConvertISODate(oComment("updated")))
End If
Next oComment
If Not oLatestComment Is Nothing Then
sCommentUpdated = mConvertISODate(oLatestComment("updated"))
sCommentBody = oLatestComment("body")
sCommentAuthor = oLatestComment("author")("displayName")
oWS.Cells(iInt, enuColumnNumber.Comment_Date).Value = sCommentUpdated
oWS.Cells(iInt, enuColumnNumber.Comments).Value = sCommentBody & vbCrLf & vbCrLf & " Author: " & sCommentAuthor
oWS.Cells(iInt, enuColumnNumber.Comments).Font.color = RGB(255, 255, 255)
'MsgBox (sCommentUpdated & vbCrLf & vbCrLf & " - " & sCommentBody & vbCrLf & vbCrLf & " Author: " & sCommentAuthor)
End If
End If
End If