J
John Taylor
I've attached some basic code that I use that simply lets me print a report
and e-mail the same report in snapshot view to an e-mail address recorded in
the field "Forms!FrmChgCon!ContName" on my form. The code below simply opens
my e-mail client and populates the "To" field and attaches the snapshjot.
The code may look very basic to the guru's out there but it works and I'm
happy with it.
However, I would also like to "cc" the report to another e-mail address that
is recorded on my form as "ContNameSecond" can this be done?
I've searched the knowledge base but can't find anything.
Thanks for help in advance.
Using A2000
John Taylor
(Private Sub Command144_Click()
On Error GoTo Err_Command144_Click
Dim stDocName As String
Dim strReportFilter As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
stDocName = "RptChangeControlMain"
strReportFilter = "ID = " & Forms!FrmChgCon!ID
DoCmd.OpenReport stDocName, acViewNormal, , strReportFilter
DoCmd.SendObject acSendReport, stDocName, "Snapshot Format",
Forms!FrmChgCon!ContName, , , "Title - Header Description", , True
Exit_Command144_Click:
Exit Sub
Err_Command144_Click:
MsgBox Err.Description
Resume Exit_Command144_Click
End Sub
and e-mail the same report in snapshot view to an e-mail address recorded in
the field "Forms!FrmChgCon!ContName" on my form. The code below simply opens
my e-mail client and populates the "To" field and attaches the snapshjot.
The code may look very basic to the guru's out there but it works and I'm
happy with it.
However, I would also like to "cc" the report to another e-mail address that
is recorded on my form as "ContNameSecond" can this be done?
I've searched the knowledge base but can't find anything.
Thanks for help in advance.
Using A2000
John Taylor
(Private Sub Command144_Click()
On Error GoTo Err_Command144_Click
Dim stDocName As String
Dim strReportFilter As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
stDocName = "RptChangeControlMain"
strReportFilter = "ID = " & Forms!FrmChgCon!ID
DoCmd.OpenReport stDocName, acViewNormal, , strReportFilter
DoCmd.SendObject acSendReport, stDocName, "Snapshot Format",
Forms!FrmChgCon!ContName, , , "Title - Header Description", , True
Exit_Command144_Click:
Exit Sub
Err_Command144_Click:
MsgBox Err.Description
Resume Exit_Command144_Click
End Sub