Tony
----
Message posted to newsgroup and emailed.
Tony Toews, Independent Computer Consultant
The Year 2000 crisis: Will my parents or your grand parents still be receiving
their pension in January, 2000?  See www.granite.ab.ca/year2000 for more info.
Microsoft Access Hints, Tips & Accounting Systems at www.granite.ab.ca/accsmstr.htm

Here is what I use to send an e-mail via Outlook or Exchange

Private Sub EmaiReportButton_Click()
On Error GoTo Err_EmaiReportButton_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    Dim stDocName As String

    stDocName = "IssueReport"

    'DoCmd.SendObject acReport, stDocName
    DoCmd.Save
    DoCmd.SendObject acSendReport, "IssueReport", acFormatTXT, _
    Form_IssueTable.KeyPerson, , , _
    "A New EMIS Exception Issue", , False, False

Exit_EmaiReportButton_Click:
    Exit Sub

Err_EmaiReportButton_Click:
    MsgBox Err.Description
    Resume Exit_EmaiReportButton_Click

End Sub

James A. Taylor Jr.