Range for Body of E-Mail



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)
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
End With

Set olMail = Nothing
Set olApp = Nothing

End Sub

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question