Attach Excel file using Access Code and E-mail

[foxhound]

Does anyone know how to change this code to attach the Excel file "Supervisor Report.xls" located in C:\Temp\ and e-mail to joesupervisor?

DoCmd.SendObject acReport, "Supervisor Snapshot", "RichTextFormat (*.rtf)", "joesupervisor@anyweb.com", , , "Vacation, Sick, and Attendance Report", "This is a test to attach e-mail file", , ""

 

[DonkeyOte]

this is an access code and as such will only send Access objects (like reports, tables etc)

You need to create outlook as an object in Access and then it's straight foward. You MUST reference the Outlook 9.0 (10.0 if XP) Object Library in VBE - Tools - References.

Sub a()

Dim aOutlook As Outlook.Application, aEmail As Outlook.MailItem

Set aOutlook = GetObject(, "Outlook.Application")

If aOutlook Is Nothing Then Set aOutlook = New Outlook.Application

Set aEmail = aOutlook.CreateItem(olmailitem)

aEmail.Importance = olImportanceHigh

aEmail.Subject = "Workbook For Your Perusal - Dated " & Format(Today, "dd/mm/yy")
aEmail.Body = _
    "Attached is the Night Sheet Workbook" & vbLf & _
    "This Workbook is Password Protected." & vbLf & vbLf & _
    "Thanks," & vbLf & _
    "Brian"
    
aEmail.Attachments.Add "C:\Luke Work\Test9.xls"
    
'Code below will prevent additional email addresses on basis of code no
'ie code1 will add CSM then proceed to email posting

aEmail.Recipients.Add "j.bloggs@blogsville.com"
aEmail.Send


End Sub

 

[foxhound]

Great! Thanks for the code. Any chance on how set up for Lotus Notes v.5 ?