Outlook Security Manager deployment: overview

2 Comments

• Clive Newell says:

  January 5, 2012 at 6:24 pm

  Outlook Security Manager 2007 works fine on Windows XP with MS 2003 Office Loaded.

  Outllook Security Manager 2010 also works fine on Windows XP with MS 2003 Office Loaded.

  Keep getting the following error on a Window 7 64bit PC with MS Office 2010 32 bit loaded.

  Run Time Error 429: ActiveX component can’t create object.

  Running from MS Access 2010. See code below

  Function EmailStatements() As Boolean
  EmailStatements = False
  On Error GoTo EmailStatementsErr
  Dim olApp As Outlook.Application
  Dim objMail As Outlook.MailItem
  Dim olAttach As Outlook.Attachment
  Dim SecurityManager As New AddInExpress.OutlookSecurityManager
  Dim strEmail As String
  strSql = “SELECT ”
  strSql = strSql & “FNPR_CheckPrintSortTable.CheckPrintSortOrder,”
  strSql = strSql & “FNPR_CheckPrintSortTable.EmployeeNo,”
  strSql = strSql & “FNPR_CheckPrintSortTable.PeriodEndSortDate,”
  strSql = strSql & “FNPR_CheckPrintSortTable.CheckType,”
  strSql = strSql & “FNPR_EmployeeMasterTable.EarningsStatementPath,”
  strSql = strSql & “FNPR_EmployeeMasterTable.Email”
  strSql = strSql & ” FROM ”
  strSql = strSql & “FNPR_CheckPrintSortTable”
  strSql = strSql & ” INNER JOIN ”
  strSql = strSql & “FNPR_EmployeeMasterTable”
  strSql = strSql & ” ON ”
  strSql = strSql & “FNPR_CheckPrintSortTable.EmployeeNo = FNPR_EmployeeMasterTable.EmployeeNo”
  strSql = strSql & ” WHERE ”
  strSql = strSql & “(”
  strSql = strSql & “(FNPR_EmployeeMasterTable.Email Is Not Null)”
  strSql = strSql & ” AND ”
  strSql = strSql & “(FNPR_EmployeeMasterTable.EarningsStatementPath Is Not Null)”
  strSql = strSql & “)”
  strSql = strSql & ” ORDER BY ”
  strSql = strSql & “FNPR_CheckPrintSortTable.CheckPrintSortOrder”
  strSql = strSql & “;”
  If rstCheckSort.State adStateClosed Then
  rstCheckSort.Close
  End If
  DoCmd.Hourglass True
  rstCheckSort.Open strSql, CodeProject.Connection, adOpenForwardOnly, adLockReadOnly
  If rstCheckSort.BOF = True Then
  rstCheckSort.Close
  Set rstCheckSort = Nothing
  DoCmd.Hourglass False
  MsgBox “No email earnings statements found.”, vbCritical + vbOKOnly
  Exit Function
  End If
  strSubject = “Greetings from ” & strCompName
  strMessageText = “See attached payroll earnings statement for period ending ” & Format(txtPeriodEndingDate, “mm/dd/yyyy”) & “.”
  strMessageText = strMessageText & vbCrLf & vbCrLf
  Set olApp = Outlook.Application

  ‘ Fails on any SecurityManager call. Not just connect. SecurityManger.About fails as well.

  Call SecurityManager.ConnectTo(olApp)

  If SecurityManager.Check(osmObjectModel) osmOK Then
  MsgBox “Outlook security cannot be disabled.”, vbCritical + vbOKOnly
  GoTo EmailSendErr
  End If
  If SecurityManager.Check(osmObjectModel) = osmDLLNotLoaded Then
  MsgBox “Outlook Security cannot be disabled because Outlook Security Manager is not registered.”, vbCritical + vbOKOnly
  GoTo EmailSendErr
  End If
  If SecurityManager.Check(osmObjectModel) = osmSecurityGuardNotFound Then
  MsgBox “Outlook security guard cannot be found.”, vbCritical + vbOKOnly
  GoTo EmailSendErr
  End If
  If SecurityManager.Check(osmObjectModel) = osmUnknownOlVersion Then
  MsgBox “Outlook security cannot be disabled because Outlook Security Manager cannot determine Outllook version.”, vbCritical + vbOKOnly
  GoTo EmailSendErr
  End If
  SecurityManager.DisableOOMWarnings = True
  On Error GoTo EmailSendErr
  Do Until rstCheckSort.EOF = True
  Set objMail = olApp.CreateItem(olMailItem)
  strEmail = Trim(rstCheckSort(“Email”))
  strPathToFile = rstCheckSort(“EarningsStatementPath”)
  If Right(strPathToFile, 1) “\” Then
  strPathToFile = strPathToFile & “\”
  End If
  strOutputFile = strPathToFile & “EarningsStatement” ‘ Path to file
  strOutputFile = strOutputFile & “_” & rstCheckSort(“EmployeeNo”) ‘ Employee #
  strOutputFile = strOutputFile & “_” & rstCheckSort(“PeriodEndSortDate”) ‘ Period end date
  strOutputFile = strOutputFile & “_” & rstCheckSort(“CheckType”) ‘ Check type
  strOutputFile = strOutputFile & “.” & strOutputFileType ‘ File type
  Set olAttach = objMail.Attachments.Add(strOutputFile)
  objMail.BodyFormat = olFormatRichText
  objMail.Subject = strSubject
  objMail.Body = strMessageText
  objMail.To = strEmail
  objMail.Send
  DoEvents
  rstCheckSort.MoveNext
  Loop
  SecurityManager.DisableOOMWarnings = False
  Call SecurityManager.Disconnect(olApp)
  Set SecurityManager = Nothing
  Set olApp = Nothing
  Set objMail = Nothing
  Set olAttach = Nothing
  rstCheckSort.Close
  Set rstCheckSort = Nothing
  DoCmd.Hourglass False
  EmailStatements = True
  Exit Function
  EmailSendErr:
  SecurityManager.DisableOOMWarnings = False
  Call SecurityManager.Disconnect(olApp)
  Set SecurityManager = Nothing
  Set olApp = Nothing
  Set objMail = Nothing
  Set olAttach = Nothing
  rstCheckSort.Close
  Set rstCheckSort = Nothing
  DoCmd.Hourglass False
  MsgBox “Email aborted…correct error(s) and resend.”, vbCritical + vbOKOnly
  Exit Function
  EmailStatementsErr:
  gu_GenericError “EmailStatements”, Err, Error
  DoCmd.Hourglass False
  Set rstCheckSort = Nothing
  Exit Function
  End Function

• Renat Tlebaldziyeu (Add-in Express Team) says:

  January 6, 2012 at 3:02 am

  Hello Clive,

  Please try to register osmax.ocx and secman.dll manually from the following command lines:
  regsvr32 “path to the osmax.ocx”
  regsvr32 “path to the secman.dll”
  Did it help?

Post a comment