Send E-mail

[amfroehlich]

I am sending an e-mail via Access with this code:

Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "abc@xyz.com"
.Subject = "Record Updated"
.Body = "A record has been updated"
.DeleteAfterSubmit = True
.Send
End With
Set olMail = Nothing
Set olApp = Nothing

I am wanting to add an snapshot of a report as an attachment. How do yo do this???

Please Help. Thanks.

 

[Stubby Holder]

hi, try this:

Sub SendSnapshot()
Dim strDocName As String
Dim strOutputFormat As String
Dim strAddress As String
Dim strSubject As String
Dim strBody As String

    strDocName = "rptYourReport"
    strOutputFormat = "Snapshot Format"
    strAddress = "abc@xyz.com"
    strSubject = "Record Updated"
    strBody = "A record has been updated"

    DoCmd.SendObject acSendReport, strDocName, _
        strOutputFormat, strAddress, , , _
        strSubject, strBody, 0
End Sub

Your recipient would need to have the snapshot viewer installed!

hope it helps..