I'm sorry but I don't get it.

My code is something like this:

Dim mess_body As String
    Dim add As String
    Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem
    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)
(...)
With MailOutLook
        .To = strP
        .CC = strC
        .Subject = "Distribuição do Plano: " + Cells(f, 2) + " (Enc: " + enc + ")"
        .HTMLBody = mess_body
        .Send
End With
Could you give an example?