I have a routine that sends invitations, it worked beautifully yesterday. Today the routine throws error 3265, object not found in collection.
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim oApp As Outlook.Application
Dim oMail As MailItem
Dim testEmail As String
Dim strbody As String
Dim strbody2 As String
Set db = CurrentDb
Set rs = db.OpenRecordset("TestEmail", dbOpenDynaset)
Set oApp = Outlook.Application
Set oMail = oApp.CreateItem(olMailItem)
rs.MoveFirst
Do While Not rs.EOF
strbody = "<html><head><title>It's time to sign up for Summer Bible Study!!!</title><style>body{background-color: #FFFFFF;margin-margin-right: 20%;" & _
"borders: 2px dotted black;padding: 10px 10px 10px 10px;font-family: sans-serif;}</style></head>" & _
"<body><h1><center>It's time to sign up for Summer Bible Study!!!</center></h1>" & _
"<h2><center>June 30 - Aug 4, 2020</center></h2>" & _
"<p>Dear " & rs!First & ",<br></p>" & _
"<p>Text</p>" & _
"<p>Text</p></body></html>"
strbody2 = "<html><head><style>body{background-color: #FFFFFF;Margin-margin-right: 20%;borders: 2px dotted black;;padding: 10px 10px 10px 10px; font-family: sans-serif;}</style></head>" & _
"<p>Text</p>" & _
"<p>Text</p>" & _
"<p>Text</p></body></html>"
Set oMail = oApp.CreateItem(olMailItem)
oMail.To = rs!Email
oMail.Subject = "It's time to sign up for Summer Bible Study!!!"
oMail.BodyFormat = olFormatHTML
oMail.HTMLBody = strbody & strbody2
oMail.Display
oMail.Send
rs.MoveNext
Loop
Closing code follows I am using Microsoft 365. As I said, it worked fine yesterday and i sent 300+ emails perfectly. Today i had just three more to send and it threw the error. Any thoughts?
MS - Teach me to fish
