Rapport verzenden

[Accessholder]

Hoi,

Ik wil een rapport verzenden via Outlook.

Het automatisch vullen van het emailadres lukt mij wel.

Ik wil echter het onderwerp automatisch laten vullen uit de tabel.
Kan iemand mij aangeven wat ik hier moet vullen??

Bert

Private Sub Knop20_Click()
On Error GoTo Err_Knop20_Click

Dim stDocName As String

stDocName = "OSB BKA"
DoCmd.SendObject acReport, stDocName, , "email@email.nl", "email2@email.nl", , "Veld uit tabel"

Exit_Knop20_Click:
Exit Sub

Err_Knop20_Click:
MsgBox Err.Description
Resume Exit_Knop20_Click

End Sub

 

[Tardis]

Hallo,

dat gaat op deze manier niet lukken.
Je hebt Automation nodig.

Zoek even in het forum op

Automation Outlook

Groet,

Tardis

 

[paul.jacobs]

Nou het kan ook via een macro.
Objectverzenden

En je kan invullen wat je wil!