access 2000 sp3 - sendobject fails

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Using sendobject to send email from Access 2000 app.
Under Access Sp1 it functions.

netscape email as the email client. It is netscape 7.1

Under Access Sp3 it fails -

"The error is runtime error 2046
the command or action 'sendobject' isn't available now"
 
Hi Dale,

From your descriptions, I understood that you could make sendobject active
in Access 2000 SP1 instead of Access 2000 SP3. Have I understood you? If
there is anything I misunderstood, please feel free to let me know:)

First of all, In Access 2000 SP3, have you checked that every other things
are exactly the same as Access 2000 SP1. Based on my scope, I don't think
SP3 will make things worse.

Have you make sure Netscape is your default email program? (You could go to
Open internet explorer, go to tools, internet option, programs, and change
mail program to Netscape )

Have you tried to re-install Netscape as something might be wrong with
Netscape.

If all above still could not resolved your issue, would you please so kind
as to show me you detailed steps so that I could try to reproduce your
issue on my machine?

Thank you for your patience and cooperation. If you have any questions or
concerns, don't hesitate to let me know. We are here to be of assistance!


Sincerely yours,

Mingqing Cheng
Microsoft Developer Community Support
 
Mingqing,

You are correct in understanding the problem. I have made sure that
Netscape is my default email program under the internet options. I have
checked to make sure that all references are the same on both machines.
I have not reinstalled Netscape as I do not think that is the problem
since I have netscape 7.1 on both machines. The code below is what I
have to send the emails. Thanks for any help.

Public currentreport As String

Public Sub Email()
If currentreport = "" Then
MsgBox "This item can not be emailed"
Exit Sub
End If

Dim cmd As QueryDef
Dim rs As Recordset
Dim S As String
Dim showdescr As String
Dim l As Integer
Set cmd = CurrentDb.QueryDefs("Emailmessage")
Set rs = cmd.OpenRecordset
S = "" & rs("showsecretary")
S = S & " " & rs("showphone")
showdescr = "" & rs("showdescription")
Call DoCmd.SendObject(acSendReport, currentreport, acFormatRTF, , ,
, showdescr, S, True)

End Sub

I get the error when it does the call to docmd.sendobject.

Dale
 
Hi, Dale

If you put the mdb file into the machine that has sp3 installed, will it
show the error message? If you put the mdb file into the machine without
sp3 installed, will it turned out to be OK?

I am afraid this issue needs some time researching, would you please show
me a sample mdb file? I could be reached at (e-mail address removed)
(Please remove online, it is prepared for SPAM only)

Thanks, detailed descriptions, I believe, will get us closer to the
resolved :)


Thank you for your patience and cooperation. If you have any questions or
concerns, don't hesitate to let me know. We are here to be of assistance!


Sincerely yours,

Mingqing Cheng
Microsoft Developer Community Support
 
Hi Dale,

Would you please check the following, based on my research, I believe it is
not Access sp3 but some configuration lead to the error.

1. In Access, Menu File -> Send to -> Mail Recipient, is "Mail Recipient"
(or sometimese "Mail Recipient(as attachment)") available?
If it is not available, it shows some configuration wrong with it instead
of sp3

2. Confirm that in C:\WINDOWS\win.ini, checking whether following lines are
there and equals to 1
MAPI=1
MAPIX=1

3. Befire you upgrading to sp3, Have you tried to make your codes running
on it?

Thank you for your patience and cooperation. If you have any questions or
concerns, don't hesitate to let me know. We are here to be of assistance!


Sincerely yours,

Mingqing Cheng
Microsoft Developer Community Support
 
Back
Top