mailadressen toevoegen in access?

[dummy1]

Beste mensen,

Ik heb een database, waarmee ik een rapport laat mailen naar de leiding.
Alles functioneerd goed, maar ik zou graag hebben dat wanneer outlook geopend wordt, er direct bij "aan:" en "CC:" het e-mailadres komt te staan.
Weet iemand hoe onderstaande situatie aangepast zou moeten worden om dit werkend te krijgen?

Private Sub verzenden_mail_Click()
On Error GoTo Err_mail_Click
DoCmd.OpenReport "Rpt_ASI1", acViewPreview, , "[Qry_InkoopOrder_Inkooporder_ID]=" & [Inkooporder_ID]


Dim stDocName As String

stDocName = "Rpt_ASI1"
DoCmd.SendObject acReport, stDocName


Exit_mail_Click:
Exit Sub

Err_mail_Click:
MsgBox Err.Description
Resume Exit_mail_Click

End Sub

Ik ben benieuwd.
Alvast dank.

 

[perpon]

zo bijvoorbeeld:
DoCmd.SendObject acSendReport, stDocName, , Me.email, Me.email, , "onderwerp", "zie bijgaand rapport", True

Jan

 

[dummy1]

Hai Jan,

Ik zie dat ik mij vergeten ben af te melden, dus bij deze.
Je heb mij hier goed mee geholpen, ik kan gelukkig weer verder.
Dank en excuses voor de late afmelding!