Please help,
I have developed a private sub which automatically creates an email when a button is pushed.
The code is working well, but I need to insert Carriage Returns in the Body Text of the email just before the word "Please" where it appears in two places. Is this possible?
The code for the private sub is below.
Private Sub PublishROI_Click()
On Error GoTo Err_PublishROI_Click
DoCmd.SendObject acSendReport, "PSR_Rcd_of_Investigation_Rpt_Publish", acFormatPDF, Me.txtEmail & ";" & Me.txtRMEmail, Me.StorageEmail, , _
Me.txtPSRNum, _
"Attached is the closing report for the complaint received from your doctor. Please carefully review the report and inform the doctor of our findings. Please note it is a regulatory requirement to close the loop to the doctor.", True
Exit_PublishROI_Click:
Exit Sub
Err_PublishROI_Click:
MsgBox Err.Description
Resume Exit_PublishROI_Click
End Sub
I have developed a private sub which automatically creates an email when a button is pushed.
The code is working well, but I need to insert Carriage Returns in the Body Text of the email just before the word "Please" where it appears in two places. Is this possible?
The code for the private sub is below.
Private Sub PublishROI_Click()
On Error GoTo Err_PublishROI_Click
DoCmd.SendObject acSendReport, "PSR_Rcd_of_Investigation_Rpt_Publish", acFormatPDF, Me.txtEmail & ";" & Me.txtRMEmail, Me.StorageEmail, , _
Me.txtPSRNum, _
"Attached is the closing report for the complaint received from your doctor. Please carefully review the report and inform the doctor of our findings. Please note it is a regulatory requirement to close the loop to the doctor.", True
Exit_PublishROI_Click:
Exit Sub
Err_PublishROI_Click:
MsgBox Err.Description
Resume Exit_PublishROI_Click
End Sub