Email Button

  • Thread starter Thread starter Kyle
  • Start date Start date
K

Kyle

In my form, I have command button name Email with the
following simple code in the On click Event procedure.

Private Sub cmdEmailCurrentPO_Click()
On Error GoTo Err_cmdEmailCurrentPO_Click

Dim stDocName As String

stDocName = "Purchase Order Form"

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport stDocName, acViewPreview, ,
"PurchaseOrderID=" & Me.PurchaseOrderID
DoCmd.SendObject acReport, stDocName, acFormatSNP

Exit_cmdEmailCurrentPO_Click:
Exit Sub

Err_cmdEmailCurrentPO_Click:
MsgBox Err.Description
Resume Exit_cmdEmailCurrentPO_Click

End Sub

This Email button was working fine with MS-A 2000. User
click this button and it brings up the New Message window
for user to compose an Email. I am deciding to upgrade my
access to 2003 from 2000 (and also MS Outlook). This Email
command button is no longer work. When click on this
button, a MS office Outlook windows appears with this
message "Not Implemented". Click OK, another windows
appear saying that "MS Access can't send this Email message".

Anyone has any idea how to correct this problem is highly
appreciated.
 
Back
Top