D
Dennis
Hi
I have recently installed windows live email and have Windows 7.
I have a Access 2003 database of club members. I can no longer email
members by clicking on a button. The button runs 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
I can also not mailmerge to email using Word.
In both cases I get "Error Code 2293 - cannot send email". Both worked OK
using Windows XP.
Can someone out there help?
Thanks
Dennis
I have recently installed windows live email and have Windows 7.
I have a Access 2003 database of club members. I can no longer email
members by clicking on a button. The button runs 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
I can also not mailmerge to email using Word.
In both cases I get "Error Code 2293 - cannot send email". Both worked OK
using Windows XP.
Can someone out there help?
Thanks
Dennis