Need to e-mail single record

[Dave Elliott]

Need to do this preferably from Custom Menu (Macro) Print List or else last
resort from form.

On Error GoTo Err_Command173_Click
DoCmd.OpenReport "RMothStatmnt", acPreview, "",
"[CustID]=[Forms]![Customers]![CustID]"
DoCmd.SendObject acSendNoObject, "FormTyp", acFormatHTML, [E Mail], , , ,
"From Gulf Coast Electric", True, ""
DoCmd.Close acReport, Me.Name
Exit_Command173_Click:
Exit Sub

 

[Jim/Chris]

I would do this in a macro. I use the user logged on ID to
obtain the from email address.
1 - create a table with userID and email address.
2 - create a form with the criteria for the report
combo boxes for "email to", CC and BCC
Text box for Subject
Text box for message
Report Name

a control box containing the logged on user emailaddress (
for verification takenfrom the table defined
A command buton which emails a report using a macro.
The macro would contain the action sendobject with the
following properties
OBJECT TYPE: Report
Object name: ReportName
Output Format: select type desired
TO: =[Forms]![NameOfForm]![email to]
from =[=[Forms]![NameOfForm]![loggeduseraddress]
CC =[Forms]![NameOfForm]![CC]
BCC =[Forms]![NameOfForm]![BCC]
Subject =[Forms]![NameOfForm]![subjecttexbox]
Message =[Forms]![NameOfForm]![messageTextbox]
Allow Edits: No will put email in Outbox, Yes will allow
edits to the email before sending

Good Luck

Jim