Backups - Macrium v4 email

Document Library
Main Topic

Kurt Tomicich
2010/05/15

Reference

Originator	Reviewers
Kurt Tomicich

Set up the backup and save the XML file in Macrium Reflect
Right-click the XML file and Generate VBS from it
Set up the options, including email notification
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

All Documents By Author By Category By Alternate Name Review Status Help