how to config mailclient in test complete or how to send test result to mail via test complete

//This example demonstrates how you can work with Microsoft Outlook from 
    scripts. It will send messages long with attached script code to John Smith,
    John Smith Corp., at JohnSmith@JohnSmithCorp.com.   

    Run the Outlook_Test procedure.

    Requirements:
       Microsoft Outlook must be installed on your computer.

    NOTE: This example adds a new contact (John Smith, John Smith Corp.) 
          to your address book. Don't forget to remove it later.  */

// MS Outlook constants
var
  olMailItem    = 0;
  olByValue     = 1;
  olContactItem = 2;

function Outlook_Test()
{
  var outlook = CreateOutlook()

  if (GetContactByName(outlook, "sanjayram", "raja", "optisolbusinesssolution") == null)
    AddContact(outlook, "sanjayram", "xxxx", "xxxxx", "sanjayram.r@xxxxx.com");

  SendReport(outlook, "sanjayram", "xxxx", "xxxxxxx", 
               Project.Path + "\\" + "Script\\Outlook_JS.sj");
}

// Initializes MS Outlook
//function CreateOutlook()
//{
  //try
  //{
    //return Sys.ActiveXObject("Outlook.Application");
   //}
  //catch (exception)
  //{
    //return Sys.OleObject("Outlook.Application.12");
  //}
//}
function CreateOutlook() {
  try {
    return new ActiveXObject("Outlook.Application");
  } catch (exception) {
    try {
      return new ActiveXObject("Outlook.Application.12");
    } catch (exception) {
      // Handle the exception here if needed
      return null;
    }
  }
}

// Returns the ContactItem object by user name
function GetContactByName(outlook, firstName, lastName, company)
{
  var ns = outlook.GetNamespace("MAPI");
  for (var j = 1; j <= ns.AddressLists.Count; j++)
  {
    var list = ns.AddressLists.Item(j).AddressEntries
    for (var i = 1; i <= list.Count; i++)
    {
      var contact = list.Item(i).GetContact(); 
      if ( contact != null &&
           contact.FirstName   == firstName &&
           contact.LastName    == lastName &&
           contact.CompanyName == company )
        return contact;
    }
  }

  return null;
}

// Adds a new contact
function AddContact(outlook, firstName, lastName, company, email)
{
  var contact = outlook.CreateItem(olContactItem);
  contact.FirstName     = firstName;
  contact.LastName      = lastName;
  contact.CompanyName   = company;
  contact.Email1Address = email;
  contact.Save();
}

// Sends a report to the user
function SendReport(outlook, firstName, lastName, company, fileNameToAttach)
{
  var contact = GetContactByName(outlook, firstName, lastName, company);
  if (contact == null)
  {
    Log.Error("User " + firstName + " " + lastName + " was not found in the address book.");
    return;
  }

  // Creates a new message
  var mi = outlook.CreateItem(olMailItem);

  // Sets the message subject
  mi.Subject = "Test Results";

  // Sets the message text
  mi.Body = "Hello, " + contact.FirstName + "\n" +
            "Today my regression test failed.\n" +
            "The script is attached.\n\n" +
            "Good Luck,\n" +
            "Your tester";

  // Specifies the destination address 
  mi.To = contact.Email1Address;

  // Attaches the script code
  mi.Attachments.Add(fileNameToAttach, olByValue, mi.Body.length, "Script");

  mi.Display(); // This line displays the new mail on screen.
                // To send the mail, use the Send method
  // mi.Send();
}