Veritas System Recovery fails to send an email when mail server requires using Secure Socket Layer (SSL) or Transport Layer Security (TLS) for SMTP email

As a workaround for earlier versions of System Recovery, a VB Script can be utilized to send a notification. However, running a VB Script may be blocked by a provider or mail server.

 

Create the following as a text file and then save it as a .VBS file:

 

'Send a test SMTP email using Microsoft's CDO

option explicit

DIM userName
DIM password
DIM cdoNone
DIM cdoBasic
DIM cdoNTLM
DIM authenticateType

cdoNone = 0
cdoBasic = 1
cdoNTLM = 2


"Set username, password and server authentication type here, the authentication types are above
userName = "username"
password = "password"
authenticateType = cdoBasic


Call SendMessage ( "smtp.server.com", "emailid@smtp.server.com <mailto:emailid@smtp.server.com>", "email test", "this is a test!" )


"Sends an SMTP message using the passed parameters
Sub SendMessage( sSMTPServer, sTo, sSubject, sText)

Dim iMsg
Dim iConf
Dim Flds

'' Configure message fields
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(" <https://schemas.microsoft.com/cdo/configuration/sendusing> ")        = 2          'cdoSendUsingPort
Flds(" <https://schemas.microsoft.com/cdo/configuration/sendemailaddress> ") = sTo
Flds(" <https://schemas.microsoft.com/cdo/configuration/smtpserver> ")       = sSMTPServer
Flds(" <https://schemas.microsoft.com/cdo/configuration/smtpserverport> ")   = 25         'most common SMTP port
Flds(" <https://schemas.microsoft.com/cdo/configuration/smtpauthenticate> ") = authenticateType
Flds(" <https://schemas.microsoft.com/cdo/configuration/sendusername> ")     = userName   'the username to send as
Flds(" <https://schemas.microsoft.com/cdo/configuration/sendpassword> ")     = password
Flds(" <https://schemas.microsoft.com/cdo/configuration/smtpusessl> ")       = True       ' server uses ssl
Flds.Update

'' Send message
Set iMsg = CreateObject("CDO.Message")
Set iMsg.Configuration = iConf
iMsg.To                                = sTo
iMsg.From          = sTo
iMsg.Sender      = sTo
iMsg.Subject      = sSubject
iMsg.TextBody  = sText
iMsg.Send

WScript.Echo "Message sent successfully!"

End Sub

Ensure that you have included the username and password that System Recovery is using for its service, and run the script.  If this fails, try using a different username and password. Once you have one that works, ensure that it has the rights to create images. Then stop the System Recovery service, provide the same credentials for System Recovery to use as its service account, restart the service and create a backup.  See attached file as an example.  To use the attached script file after modifying it, remove the .good.