Snapshot Report From Access To Outlook

[Jonathan Pinto]

I was wondering if it would be possible to snapshot an access report
to Outlook, and have fields come in the To: and Cc: fields, and also
the subject field of the email as well. Right now, I am able to click
on a button on an access form, and have it snapshot the report to an
email. Here is the code:

************************************************** **************
Sub cmdSaveRecord_Click()

Dim stDocName As String
Dim stCriteria As String

On Error GoTo Err_cmdSaveRecord_Click

' save the inputed values
Me![txtIdentNumber] = Me![txtIdentNumberIn]
Me![txtPacketSequenceNo] = Me![txtPacketSequenceNoIn]
Me![txtDueDate] = Me![txtDueDateIn]
Me![txtDateRecd] = Me![txtDateRecdIn]
Me![txtDescription] = Me![txtDescriptionIn]

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70

Me![cmdAddNewRecord].Enabled = True
Me![cmdExit].SetFocus
Me![cmdSaveRecord].Enabled = False

stDocName = "Shop Drawing Routing - Rev"
stCriteria = "([SD_TRACKING_TABLE]![IdentNumber]= " & """" &
SDIdentificationNumber & """)" & " AND
([SD_TRACKING_TABLE]![PacketSequenceNo]= " &
LTrim(Str(SDSequenceNumber)) & ")"

DoCmd.OpenReport stDocName, acPreview, , stCriteria
DoCmd.Maximize

**The following line of code actually takes a snapshot of the **report
and sends it out to Outlook, as an attachment.

DoCmd.SendObject acSendReport, , acFormatSNP, , , , _
"Shop Drawing Transmittal"

Exit_cmdSaveRecord_Click:
Exit Sub

Err_cmdSaveRecord_Click:
MsgBox Err.Description
Resume Exit_cmdSaveRecord_Click

End Sub
************************************************** ***************

In the actual report, there are two fields, one with the Team
Manager's name, represented by the field TeamMgr, and the other for
the Designer, represented by the field Dsgnr. I was wondering if it
would be possibly, while sending out the report to Outlook, to
automatically have those fields, be associated with names in our
Outlook Address list, and have it so the TeamMgr field goes in the To:
field, and the Dsgnr field goes to the Cc: field. There is also a
project number, represented by the field ProjNum, that I would like to
have put in the subject line of the message as well. Any help on this
would be greatly appreciated! Thanks in advance,

Jonathan

[Chris Dixon]

The following code will create a blank email, using the variables
TeamMgr, Dsgnr and ProjNum to set properties of the email (you will
need to Add the Microsoft Outlook 9 Object Library reference to your
database. When viewing your code select Tools - References from the
menu to do this):

Dim objFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Dim ol As Object
Dim olns As Object

' set up the Outlook objects
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set objFolder = olns.GetDefaultFolder(olFolderOutbox)
Set objItem = objFolder.Items.Add(olMailItem)

' create the mail
objItem.Recipients.Add(TeamMgr).Resolve
objItem.CC.Add(Dsgnr)
objItem.Subject = "Project: " & ProjNum
objItem.Body = "whatever you want as the body of the email" &
Chr(13) & _
"on however many lines you want"
objItem.Display ' OR objItem.Send

Set objItem = Nothing
Set objFolder = Nothing

You may have to use the objitem.Attachments.Add() method to attach
your files

Hope this helps

Chris