Mix Code

[amfroehlich]

Could i mix these codes to send a snapshot with and e-mail?

DoCmd.OutputTo acReport, "ReportName", "SnapshotFormat(*.snp)", "FilePathAndName", False, ""



DoCmd.GoToRecord , , acNewRec
DoCmd.Close
DoCmd.SetWarnings (WaringsOff)
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.to = "Marketing@dmi-stl.com"
.Subject = "A Marketing Print Requst Has Been Made"
.Body = "A print project request has been submitted company time number : " + CTN + " and number : " + PNum
.DeleteAfterSubmit = True
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
DoCmd.SetWarnings (WarningsOn)

 

[Norie]

Does the olMail object have an attachment method/property?

To see if it has add a Watch.

If so you could point it towards the file created with OutputTo.