Rapport verzenden

[Daneron]

Hoi, ik zit met het volgende, op een form worden de persoonsgegevens genoteerd incl het email adres. Als ik nu op de email knop druk moet het emailadres wat is ingevuldt
in onderstaande code worden ondergebracht.
Is dit mogelijk ?


If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

DoCmd.SendObject acReport, "Rfactuur", "SnapshotFormat(*.snp)", "emailveld", "", "", "Factuur", "Bijlage is toegevoegd aan bericht !", False, ""
MsgBox "Het Factuur is verzonden. ", vbInformation, "Info "


mvrg
Daneron

 

[Daneron]

Na wat zoekwerk het volgende toegevoegd en het werkt perfect.

Dim strMailadres As String
strMailadres = Me.Email_adres
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord

DoCmd.SendObject acReport, "Rfactuur", "SnapshotFormat(*.snp)", strMailadres, "", "", "Factuur", "Bijlage is toegevoegd aan bericht !", False, ""
MsgBox "Het Factuur is verzonden. ", vbInformation, "Info "


mvrg
Daneron