D
DennisB
Hi
I have an Access 2003 database.
There is a button that that sends an email using the following code:
Private Sub btnEMail_Click()
Dim vMessage As String
On Error GoTo ErrorCode
vMessage = Nz(DLookup("EMailSubject", "tblPersonal"))
DoCmd.SendObject acSendNoObject, , , EMail, , , vMessage, , True
AddHistoryRecord MembersNo, "E-Mail Sent :- (" & vMessage & ")"
'add history record
lstHistory.Requery
Exit Sub
ErrorCode:
If Err = 2501 Then Exit Sub
'user Cancels E-Mail
Beep
MsgBox "Error Code " & Err & "; " & Error
End Sub
This used to work fine but since installing an outlook express update I get
Error Message 2293 and words to the effect that Access could not send the
email.
I have checked that Outlook express is set as the default mail handler and I
have that I have an account set to my ISP. The ISP details are correct.
Any ideas on what I do now?
Many thanks
Dennis
I have an Access 2003 database.
There is a button that that sends an email using the following code:
Private Sub btnEMail_Click()
Dim vMessage As String
On Error GoTo ErrorCode
vMessage = Nz(DLookup("EMailSubject", "tblPersonal"))
DoCmd.SendObject acSendNoObject, , , EMail, , , vMessage, , True
AddHistoryRecord MembersNo, "E-Mail Sent :- (" & vMessage & ")"
'add history record
lstHistory.Requery
Exit Sub
ErrorCode:
If Err = 2501 Then Exit Sub
'user Cancels E-Mail
Beep
MsgBox "Error Code " & Err & "; " & Error
End Sub
This used to work fine but since installing an outlook express update I get
Error Message 2293 and words to the effect that Access could not send the
email.
I have checked that Outlook express is set as the default mail handler and I
have that I have an account set to my ISP. The ISP details are correct.
Any ideas on what I do now?
Many thanks
Dennis