Here's how I send an email:
Code:
'open Outlook, attach zip folder or file, send e-mail
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = "email address"
''.cc = ""
''.bcc = ""
.Subject = "text here"
.HTMLBody = "text here"
.Attachments.add ("path\filename")
''.DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
.send
End With
You can get the info for the email elements from textboxes on a form or recordset.