0

I have a database with a list of process owners. The users of this database wants the process owners emailed when a form is updated with a click of a button. I can email to one person using a macro but this requires additional codeing which I am not all that great with. Any Access Experts available to answer this one?
I have a table containing the process owners names and email addresses
I have a form that requires the process owners to be selected from the table
Once the form is filled out, click on email, its to send all the selected process owners a copy of the form for their review.
table for process owners:(partial)
Prepared by, PBEmail, QE, QEEmail, ME, ME Email...and so on..

thank you in advance.

1
Contributor
1
Reply
2
Views
7 Years
Discussion Span
Last Post by dmarino1
0

I appologize for the delay in updating this answer. here is the results for this issue: I selected Event Procedure adn this works -

Private Sub Email_Record_Click()
On Error GoTo Err_Email_Record_Click

'Email Loop to capture all email addresses

Dim strArr As String
strArr = EmailTo
Dim stDocName As String
Dim rst As Recordset
Dim strwho As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "MyEMailAddresses"
DoCmd.OpenQuery "Print PI"
Set rst = CurrentDb.OpenRecordset("tblEmailList")
rst.MoveFirst
Do Until rst.EOF
If IsNull(rst!PreparedEmail) Then
Else
strwho = rst!PreparedEmail & ";" & strwho
strwho = rst!PMEmail & ";" & strwho
strwho = rst!PEMEmail & ";" & strwho
strwho = rst!QEEmail & ";" & strwho
strwho = rst!ME1Email & ";" & strwho
strwho = rst!InspectionEmail & ";" & strwho
strwho = rst!SOREmail & ";" & strwho
strwho = rst!SCMEmail & ";" & strwho
strwho = rst!SQEEmail & ";" & strwho
strwho = rst!PQMEmail & ";" & strwho
strwho = rst!OpMEmail & ";" & strwho
strwho = rst!ConfigEmail & ";" & strwho
strwho = rst!ContractsEmail & ";" & strwho
'strwho = rst!ApprovalEmail & ";" & strwho
End If
rst.MoveNext
Loop
MsgBox strwho
stDocName = "QPIReport"
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, strwho, "email address; [email]email address[/email]", , "New/Updated QPI", "Please review attached file. Respond if there is any discrepancie's.", True


Exit_Email_Record_Click:
Exit Sub

Err_Email_Record_Click:
MsgBox Err.Description
Resume Exit_Email_Record_Click

End Sub

Edited by dmarino1: n/a

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.