Actief rapport versturen via email

[astra]

Hallo,

Access 2007.

Ik heb een formulier met evenement gegevens en daarop een rapport gebaseerd.
Wat ik wil is het rapport van de actieve gegevens (gegevens van evenement dat ik zie op het scherm) versturen per email.
Dat lukt wel gedeeltelijk via een macro maar het probleem is dat ALLE rapporten te zien zijn in het PDF formaat ipv één enkel.
Er is ook nog een probleempje met "Afdrukken". Ik krijg hier altijd een venstertje met "Parameterwaarde invullen". Hoe krijg ik dat weg?
Iemand die me hiermee kan helpen?

Groetjes,
Astra

 

[astra]

Ik heb ondertussen een oplossing gevonden en post een voorbeeld hieronder.

Verzenden van één enkel rapport (actief rapport) via e-mail
In het Visual Basic
In het rapport:
Gebeurtenisprocedure "Bij openen"
----
Me.Filter = "VeldnaamID=" & Forms![NaamFormulier]![VeldnaamID]
Me.FilterOn = True
----
Opdrachtknop in het formulier:
Gebeurtenisprocedure "Bij klikken"
----
Private Sub Naam_Click()
On Error GoTo Err_Naam_Click
DoCmd.SendObject acSendReport, "NaamRapport", acFormatPDF, , , , [Titel]
Exit_Naam_Click:
Exit Sub
Err_Naam_Click:
MsgBox Err.Description
Resume Exit_Naam_Click
End Sub
----
NB : [Titel] = veldnaam die de titel van het rapport in "Subject" van e-mail zet.
Ik heb hier gekozen voor PDF formaat maar kunt u zelf aanpassen en ook de namen invoegen van de bestemmeling(en) (to), cc, Bcc, enz.

Afdrukvoorbeeld van actief rapport:
Opdrachtknop in het formulier:
Gebeurtenisprocedure "Bij klikken"
-----
Private Sub Naam_Click()
On Error GoTo Err_Naam_Click
DoCmd.OpenReport "NaamRapport", acViewPreview, , "VeldnaamID=" & Me!VeldnaamID
Exit_Naam_Click:
Exit Sub
Err_Naam_Click:
MsgBox Err.Description
Resume Exit_Naam_Click
End Sub
-----

In het Visual Basic venster : Extra > Verwijzingen, "Microsoft Outlook XX.0 Object Library" aanvinken.
XX = uw versie van MS Outlook

Beste groetjes,
Astra