Redemption.SafeMailItem Access VBA error

Question

I am trying to send an email on Win10 through Access 2007. The email sends fine on an older Win7/Access2007 PC, but not on the Win10 PC.

When I click on "Send" in Access, VBA runs though hundreds of lines of code, but when it reaches the area about Redemption and Safe Mail, it jumps to the error handler and jumps back to Access with a Message Box stating "Recipients.Add invalid message" and exiting the send procedure.

(This project was initially made on Access 97 and bandaged up through the years to keep it working, and now I am trying to heave it up to O365)

The VBA references on both clients of the Win7 and Win10 PCs are (basically) the same:

1. Visual Basic for Applications
2. Micrsoft Access 12.0 Object Library
3. SafeOutlook Library
4. Microsoft Outlook 14.0 Object Library* (12.0 on the Win7 PC)
5. ACG PDF Pro Plus Mail Library
6. Microsoft Office 12.0 Access database engine Object Library
7. Microsoft Visual Basic for Applications Extensibility 5.3
8. OLE Automation

Here is some of the code for the sendMail procedure:

Dim objSafeMailItem As Redemption.SafeMailItem
Dim olMailItem As Outlook.MailItem


    Set objSafeMailItem = New Redemption.SafeMailItem 
    objSafeMailItem.item = olMailItem

   Set toRecip = objSafeMailItem.Recipients.Add(rst!Email)  'last line before going to err handler!!!
    toRecip.Type = olTo
    'objSafeMailItem.Recipients.Add rst!Email
    If Me.cboMessageType = 1 Then
    ...

Error_Handler:
MsgBox Err.Description
If IsFormOpen("frmWorking") = True Then DoCmd.Close acForm, "frmWorking" 'error message returns here!
Resume Exit_Procedure
Resume

Any ideas would be a huge help! :D

Answer 1

It is not a good idea to put references ahead of the default 4.
Create a new database, check the references, and put those in the same position in your database.