Outlook removed - can't Email

[Sonny Jim]

Another contractor built a database for my client and felt they needed to remove MS Outlook. As a result, emails initiated from my form now give users the following error, " [FONT=&quot]Command or action "send object isn't available now". [/FONT]Any ideas on how to resolve this?[FONT=&quot]

Here is the event procedure that I use on my form button used to send Email of one of my reports:

Private Sub cmdEmailCompanyAwkRpt_Click()
On Error GoTo Err_cmdEmailCompanyAwkRpt_Click

Dim stDocName As String

stDocName = "rptCompAwkEmail"
DoCmd.SendObject acReport, stDocName

Exit_cmdEmailCompanyAwkRpt_Click:
Exit Sub

Err_cmdEmailCompanyAwkRpt_Click:
MsgBox Err.Description
Resume Exit_cmdEmailCompanyAwkRpt_Click

End Sub
[/FONT]

 

[RuralGuy]

Perhaps this link will help.

 

[Sonny Jim]

That sounds interesting. I will give that a try. Thanks a lot RuralGuy!

 

[RuralGuy]

You're welcome. Have fun.