I'm getting a 2293 error "Can't send this message" when attempting to send an email. This has worked for several years, but a customer has installed the program on a new laptop (Win 7), and is getting this error. My program is using the Access 2003 runtime.
I simplified the sendobject code down to the absolute basics and gave him the following test program to run. It gives the same error. He is using Windows Live Mail. I've checked several possibilities which were suggested on various sites (default programs,
Windows Live Mail update)
Private Sub BtnSendTestEmail_Click()
Dim strRecipient As String
Dim strSubject As String
Dim strBody As String
strRecipient = InputBox("Input E-Mail Address (e.g. ******@yahoo.com)", "Email Address")
strSubject = "Test Email sent at " & Now
strBody = "This test Email was sent at " & Now
On Error GoTo EmailError
DoCmd.SendObject acSendNoObject, , acFormatHTML, strRecipient, , , strSubject, strBody, False
Closeout:
exitsub:
Exit Sub
EmailError:
MsgBox Err.Number & ": " & Err.Description & vbCrLf & _
"SendEMail Error", vbCritical, "Email Error"
Resume Closeout
End Sub
Any other ideas?
thanks,
James