Dim msg As CDO.Message = New CDO.MessageClass()
        Dim stream As ADODB.Stream = New ADODB.StreamClass()
        Try
            stream.Open(Type.Missing, ADODB.ConnectModeEnum.adModeUnknown, ADODB.StreamOpenOptionsEnum.adOpenStreamUnspecified, String.Empty, String.Empty)
            stream.LoadFromFile(percorsoFile)
            stream.Flush()
            msg.DataSource.OpenObject(stream, "_Stream")
            msg.DataSource.Save()
        Catch ex As Exception
            Dim esitos As New Esito("Errore in apertura file: " & ex.Message, 20)
            context.Response.Write(JsonConvert.SerializeObject(esitos).ToString)
            context.Response.End()
        End Try

        Dim risposta As New JObject
        risposta.Add(New JProperty("body", msg.TextBody.ToString))
        If My.Settings.TK_debug Then
            For Each objAttachment In msg.Attachments
                ' Extract all attachments to the filesystem
                risposta.Add(New JProperty(objAttachment.Name.ToString, objAttachment.Name.ToString))
            Next
            risposta.Add(New JProperty("allegati", msg.Attachments.Count))
            risposta.Add(New JProperty("mail", percorsoFile))
        End If