Email from qtp to Microsoft outlook through vb script

[surya_7mar]

Code:

Set objEmail=CreateObject("CDO.Message")
objEmail.Subject = "Simple plain text CDO example"
objEmail.From = "sirisha.guntur@ge.com"
objEmail.To = "sirisha.guntur@wisseninfotech.com"
objEmail.TextBody = "This is a test."

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "amermsx.med.ge.com"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send