As a generic Automation requirement most of the projects look at automatic emails being sent after QTP script executes or ends in a failure. Generally, outlook is configured on the systems on whissing Outlook from QTP. '******************************************************************************* ' Function: Outlook_SendEmail ' ' Sends an email using Outlook. ' ' Input Parameters: ' ' strTo - The email address or Outlook contact to whom the email should be sent. ' strSubject - The email's subject. ' strBody - The email's body (this may of course include newline characters). ' ' Output Parameters: ' ' None. ' ' Returns: ' ' Not applicable. This is a sub, not a function. ' Sub Outlook_SendEmail(strTo, strSubject, strBody) 'TODO: maybe add support for CC, BCC, etc? 'Create an Outlook object Dim Outlook 'As New Outlook.Application Set Outlook = CreateObject("Outlook.Application...