Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim arr() As String
    Dim i As Integer
    Dim ns As Outlook.NameSpace
    Dim itm As MailItem
    Dim m As Outlook.MailItem
    
    Dim parsedRequest
    
    On Error Resume Next
    
    Set ns = Application.Session
    
    arr = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arr)
        Set itm = ns.GetItemFromID(arr(i))
        If itm.Class = olMail Then
            Set m = itm
            If UCase(Left(m.subject, 3)) = "API" Then
                If (m.DownloadState = olFullItem) Then
                    Response = parseRequest(m.body)
                    
                    Call SendResponse(m.Sender.Address, "RE: " + m.subject, Response)
                    m.MarkAsTask (olMarkComplete)
                    m.Save
                End If
            End If
        End If
    Next
    Set ns = Nothing
    Set itm = Nothing
    Set m = Nothing
End Sub