Client Name

LICENSE INFORMATION:

Download the latest version of Reflect:
	http://www.macrium.com/download/direct/reflect_setup_x86_x64.exe

EMAIL NOTIFICATION
1. Set up the backup and save the XML file in Macrium Reflect
2. Right-click the XML file and Generate VBS from it
3. Set up the options, including email notification
4. Edit the VBS file and use the below formated code (modified as appropriate) and replace the email code at the bottom of the VBS file

----------CODE----------

Function SendEmail(ByRef strSubject, _
				   ByRef strBody,    _
				   ByRef strLogFileName)
	Dim objMessage 

	Set objMessage = CreateObject("CDO.Message") 

	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.gmail.com"
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="krtservices@gmail.com"
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="PASSWORD"
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=465
	objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=True
	objMessage.Configuration.Fields.Update

	objMessage.Subject = strSubject
	objMessage.From = "KRTServer@krtservices.com" 
	objMessage.To = "kurt@krtservices.com" 
	objMessage.TextBody = strBody
	objMessage.AddAttachment strLogFileName
	objMessage.Send
	Set objMessage = nothing
End Function