Dim StrEmail as String
Select Case Me.cmbOwner2
Case Is = "AV"
If StrEmail Is Null Then
StrEmail = "dan.moses@yahoo.com"
Else
StrEmail = StrEmail & "," & "dan.moses@yahoo.com"
Case Is = "ENG"
If StrEmail Is Null Then
StrEmail = "brianna.cates@yahoo.com"
Else
StrEmail = StrEmail & "," & "brianna.cates@yahoo.com"
End If
End Select

DoCmd.SendObject acSendForm, "frmETIC", acFormatPDF, "StrEmail", "", "", "Recovery Report", "Attached is the submitted Recovery Report"
DoCmd.Close acForm, "frmETIC", acSaveNo
DoCmd.OpenForm "frmETIC", acNormal, , , acFormEdit, acWindowNormal