Also the following will work: (use only the parts of the email message
that you need)
This assums the button name is command0.
If Outlook is NOT open when this is done, then the email simply goes
into the outbox.
==============================
Private Sub Command0_Click()
On Error GoTo Error_Handler
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.BCC = "(e-mail address removed)"
.Subject = "Look at this sample attachment"
.body = "The body doesn't matter, just the attachment"
.Attachments.Add "C:\Test.htm"
'.attachments.Add "c:\Path\to\the\next\file.txt"
' next two only if the body is to include HTML
.bodyformat = 2 ' not necessary if no html this makes
it html
' 1 is text 2 is
HTML 3 is RTF
.htmlbody = Chr(13) & Chr(13) & _
"<body>" & _
"<Table>" &_
"<tr>" &_
"<td><b> Date: </b></td>" & _
"<td>" & Date & "</td>" & _
"</tr>" &_
"<tr>" &_
"<td></td>" & _
"<td></td>" & _
"</tr>" &_
" </Table>" &_
"</body>"
.Send
'.ReadReceiptRequested
'.Display ' to see the email have have user actually do the
send
' don't use the .Send if you are using
Display
'
End With
Exit_Here:
Set objOutlook = Nothing
Exit Sub
Error_Handler:
MsgBox Err & ": " & Err.Description
Resume Exit_Here
End Sub
===================================
