A
Alberto
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 = "(e-mail address removed)"
.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
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 = "(e-mail address removed)"
.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