Forum Discussion

ualarm's avatar
ualarm
Frequent Visitor
9 years ago
Solved

Send Email Sample using MSOutlook failed to initialize

I tried the MSOutlook sample, I got exception "Unable to initialize MS Outlook".    My register key for 'HKEY_CLASSES_ROOT\Outlook.Application\CurVer' has 'Default'='Outlook.Application.15'   I h...
  • Ravik's avatar
    Ravik
    9 years ago

    Hi,

     

    Try below code (VBScript) it is working.

     

    Sub SendEmail

     

    Set objOutlook = CreateObject("Outlook.Application")

    Set objMailItem = objOutlook.CreateItem(0)

    'Set the email properties

    objMailItem.To = "ravik.ngk@email.com"

    objMailItem.CC = "test@email.com"

     

    'objMailItem.BCC = "" 'If BCC is not required, then this line can be omitted

    objMailItem.Subject = " Test Execution Status using TestComplete"

     

    objMailItem.Body= "PFA Test Execution Result" &chr(13)&chr(13)&"Thanks & Regards,"&chr(13)& Sys.UserName

     

    FileName = Project.ConfigPath & "ExportedLog\TC Execution Status Or Result.mht"

     

    'Call Log.SaveResultsAs(Filename, lsMHT)

     

    objMailItem.Attachments.Add(FileName) 'TC log File Attached

     

     

    objMailItem.Send

    Set objMailItem = Nothing

    Set objOutlook = Nothing

     

    End Sub

     

    Note - This code is export the Test log and send attachement of log (If log size is more, then outlook error may appear)

     

Ravik's avatar
Ravik
Super Contributor
9 years ago

Hi,

 

Try below code (VBScript) it is working.

 

Sub SendEmail

 

Set objOutlook = CreateObject("Outlook.Application")

Set objMailItem = objOutlook.CreateItem(0)

'Set the email properties

objMailItem.To = "ravik.ngk@email.com"

objMailItem.CC = "test@email.com"

 

'objMailItem.BCC = "" 'If BCC is not required, then this line can be omitted

objMailItem.Subject = " Test Execution Status using TestComplete"

 

objMailItem.Body= "PFA Test Execution Result" &chr(13)&chr(13)&"Thanks & Regards,"&chr(13)& Sys.UserName

 

FileName = Project.ConfigPath & "ExportedLog\TC Execution Status Or Result.mht"

 

'Call Log.SaveResultsAs(Filename, lsMHT)

 

objMailItem.Attachments.Add(FileName) 'TC log File Attached

 

 

objMailItem.Send

Set objMailItem = Nothing

Set objOutlook = Nothing

 

End Sub

 

Note - This code is export the Test log and send attachement of log (If log size is more, then outlook error may appear)