Olá, sou novo aqui no forum e gostaria de uma ajuda por favor.

Preciso fazer um código onde meu email receba algumas celular selecionadas do excel como foto, mas como sou novo em vba não consigo. Acredito ser algo simples
Até agora tenho isso,

Sub Botão1_Clique()

Dim endereco, arquivo, destino, destino2, assunto, mensagem As String
Dim row, report As Integer
Dim OutApp As Object
Dim OutMail As Object

On Error Resume Next

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


Application.DisplayAlerts = False

destino = ""
destino2 = "email"
assunto = Plan1.Cells(9, 11
mensagem = "Srs,"                                     '(aqui eu gostaria de postar uma mensagem e enseguida mostrar a foto")


With OutMail


.To = destino
.Cc = destino2
.Bcc = ""
.Subject = assunto
.Body = mensagem
  
.display

'send

End With

Application.DisplayAlerts = True

Set OutMail = Nothing

Set OutApp = Nothing

End Sub