email report using Sendobject

[john ierston via AccessMonster.com]

I have designed a simple databse & there is a report which selects jobs by
Manager ( field name is "work" ). There is also a command button which
opens Outlook viz:

Dim stDocName As String

stDocName = "LTD-FULL SEL BY MANAGER"
DoCmd.SendObject acReport, stDocName

Exit_Command96_Click:
Exit Sub

Err_Command96_Click:
MsgBox Err.Description
Resume Exit_Command96_Click


I would like the managers name to be inserted automatically in the To box.
The managers name is in a table and is identical to the internal Exchange
contact list for Outlook eg " Fred Bloggs". I would also like to
automatically insert some text in the message. As a novice , would much
appreciate some ideas and code please. Thanks for any help-I'm really stuck.
John Ierston

 

[MacDermott]

Look at SendObject in the Access Help file.
You'll see that there are several more optional arguments, which I think
will serve your purposes well.

 

[john ierston via AccessMonster.com]

Thanks very much. Now works fine.
Regards Johm Ierston