Email current record

[weircolin]

Hi

I have a form and I would like to email the current record I am looking
at. I have a report which it would use for the email but I can't get
it to work.

Can anyone help?

This is what I have been working on

Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

Dim stDocName As String
strWhere = "[Reference Number] = " & Me.[Reference Number]
stDocName = "rptnewsletterdatabase"
DoCmd.SendObject acReport, stDocName, , strWhere

Thanks

Colin

 

[Guest]

Try this FAQ from Tony Toews: http://www.granite.ab.ca/access/email.htm

Barry

 

[weircolin]

Ah right,

I think from that link it's not possible.

Thanks

Colin

Try this FAQ from Tony Toews: http://www.granite.ab.ca/access/email.htm

Barry

Hi

I have a form and I would like to email the current record I am looking
at. I have a report which it would use for the email but I can't get
it to work.

Can anyone help?

This is what I have been working on

Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

Dim stDocName As String
strWhere = "[Reference Number] = " & Me.[Reference Number]
stDocName = "rptnewsletterdatabase"
DoCmd.SendObject acReport, stDocName, , strWhere

Thanks

Colin