I Usually use this portion of code to send an automated response using
outlook express:
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 = "
.Subject = "Automated Mail Response"
.Body = "This is an automated message from Excel. "
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

The question is:
How can integrate this code in order to:

1) send inside the body a cell interval content
2) send inside the body an entire sheet
3) attach to the message the specific sheet

Thanks, Alberto

See if you can find your answer he

Ron de Bruin's site

http://www.rondebruin.nl/sendmail.htm
http://www.rondebruin.nl/index.html

Dick Kusileka's site
http://www.dicks-clicks.com

--
Regards,
Tom Ogilvy


Alberto wrote in message
om...
I Usually use this portion of code to send an automated response using
outlook express:
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 = "
.Subject = "Automated Mail Response"
.Body = "This is an automated message from Excel. "
.Display
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub

The question is:
How can integrate this code in order to:

1) send inside the body a cell interval content
2) send inside the body an entire sheet
3) attach to the message the specific sheet

Thanks, Alberto