Connie Jerdet-Skehan
asked on
Sendobject not available
The following code worked great in a database created in access 2007. We now use office 365 and get an error message "sendobject not available" when trying to send an email from access. Any suggestions?
Private Sub Email_Report_Click()
On Error GoTo Err_Email_Report_Click
Dim stDocName As String
stDocName = "Application Verification Report"
DoCmd.SendObject acSendReport, stDocName
Exit_Email_Report_Click:
Exit Sub
Err_Email_Report_Click:
MsgBox Err.Description
Resume Exit_Email_Report_Click
End Sub
Private Sub Email_Report_Click()
On Error GoTo Err_Email_Report_Click
Dim stDocName As String
stDocName = "Application Verification Report"
DoCmd.SendObject acSendReport, stDocName
Exit_Email_Report_Click:
Exit Sub
Err_Email_Report_Click:
MsgBox Err.Description
Resume Exit_Email_Report_Click
End Sub
ASKER
Outlook is installed office 365 version.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
What email software do you have installed?
If you do not have any email program installed and do not want to install one then you can't use SendObjects. You will need to use VBA code to send out through an SMTP server.
You may want to use this: http://www.chilkatsoft.com/