Thanks Trudy for going through the code. I realized the ObjectID mistake and changed it also.
The 1st error,
Error at Line 171, (character 1) Object doesn't support this property or method: 'TDConnection.TestFolder_Fields.Field("AL_DESCRIPTION").Value':
was due to the TDConnection part in that. So I changed it to : TestFolder_Fields.Field("AL_DESCRIPTION").Value
and it works fine now.
I am also getting the type mismatch error on the PrintError statment. So I just commented out those printerror lines and now it is working fine. I am getting the email with all the details I needed.
I also checked by updating an existing test case to see whether it sends out email on updates; it is not sending email on update and is sending email only when I add a new test case. So I guess havine this code in the Test_AfterPost should work fine.
I have ALM 11 with patch 17.
I need to check whether this would work when the user adds the test case through Sprinter though.
Thanks again Trudy for all your help.