VB and Outlook Macro
I have the following Macro to send out an email, with a range of cells from my excel sheet. The emailgets sent with the correct Subject and the correct people CC:, but I can't get anything in the subject it just stays blank. What am I doing wrong, and yes there is data in that cell range ( A:B) THANKS

Sub SendEmail()
'
' SendEmail Macro
'
Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    
        
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next
    With OutMail
        .To = Sheets("Test1").Range("F2").Value
        .CC = Sheets("Test1").Range("F3").Value
        .BCC = ""
        .Subject = Sheets("Test1").Range("E1").Text
        .Body = Sheets("Test1").Range("A:B")
        .Send
    End With
    On Error GoTo 0
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
'
End Sub


VB and Outlook Macro
===

I have the following Macro to send out an email, with a range of cells from my excel sheet. The emailgets sent with the correct Subject and the correct people CC:, but I can't get anything in the subject it just stays blank. What am I doing wrong, and yes there is data in that cell range ( A:B) THANKS

Sub SendEmail()
'
' SendEmail Macro
'
Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    
        
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next
    With OutMail
        .To = Sheets("Test1").Range("F2").Value
        .CC = Sheets("Test1").Range("F3").Value
        .BCC = ""
        .Subject = Sheets("Test1").Range("E1").Text
        .Body = Sheets("Test1").Range("A:B")
        .Send
    End With
    On Error GoTo 0
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing
'
End Sub

