Body = "Good Day," & vbCrLf & vbCrLf & _
"Please note the following QUALITY REVIEW SCORE:" _
& vbCrLf & vbCrLf & "Datatrak Number - " & Nz(Me.DatatrakNumber, "") _
& vbCrLf & "Effective Date - " & Nz(Me.EffectiveDate, "") _
& vbCrLf & vbCrLf & "MCO Production Assigned - " _
& vbCrLf
End With
Body = Body & vbCrLf & "Thank You"
Call ComposeNotesMemo(SendTo, "MCO Individual Production Quality Review Score", Body)
|