below code i have written for gmail login or fail and send notification using outlook
Dim ToAddress Dim FromAddress Dim MessageSubject Dim MyTime Dim MessageBody Dim MessageAttachment Dim ol, ns, newMail MyTime = Now ToAddress = "*****@gmail.com" ' Provide to send email address from outlook here Systemutil.Run "iexplore.exe","http://mail.google.com/mail/h/"; handle=Browser("creationtime:=0").GetROProperty("hwnd") Browser("hwnd:=" & handle).webedit("name:=Email").Set "******@gmail.com" 'gmail user name Browser("hwnd:=" & handle).webedit("name:=Passwd").Set "*******" 'gmail password Browser("hwnd:=" & handle).webbutton("name:=Sign in").Click If Browser("Gmail - Inbox").Page("Gmail - Inbox").Link("name:=Compose Mail").Exist(5) Then strtest="sucess" else strtest="fail" end if MessageSubject = "Gmail Login" MessageBody = strtest 'MessageAttachment = ""&logFile&"" Set ol = WScript.CreateObject("Outlook.Application") Set ns = ol.getNamespace("MAPI") Set newMail = ol.CreateItem(olMailItem) newMail.Subject = MessageSubject newMail.Body = MessageBody & vbCrLf & MyTime newMail.RecipIents.Add(ToAddress) 'newMail.Attachments.Add(MessageAttachment) newMail.Send On Fri, Dec 20, 2013 at 11:26 AM, QTP <[email protected]> wrote: > 1. use vbs file to request server > get response and based on that using api trigger the mail. > if you have qc installed then u can go with ota api to send mail.... > > > > On Thursday, December 19, 2013 3:24:59 AM UTC+5:30, george wrote: >> >> >> Hi QTP gurus, >> >> I was tasked to come-up with the some script, that will lunch QTP and run >> test script on the website to verify website functionality and send out >> successful or Failed email every hour. >> >> Can anyone help me with gmail example: >> >> 1. Launch QTP on scheduled time >> 2. Run script to verify user can login to gmail >> 3. Send out email notification or failed notification if user can or >> cannot login or access the site >> >> I would love to see your functions. >> >> Thanks in advance >> >> -- > -- > 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/groups/opt_out. > -- -- 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/groups/opt_out.
