Problem solved. While there was technically nothing wrong other than 3rd party software issues, you have all helped me for any future issues I may have!
I was just coming in here to tell everyone to stop helping.
I was going to reinstall ASPEmail and it hit me that the documentation I have references a "32 bit key".
So I am in the process of downloading the 64 bit key software from them to see if that solves the issue. My guess is yes.
I forgot how to do this. The deceased programmed showed me this but it was 20 years ago!
It makes it into SendEmail
Set Mail = New MailSender
And the next step after that lines takes me to:
ErrorHandler:
basUtilities.ErrorHandler "basEmail", "SendMail"
Thank you all again.
I know some of the suggestions such as removing all API calls make sense to you, but I think that's even above my skillset!
The intloop count returned 2 which is correct as in test I'm just trying to create and send one invoice.
The file rename does happen before the error...
Thank you for the assistance so far.
The constant seems to be ok - Const conOutDir = "c:\CurlewFiles\OutEFiles\"
I noticed a reference to "user32" near the top of my Declarations and a quick google indicates this may be an issue?
Public Declare PtrSafe Function FindWindow Lib "user32" Alias...
Sorry about that!
It functions properly until this point:
'Name conOutDir & "rpt.pdf" As conOutDir & strFile 'ie c:\CurlewFiles\OutEFiles\INVxxxxx-xxxxx.pdf
As the PDF does get created and renamed.
Then I get an "An error has prevented this operation from completing"
And in our error...
I have little experience with Access other than trial and error changes and forums like this helping me out.
Original owner of our company taught me a few things many years ago but he has since passed away so here I am.
This section of code works fine on Office 365 32 bit but will not function...