strSubject = "GSS #390 for " & ActiveDocument.FormFields("User_Name").Result & Chr(32) & ActiveDocument.FormFields("Cell_Phone_Number").Result