Excel - VBA Code para enviar mail con varias lineas en el cuerpo

Private Sub CommandButton1_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim OApp As Object, OMail As Object, signature As String

Dim rngTo As Range

Dim rngSub As Range

Dim rngMessage As Range

Dim rngAttachment As Range

Set objOutlook = CreateObject("Outlook.Application")

Set OApp = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

Set OMail = OApp.CreateItem(0)

With OMail

    .Display

End With

signature = OMail.HTMLBody

With ActiveSheet

Set rngTo = .Range("Q13")

Set rngSub = .Range("Q18")

Set rngMessage = .Range("Q19")

End With

With OMail

.To = rngTo.Value

.Subject = rngSub.Value

.HTMLBody = rngMessage + signature

.Display

End With

Set objOutlook = Nothing

Set objMail = Nothing

Set rngTo = Nothing

Set rngSub = Nothing

Set rngMessage = Nothing

Set rngAttachment = Nothing

End Sub

' </> --------------------------------------------------------------------- </>

' </> ---&---   Envia por correo de OUTLOOK                         ---&--- </>

' </> --------------------------------------------------------------------- </>

Private Sub Mail_Outlook()

    Dim Destino As String

    ' ---&--- Seleccionamos el rango de celdas a enviar Select

    Sheets("Mascara").Select

    ActiveSheet.Range("A1:O31").Select

    ' ---&--- Es true si son visibles tanto el encabezado de _

              composición de correo electrónico y la barra de _

              herramientas de sobres

    ActiveWorkbook.EnvelopeVisible = True

    ' ---&--- Llamamos al envío...

    With ActiveSheet.MailEnvelope

       .Item.to = Destino

       .Item.cc = ""                         'con copia a...

       .Item.bcc = ""                        'con copia oculta a...

       .Item.Subject = Asunto

       .Introduction = Observaciones

       .Item.Send

    End With

End Sub