Email from qtp to Microsoft outlook through vb script

Email from qtp to Microsoft outlook through vb script - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Email from qtp to Microsoft outlook through vb script (/Thread-Email-from-qtp-to-Microsoft-outlook-through-vb-script)

Pages: 1 2 3

RE: Email from qtp to Microsoft outlook through vb script - siri - 07-29-2008

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

RE: Email from qtp to Microsoft outlook through vb script - surya_7mar - 07-29-2008

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

RE: Email from qtp to Microsoft outlook through vb script - surya_7mar - 07-29-2008

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

RE: Email from qtp to Microsoft outlook through vb script - siri - 07-29-2008

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

RE: Email from qtp to Microsoft outlook through vb script - surya_7mar - 07-29-2008

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

RE: Email from qtp to Microsoft outlook through vb script - siri - 07-30-2008

Hi Surya ,

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

RE: Email from qtp to Microsoft outlook through vb script - surya_7mar - 07-30-2008

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"

RE: Email from qtp to Microsoft outlook through vb script - surya_7mar - 07-30-2008

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

RE: Email from qtp to Microsoft outlook through vb script - siri - 07-30-2008

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

RE: Email from qtp to Microsoft outlook through vb script - surya_7mar - 07-30-2008

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