I'm trying to get code that will email the active workbook
to an email address that is located in a cell A1. I found
the code below, but I get the following message whenever I
try to use it: "Compile Error: User-defined type not
defined". Any suggestions? Thanks! Matt

Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Range ("A1")
.Subject = "Test"
.Body = "Test"
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub