U need to make sure you have referenced the Microsoft
Outlook library.
Goto ToolsReferences.
Then select Microsoft Outlook (9.0/10) Object Library.

That should get your code working.
Cheers.
Russ.

-----Original Message-----
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
.