In the contacts section of my db I have both home & business e-mail addresses, both have a command button to e-mail the chosen one. The problem is that if the user makes a mistake & chooses the wrong one, then closes the e-mail & selects the correct one, Outlook throws up the following error "The messaging interface has returned an unknown error. If the problem persists, restart outlook".
The code I am using is:
Private Sub cmdEMB_Click()
On Error GoTo Err_cmdEMB_Click
Dim stDocName As String
stDocName = "Empty_Report"
' DoCmd.SendObject acReport, stDocName
DoCmd.SendObject acSendNoObject, stDocName, acFormatXLS, Me!frmContactDtlSub![E-mailWork], , , , , True
Exit_cmdEMB_Click:
Exit Sub
Err_cmdEMB_Click:
MsgBox Err.Description
Resume Exit_cmdEMB_Click
End Sub
Any advice would be appreciated.
Many Thanks
Freddy
The code I am using is:
Private Sub cmdEMB_Click()
On Error GoTo Err_cmdEMB_Click
Dim stDocName As String
stDocName = "Empty_Report"
' DoCmd.SendObject acReport, stDocName
DoCmd.SendObject acSendNoObject, stDocName, acFormatXLS, Me!frmContactDtlSub![E-mailWork], , , , , True
Exit_cmdEMB_Click:
Exit Sub
Err_cmdEMB_Click:
MsgBox Err.Description
Resume Exit_cmdEMB_Click
End Sub
Any advice would be appreciated.
Many Thanks
Freddy
