Skip to main content

Send Mail uisng Outlook with Vb Script or QTP/UFT

By

strToaddress = "Jayakrishna@sample.com;Jayakrishna2@sample.com"
strSubject = "Sample-Subject"
strBody = "Sample-Body"
strAttachPath = "C:\Dump\Sample.txt"

SendMailFromOutlook strToaddress,strSubject,strBody,strAttachPath

Function SendMailFromOutlook(strToaddress,strSubject,strBody,strAttachPath)
      Dim objOut, Objmail
      Set objOut = CreateObject("Outlook.Application")
      Set Objmail = objOut.CreateItem(0)        

        With Objmail
        .To = strToaddress
        .Subject = strSubject
        .Body = strBody
        If strAttachPath <> "" Then                  
            .Attachments.Add(strAttachPath)
        End If
        .Save
        .Send
      End With
    
      'Clear the memory
      Set objOut = Nothing
      Set Objmail = Nothing
End Function

Note : Mail will be sent from your Local Configured Outlook.
Labels:

Comments

Post a Comment

Popular posts from this blog

Convert JSON to XML using QTP/UFT/VBScript

By
Sample Code : Dim strPage,strJSON,objIE strPage = "C:\Jay\JLoader.html" Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate2 strPage While objIE.Busy : Wend strJSON = "{""FirstName"":""Jay"", ""LastName"":""Krishna""}" Set objWin = objIE.document.parentWindow objWin.execScript "var jsonStr2XML = function(strJSON) { return json2xml(JSON.parse(strJSON));};" Msgbox  oWin.jsonStr2XML(strJSON) objIE.Quit In Detail: Converting The most popular data interchange format JSON(JavaScript Object Notation) to XML using QTP/UFT. Parsing JSON in UFT could be a challenge so we will use JavaScript in UFT to make it perfect. SO We need :              Java Script API  - To Convert JSON to XML                         JavaScript Files :                         http://goessner.net/download/prj/jsonxml/j
Post a Comment
Read more

Compare Two Excel sheets cell by cell Using Vb Script

By
'This code will open two excel sheet and compare each sheet cell by cell, if any changes there in cells , it will highlight the cells in red color  in the first sheet. Set objExcel = CreateObject(“Excel.Application”) objExcel.Visible = True Set objWorkbook1= objExcel.Workbooks.Open(“C:\Jaykrishna\Docs1.xls”) Set objWorkbook2= objExcel.Workbooks.Open(“C:\Jaykrishna\Docs2.xls”) Set objWorksheet1= objWorkbook1.Worksheets(1) Set objWorksheet2= objWorkbook2.Worksheets(1)    For Each cell In objWorksheet1.UsedRange        If cell.Value <> objWorksheet2.Range(cell.Address).Value Then            cell.Interior.ColorIndex = 3′Highlights in red color if any changes in cells        Else            cell.Interior.ColorIndex = 0        End If    Next set objExcel=nothing
Post a Comment
Read more

Customised HTML Result Report for UFT/QTP with ScreenShots in HP ALM TestSet attached.

By
On   Error   Resume   Next '======================================================================================================================================== 'Module Name            :    GenerateCustomReport.qfl ' Author                    :    Jay 'Date Created            :     13/11/2014 'Description                :     The library contains various functions that are used to generate a Custom HTML report '======================================================================================================================================== 'Project/Test Specific Variables Public  blnGlobalHTMLReport : blnGlobalHTMLReport  =   True       ' is a global variable. If this is set to true then Custom HTML Reporting will be enabled for the Test Public  blnGlobalQTPReport : blnGlobalQTPReport  =   True           ' is a global variable. If this is set to FALSE then the Reporter events will NOT be logged by this function only. Reporter event
Post a Comment
Read more

PDF Automation in QTP

By
                                                                            The most challenging issue with PDFs is that it could be of any kind, not just a tabular data; it could have plain text, images or even forms to fill up. So this makes a tester’s life a bit difficult, never mind, we will definitely find an easy of do it… Although there are already some better approaches we have to deal with PDF documents but I found many of us are facing so many difficulties using this. There are lots of queries coming at QTP forums asking for an easy way of doing it with PDFs. keeping those in my mind I started creating this API mainly for comparing two PDF documents, and added few more features in it. We will see all of them later in this article. LearnQuickTestPDF API works with iTextSharp. Sometime back when I was involved in a PDF project I found this really useful library which does a great deal to ease the burden of manipulating PDF documents.It provides all of the
Post a Comment
Read more

How To open Password Protected Excel sheets using Vb Script

By
Function UnprotectXL(filePath,fileName,pwd,writeresPwd)    Set objExcel=CreateObject(“Excel.Application”)    objExcel.Visible=false    testData=filePath&”\”&fileName    Set oWorkbook=objExcel.Workbooks    Set myWkbook=objExcel.Workbooks.open (testData,0,False,5,pwd,writeresPwd)    objExcel.DisplayAlerts=False    oWorkbook(fileName).Activate    For Each w in objExcel.Workbooks         w.SaveAs testData,,”",”"          Next    objExcel.Workbooks.Close    objExcel.Quit    Set oWorkbook=Nothing    Set objExcel=Nothing   End Function Function ProtectXL(filePath,fileName,pwd,writeresPwd)      On Error Resume Next      Set objExcel=CreateObject(“Excel.Application”)      objExcel.Visible=False      testData=filePath&”\”&fileName      Set oWorkbook=objExcel.Workbooks      Set outputWkbook=objExcel.Workbooks.open (testData,0,False)      oWorkbook(testData).Activate      objExcel.DisplayAlerts=False       outputWkbook.SaveAs testData,,pwd,writeresPwd         outputWkboo
Post a Comment
Read more