Hi, im trying to send the same email to multiple recipients, their email addresses are got by use of a recordset. I had it working so that a separate email was sent to each one but is there a way just to send the one email to all the recipients. I tried moving the create item outside of the loop but it wont work. Here's my code:
Set rs = db.OpenRecordset("Select * from [tblStudents] where tblStudents.[STU_TU_CODE] = " & "'" & retiring & "';")
Do While Not rs.EOF
If Not IsNull(rs("STU_EMAIL")) Then
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
addresses = rs("STU_EMAIL")
.subject = "Change of Tutor"
.Body = strbod
Invalid addresses usually give that error. Do you check the email addresses prior to running this code? You may want to do a debug.print on addresses and see if you can figure out where the problem is.