Email from qtp to Microsoft outlook through vb script

[siri]

Hi ,
I am getting an error while using this code like "The "SendUsing" configuration value is invalid."

Code:

Set objMessage = CreateObject("CDO.Message")
Set objEmail=CreateObject("CDO.Message")
objMessage.Subject = "Simple plain text CDO example"
objMessage.From = "sirisha.guntur@ge.com"
objMessage.To = "sirisha.guntur@wisseninfotech.com"
objMessage.TextBody = "This is a test."
objMessage.Send
objMessage.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