Private Sub Command0_Click() 'Arvin Meyer 03/12/1999 'Updated 7/21/2001 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 = "info@datastrat.com" .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" .Send '.ReadReceiptRequested End With Exit_Here: Set objOutlook = Nothing Exit Sub Error_Handler: MsgBox Err & ": " & Err.Description Resume Exit_Here End Sub