Share a form

[blsaint]

I have this code in a form, but I'm the only one that can use. What did I do
wrong?

Option Compare Database
Option Explicit

Public Sub cmdSendEmails_Click()

On Error GoTo HandleError

With Me.RecordsetClone
Do Until .EOF
DoCmd.SendObject acSendReport, "Cierre_de_Cuentas",
acFormatPDF, Nz(!EMAIL), , , _
"Su Número de Cuenta: " & Nz(!NUM_CTA) & " está por
vencer.", "Favor de revisar el mensaje anejo relacionado a su cuenta."
.MoveNext
Loop
End With
EndOfSub:
Exit Sub

HandleError:
Select Case Err
Case 2501
Resume Next
Case Else
DoCmd.CancelEvent

Resume EndOfSub
End Select

End Sub

 

[blsaint]

I am trying to get some help regarding a form that has a button with VB code.
The other users in my network click the button and the button doesn't do
anything, please help me discover what I did wrong.