Emailing report using SendObject 1

[plcman]

I have a button that generates a report and sends it by email as a snapshot attachment. My problem is that instead of sending only the record shwoing, all the records in the table are sent.

I tried adding a filter bu I got an error message saying that it was not allowed.

Below is the code I have at present.

Dim stDocName As String

stDocName = "Certificate"
DoCmd.SendObject acReport, stDocName, acFormatSNP

Any help would be appreciated.

 

[Remou]

You could base your report on a query that references the ID of the record showing.

 

[ronspree]

Is there an Access MDB equivalent of SQL Server's xp_smtp_sendmail, where you don't need an email client (like Outlook) to send mails from within Access?

 

[PHV]

Do a search for CDO

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ronspree]

Im using MS Access 2000 on a Windows XP Pro and referenced MS CDO for Windows 2000 Library. And did the following:

Public Sub EmailReport()
    Dim Email As CDO.Message
    Set Email = New CDO.Message
    Email.From = "ronspree@domain.com"
    Email.To = "ronspree@domain.com"
    Email.Subject = "MS Access CDO Mail Message"
    Email.TextBody = "The quick brown fox jumped over the lazy dog."
    
    Email.Send
End Sub

I get an error message saying that the "SendUsing" configuration value is invalid. How do I correct this? Maybe I need to specify the SMTP server? How do I do that?

 

[PHV]

Maybe I need to specify the SMTP server?
Email.Configuration.Fields.Item ("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= x
Email.Configuration.Fields.Item ("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "xx.xx.x.xx"
Email.Configuration.Fields.Item ("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= xx
Email.Configuration.Fields.Update

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ronspree]

Wow, that's amazing syntax. What do I put under SendUsing? I have the smtp url (or its ip address equivalent) for smtpserver, and the serverport is 25.

 

[PHV]

Have a look here:

http://www.microsoft.com/technet/scriptcenter/guide/sas_ent_wbpa.mspx

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ronspree]

It worked!!!!! Its truly amazing. Thanks so much PH.