Email Report With Access

[Rich1968]

I want to email a introduction letter from my marketing database. I se
up a button linked to a combo box listing my letters.

Private Sub Email_Click()
On Error GoTo Err_Email_Click

Dim stDocName As String
Dim stTo As String

stDocName = Forms![Marketing APR].[letters]
stTo = "[Email Address]=" & Me![Email Address]
DoCmd.SendObject acReport, stDocName, , stTo, , , "Accurate Publi
Records"

Exit_Email_Click:
Exit Sub

Err_Email_Click:
MsgBox Err.Description
Resume Exit_Email_Click

End Sub

The button wants to send all 25000 contacts an email. How do I limi
this to the current record. Some one please help me!


Thanks
Rich De Gray
800-999-9216
[[email protected]

 

[Carl Rapson]

In your stTo string, try removing the "[Email Address]=" and just put the
actual email address there.

Carl Rapson