Here's is a portion of code I have in my template DB.
Code:
Public Sub Masteremail()
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOoutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
Dim sfile As String
Dim filetocopy As String
Dim fs As Object
Set fs = CreateObject("scripting.filesystemobject")
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
'Add list of recipients here
objOutlookMsg.Recipients.Add ("@")
With objOutlookMsg
.Subject = "EMail subject Here"
.Body = "EMail Body Here"
End With
sfile = "Enter the filename here"
objOutlookMsg.Attachments.Add (sfile)
'Repeat the above 2 lines for each file to add
'Send the email
objOutlookMsg.Send
'Clear out the objects
Set objOutlookMsg = Nothing
Set objOutlook = Nothing
End Sub
Works pretty well for me