cktcPeterson
Member
- Local time
- Yesterday, 20:16
- Joined
- Mar 23, 2022
- Messages
- 74
This is what I have:
Private Sub Command205_Click()
Dim sExistingReportName As String
Dim sAttachmentName As String
sExistingReportName = "rptApprovalEmailRC"
sAttachmentName = [Student Name] & " " & "Approval"
DoCmd.OpenReport sExistingReportName, acViewPreview, , , acHidden
Reports(sExistingReportName).Caption = sAttachmentName
DoCmd.SendObject acSendReport, sExistingReportName, acFormatPDF, , , , , , , True
End Sub
In the SendObject part, I want to add
=[Parent Email] -who it is going to.
=[Student Name] & " " & "Approval Letter-" & " "& [Course]-Subject
="Dear" & " " &[Parent Name] & " "& See attached approval letter for" & " "& [Student Name]-Message
Can someone help me add this in? I keep getting an error.
Private Sub Command205_Click()
Dim sExistingReportName As String
Dim sAttachmentName As String
sExistingReportName = "rptApprovalEmailRC"
sAttachmentName = [Student Name] & " " & "Approval"
DoCmd.OpenReport sExistingReportName, acViewPreview, , , acHidden
Reports(sExistingReportName).Caption = sAttachmentName
DoCmd.SendObject acSendReport, sExistingReportName, acFormatPDF, , , , , , , True
End Sub
In the SendObject part, I want to add
=[Parent Email] -who it is going to.
=[Student Name] & " " & "Approval Letter-" & " "& [Course]-Subject
="Dear" & " " &[Parent Name] & " "& See attached approval letter for" & " "& [Student Name]-Message
Can someone help me add this in? I keep getting an error.