Thanks for the reply! That link put me on the right track. I have working code now (below), but now I'm wondering what I can do to skip duplicate email addresses? Some people have multiple issues my "Coming Due/Overdue Issues" report, and I want to just send them 1 email.
Thanks!
Code:
Function cmdEmail_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select [E-mail Address] from Coming_Due_and_Overdue_Issues")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If IsNull(rs![E-mail Address]) Then
rs.MoveNext
Else
strAddresses = rs![E-mail Address]
rs.MoveNext
End If
DoCmd.SendObject acReport, "Coming Due/Overdue Issues1", "PDFFormat(*.pdf)", strAddresses, "", "", "PATS Task Reminder", "You have a task in PATS that requires action. Please see attached document. ***This email is auto generated from Issues Database. Please do not reply!***", False, ""
Loop
End If
cmdEmail_Click_Exit:
Exit Function
cmdEmail_Click_Err:
MsgBox Error$
Resume cmdEmail_Click_Exit
End Function