Email Workbook

[Merkling, Steven]

You don't have a reference to Outlook

In the VBA IDE goto TOOLS ----> References and make sure Outlook is selected

HTH
-Merk

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

 

[Matt]

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

 

[Guest]

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

That should get your code working.
Cheers.
Russ.