Function EmailAnalysisToJSON