Hi tanu,
script can be like that.
Sub SendMail (strTextBody)
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"
objEmail.Subject = "UFT Regression Test results for IE10 "
objEmail.Textbody = strTextBody
objEmail.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2
objEmail.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpserver";) = "
smtp.xxxxx.com"
objEmail.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub
Thanks
Amit Rathi
On Fri, May 8, 2015 at 12:37 PM, Tanu Malik <[email protected]> wrote:
> hi Dmitry ,
>
> Can you please send me the script on how can i send emails in outlook
> through QTP. Actually i am using UFT, windows7, so can you please let me
> know how can i auto tiigger the autiomation script.
> Appreciate your help.
>
>
> On Thursday, 2 November 2006 17:25:47 UTC+5:30, Dmitry Motevich wrote:
>
>> I think, my answer will help you...
>>
>> I created several scheduled tasks - they send special messages to some
>> sites (it's a not a spam :) ).
>>
>> Let's see the one scheduled tasks.
>> It runs every 3 days the file:
>> "D:\Program Files\Mercury Interactive\QuickTest
>> Professional\Tests\AllenCarr\aldebaran_ru\_bat\start_test.cmd"
>>
>> This cmd-file contains:
>> echo ========================================== >> test_results.txt
>> date /T >> test_results.txt
>> time /T >> test_results.txt
>>
>> cscript //nologo .\test.vbs >> test_results.txt 2>&1
>>
>> Next, file test.vbs contains:
>> Dim qtApp 'As QuickTest.Application ' Declare the Application object
>> variable
>> Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
>> Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results
>> Options object variable
>>
>> Set qtApp = CreateObject("QuickTest.Application") ' Create the
>> Application object
>> qtApp.Launch ' Start QuickTest
>> qtApp.Visible = True ' Make the QuickTest application visible
>>
>> qtApp.Open "D:\Program Files\Mercury Interactive\QuickTest
>> Professional\Tests\AllenCarr\aldebaran_ru", True ' Open the test in
>> read-only mode
>>
>> ' set run settings for the test
>> Set qtTest = qtApp.Test
>> qtTest.Run
>>
>> WScript.StdOut.Write "Test status: " + qtTest.LastRunResults.Status +
>> vbCr ' Check the results of the test run
>>
>> qtTest.Close ' Close the test
>>
>> qtApp.Quit ' Close the QTP'
>>
>> And, last note... "D:\Program Files\Mercury Interactive\QuickTest
>> Professional\Tests\AllenCarr\aldebaran_ru" is my script which sends
>> special messages to site.
>>
>> That's all.
>> So, what I have is the following... Every 3 days scheduler executes this
>> script. Result of test execution is written to file ("test_results.txt" in
>> this case).
>> Pay attention, I use file logging for results ( WScript.StdOut.Write
>> "Test status: " + qtTest.LastRunResults.Status + vbCr). But you can send
>> messages via Win-messenger service or send emails (I can provide such
>> scripts for additional reward :) ).
>> If you have some questions, please feel free to contact me if you need. I
>> will answer...
>>
>> --
>> Dmitry Motevich
>>
>>
>>
>> On 11/2/06, Dmitry Motevich <[email protected]> wrote:
>>>
>>>
>>> I need to run QTP tests without a human in the loop - that is
>>> automatically and unattended. If QTP needs to be driven by an external
>>> script (shell, Perl, Windows's CScript,...) that's fine.
>>>
>>> The requirement is that I can issue a single command ( or have a
>>> scheduler do it) and walk away. When I come back, I want to see if all
>>> the tests passed or if any failed (thumbs up/thumbs down).
>>>
>>> I've seen mention of a unsupported tool from the QTP folks that does
>>> this but I've not been able to find it (One chap I found who had it
>>> doesn't have it any more.)
>>>
>>> I'd appreaciate any help or pointers you might have.
>>>
>>>
>>>
>> --
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
> ---
> You received this message because you are subscribed to the Google Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/d/optout.
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
