Boa tarde!!

Não testado!!!

Sub Enviar_Email_Com_Imagem()
Dim Rng As Range

Set Rng = Range("A1:A10")
Rng.CopyPicture xlScreen, xlPicture

Dim appOutlook As Object
Dim olMail As Object

'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = "teste@teste.com.br"
.Subject = "Assunto"
.Body = "Corpo do E-mail"
.Display
End With

End Sub

Att

Dá pra usar a camera tb né ?

Boa tarde, lennoxx.

Vi sua duvida, eu também já quebrei a cabeça para enviar imagem no corpo do e-mail.
Da uma olhada neste arquivo se ajuda:

Trindade,

Seu comentário meu ajudou 100% =*

Amigos, me permitam entrar nesse tópico, pois fiquei deveras curioso com o assunto. Tentei usar a planilha do TRINDADE mas ela dá erro na rotina abaixo, na hora de setar a variavel ts

Function GetBoiler(ByVal sFile As String) As String
    
    Dim fso As Object
    Dim ts As Object
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
        GetBoiler = ts.readall
        ts.Close
        
End Function

Em TEMPO: Ja entendi, era a assinatura do Outlook que causava esse problema

Boa tarde, lennoxx.

Vi sua duvida, eu também já quebrei a cabeça para enviar imagem no corpo do e-mail.
Da uma olhada neste arquivo se ajuda:

boa noite amigo Trindade,
achei legal este codigo funcionou algumas vezes
agora da com o seguinte erro
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
voce tem aguma dica que pode estar gerando este erro?

ficarei muito agradecido pelo seu retorno
att
armando