Please use the following code.

Sub Req_AfterPost
On Error Resume Next
Dim strTo
Dim strSubject
Dim strComment

Set tdc = TDConnection
Set objReqFactory = tdc.reqFactory
Set ReqFilter = objReqFactory.Filter
pQCAdmin = ''singu.sivanaga@orasi.com'' 'Send the email to the Quality Center Administrator
'Change for your own environment
Req_AssignedTo = Req_Fields.Field(''RQ_USER_01'').Value
pEmail = tdc.Customization.Users.User(Req_AssignedTo).Email
If len(pEmail)<1 Then 'If Requirement Author's email address is blank pEmail = pQCAdmin 'Send the email to the Quality Center Administrator Req_AssignedTo = pEmail 'Change for your own environment End If If Req_Fields(''RQ_REQ_REVIEWED'').Value = ''ReadyforReview'' Then strTO = Req_AssignedTo strSubject = ''The Status for Requirement # '' & Req_Fields(''RQ_REQ_ID'').value & '' Has Changed to '' & Req_Fields(''RQ_REQ_REVIEWED'').value strComment = ''The Status for Requirement # '' & Req_Fields(''RQ_REQ_ID'').value & '' Has Changed to '' & Req_Fields(''RQ_REQ_REVIEWED'').value TDConnection.sendmail strTo, strFrom, strSubject, strComment, NULL, ''HTML'' Set TDConnection = nothing MsgBox ''Mail Sent'' End if Set tdc = nothing Set objReqFactory = nothing On Error GoTo 0 End Sub