Hi Bill
Or maybe you want this signature example
http://www.rondebruin.nl/mail/folder3/signature.htm
And use
Dim cell As Range
Dim strbody As String
For Each cell In ThisWorkbook.Sheets("Sheet1").Range("C1:C60")
strbody = strbody & cell.Value & vbNewLine
Next
Instead of
strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
See this page for HTML body examples
http://www.rondebruin.nl/mail/folder3/mail4.htm
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"BillCPA" <Bill @ UAMS wrote in message ...
I am trying to use a range of cells in Excel as the body for an e-mail in
Outlook. The name for the range is 'DuesReceipt'. It doesn't seem to like
setting olBody to the range. Can someone help?
Public olToName As String
Public olccName As String
Public olbccName As String
Public olSubject As String
Public olBody As String
Public olRange As Object
Public olAttach1 As String
Sub SendReceipt()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim SigString As String
Dim Signature As String
Dim xx As Integer
Dim yy As Integer
Dim zz As Integer
Set olApp = New Outlook.Application
SigString = "C:\Documents and Settings\...\Signatures\BillLong.txt"
If Dir(SigString) = "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
olToName = Range("K5").Value
olSubject = "Dues Receipt"
Set olRange = Range("DuesReceipt")
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = olToName
.Subject = olSubject
.Body = olRange
.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub
--
Bill @ UAMS