Macro to Send Email with text in body

The code below works pretty well at bringing up an email, or even sending. Does anyone know how to write in the body of the email? I
previously had some code that would paste inside the email, but it would overwrite the autosignature which was annoying. At the moment I just want to have the same few sentences put in the body, but I want to keep the signature at the bottom.

Sub Send_Email()

'------------ Send email


    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = .""
        .CC = ""
       
        .Subject = ""
       

        .Display
        '.Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing




End Sub

Bump no reply

Hi,

All you need to do is to add the subject property and fill it up with the string.

I have added one single line of code to yours. Hope this helps.

Happy Computing.

Sub Send_Email()

'------------ Send email


    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "to@to.com"
        .CC = "cc@cc.com"
       
        .Subject = "Test Email"
        .Body = " this is a test message to test my vba code"

        .Display
        '.Send
    End With
    On Error GoTo 0
 
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing




End Sub

That code runs fine, but it erases my autosignature. Do you know of any way to avoid this?

It's a mix of text and images and it uses different font colors. It automatically comes up with the email until I put in the "Body" line of code.