Hi all,

Trying to set up a module that uses the dates from a worksheet and then compiles the data and sends in email form Outlook. I am running into this problem currently:

"Type Mismatch. Unable to coerce parameter value. Outlook cannot translate your string"

This error appears at the line .Body = Worksheets("Monitoring Information").Range("A3:A4").Text

When I change the code to .Value I get the error "Array Lower bound must be zero.

Any help you can offer with this would be greatly appreciated!



Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object

' If Date - Worksheets("Monitoring Information").Range("A:A") <= Today() + 7 Then (I would like to add this code but I get a compile error that the sub or function is not defined)

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Range("J3").Value
.Subject = "Upcoming Monitoring Deadlines"
.Body = Worksheets("Monitoring Information").Range("A3:F20").Value
'.display
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
' End If
End Sub
[/Code]