Send Object Problem

[bubbadahut]

On a command button's "on click" event, I have the following code:
(without the word wrap)


Private Sub cmdEmailNewVen_Click()
On Error GoTo Err_cmdEmailNewVen_Click

Dim strAdminMail As String

strAdminMail = DLookup("[fldAdminEmail]", "tblCompInfo")

DoCmd.SendObject acSendForm, "frmAddVendor", acFormatXLS,
strAdminMail, , , "New Vendor Request", "Please add this vendor to
requisition database. Thank You"

DoCmd.Close acForm, "frmAddVendor", acSaveNo

Exit_cmdEmailNewVen_Click:
Exit Sub

Err_cmdEmailNewVen_Click:
MsgBox Err.Description
Resume Exit_cmdEmailNewVen_Click

End Sub

This code works just fine as it is, however, if I add "false" to the
edit message part so that it sends the email immediately, it still
works just fine as far as the email is concerned, however, access
freezes up afterwards. I'm using xp pro, windows and server. Anyone
have a clue why this would happen? Or do you need more info?

thanks
greg