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

[surya_7mar]

Code:

objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "amermsx.med.ge.com"

This is not correct could you please check this..
I am tring for my server it is working fine.


And also you should objMessage.Send use this at the end

[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

[siri]

Hi ,
THis code is working fine .

Code:

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "sirisha.guntur@wisseninfotech.com"
objEmail.To = "sirisha.guntur@ge.com"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."

objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
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/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send

[surya_7mar]

So you got the solution good..
Have a nice day

[siri]

Hi Surya ,

I am not able to send a mail from qtp to outlook with the help of qc
cAN UTELL EMTHE SCRIPT

[surya_7mar]

First make sure you QTP is connected to QC.

Then try this below, this should work. I am currently using it.

QCUtil.QCConnection.SendMail "yourmailsid@mycompany.com"

[surya_7mar]

One more is your QC configured Properly to send mails? If not sure contact the concern person

[siri]

I have worked on some other script .

This will post the empty defect from qc to outlook.

Noe i need a script if i get a bug in qtp how to post to qc immedialtely
'Create connection

Code:

Dim QCConnection
Set QCConnection = QCUtil.QCConnection
Set BugFactory = QCConnection.BugFactory

'Add a new, empty defect

Code:

Set bug = BugFactory.AddItem (Nothing)

bug.field("BG_SUMMARY") = defect_summary '"test adding a new defect from QTP as well as automatic e-mail functionality"
bug.field ("BG_STATUS") = "New" '--Default
bug.field ("BG_DETECTED_BY") = siri
bug.field ("BG_DETECTION_DATE") = date() 'Default to current date
bug.field ("BG_DESCRIPTION") = "Requirement = '"&req&"Reporting defect of QC through mail from QTP to the USER "&defect_desc'"This is a test entry from automation, QuickTest Pro. The actual result did not meet the expected result. The Analyst, Developer (Assigned To person) and Tester (Deteted By person) should get an email of this defect automatically."
bug.field ("BG_RESPONSIBLE") = sam  '"georgeslauture" 'Assigned To field

'These are user defined fields

Code:

'bug.field ("BG_USER_02") = sam "Analyst field
'bug.field ("BG_USER_04") = "Testing" 'Introduced By field -- DEFAULT
'bug.field ("BG_USER_05") = req'Requirements field
'bug.field ("BG_USER_03") ="Automation" 'Found In field - 'Default
''install_date = DateAdd("d",30,date())
'bug.field ("BG_USER_06") = install_date 'Install Date field
bug.Post 'commit to creating defect

'Clean and and release resources

Code:

Set BugFactory = Nothing
Set bug = Nothing

[surya_7mar]

I didnt work on this but i think we have a setting QC which will automatically post a defect to QC.