Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    Linha = ActiveCell.Row
    If Target.Address = "$AF$" & Linha Then

 If Folha3.Cells(Linha, 32) = "s" Then
            texto = "Exmo.(a) Sr.(a)" & vbCrLf & vbCrLf & _
                    "Obrigado pelo seu contato" & vbCrLf & vbCrLf & _
                    "   O pedido de intervenção foi recebido e registado sob o nº " & Folha3.Cells(Linha, 1) & ", tendo sido encaminhado para o serviço competente." & vbCrLf & _
                    "   Quaisquer informações ou esclarecimentos sobre o pedido deverão ser solicitadas por via eletrónica, indicando o nº de registo atribuido." & vbCrLf & _
                    "   Agradecemos a sua colaboração, apresentando os melhores cumprimentos." & vbCrLf & _
                    "   Sistema " & vbCrLf & vbCrLf & _
                    "Serviço de atendimento. " & vbCrLf & _
                    "Sistema" & vbCrLf & _
                    "IMAGEM"

        End If

        With OutMail
            .To = Folha3.Cells(Linha, 31)
            .CC = ""
            .BCC = ""
            .Subject = " "
            .Body = texto
            .Display   'Utilize Send para enviar o email sem abrir o Outlook
        End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

Olá,

O que pretendia era formatar o texto que esta entre aspas e onde diz IMAGEM inserir uma imagem.

É possivel??

Obrigado