SendObjects won't execute twice

[Ralphptf]

I am a rank amateur and have taught myself enough to only just get away with some coding. I have now reached the limit of my capacity.
I am using MSAccess 2000 SR1 and am trying to use sendObjects to send a preformatted report in HTML format as an attachment to an email message.
The first time I perform this function (by way of button on a form) it works perfectly.
When I next try to do it (for a different record or the same record) it simply fails to execute. No error message or anything.
I am currently working around this by closing down Access and restarting it (works fine for one more message).

My code appears below:

Private Sub Command38_Click()
On Error GoTo Err_Command38_Click
 
    Dim recipient, copies As String
    Forms![Issue Status]![Customer].SetFocus
    recipient = Me![Customer].Text
    Forms![Issue Status]![InterestedParties].SetFocus
    copies = Me![InterestedParties].Text
    Dim subjecttext As String
    Dim IssueRef As String
    Dim DetailText As String
    Forms![Issue Status]![Description].SetFocus
    subjecttext = Me![Description].Text
    Forms![Issue Status]![Issue Reference].SetFocus
    IssueRef = Me![Issue Reference].Text
    Forms![Issue Status]![Details].SetFocus
    DetailText = Me![Details].Text
 
    DoCmd.SendObject acSendForm, "Issue Update All", acFormatHTML, _
     recipient, copies, , _
    "Issue Status Update: ( " & IssueRef & " ) " & subjecttext, "Detail: " & subjecttext & vbCrLf & DetailText & vbCrLf & vbCrLf & "Please find attached an update of this Issue", True
    Forms![Issue Status]![Command38].SetFocus
Exit_Command38_Click:
    Exit Sub
 
Err_Command38_Click:
    MsgBox Err.Description
    Resume Exit_Command38_Click
 
End Sub
 

[MMcCarthy]

All this will do is to send to the customer currently in focus. You will have to change the focus of the record to change the recipient. I've removed all the set focus commands as they are unnecessary.

Private Sub Command38_Click()
On Error GoTo Err_Command38_Click
Dim recipient, copies As String
Dim subjecttext As String
Dim IssueRef As String
    Dim DetailText As String
 
recipient = Me![Customer]
copies = Me![InterestedParties]
 
subjecttext = Me![Description]
IssueRef = Me![Issue Reference]
DetailText = Me![Details]
 
    DoCmd.SendObject acSendForm, "Issue Update All", acFormatHTML, _
     recipient, copies, , _
    "Issue Status Update: ( " & IssueRef & " ) " & subjecttext, "Detail: " & subjecttext & vbCrLf & DetailText & vbCrLf & vbCrLf & "Please find attached an update of this Issue", True
 
Exit_Command38_Click:
    Exit Sub
 
Err_Command38_Click:
    MsgBox Err.Description
    Resume Exit_Command38_Click
 
End Sub
 

[Ralphptf]

Thanks for the cleanup, but the net result remains that the button will only work once.

Can you provide any advice as to how I reset whatever I need to reset in order to have it send a second message (either from the the same record or from another record) without having to close down Access and restart?

[NeoPa]

Check this out (SendObject - only works once!).