B
BillCPA
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
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