Outro Enviar tabelas por e-mail

[Maria99]

Bom dia, estou tentando fazer um código onde assim que eu termine de lançar os dados, esses dados sejam enviados por e-mail, porém não estou conseguindo. Vendo uns vídeos e uns comentários de vocês aqui cheguei a um código porém sou iniciante no chá, peço que me ajudem.

 

Sub solicitar ()
'
'solicitar macro
'
Activewindow.smallscroll down = -3
Active sheet.range ("$c$4:$i$34").autofilter field=6, criterial:="<>"
Range("a49:e50").select
Selection.copy
'colar no corpo do e-mail
Sheet("pedido de descartáveis").select
Range("c4:i34"). select
Application.cutcopymode=false
Selection.copy
'colar no corpo do e-mail

Dim outapp as object
Dim outmail as object
Dim strbody as string

Set outapp = createobject("Outlook.application")
Set outmail= outapp.createitem(0)

Let strbody = "Bom dia," &_ "Segue solicitação:"

On error resume next

With outmail
.to="o email que quero que receba"
.subject="solicitação"
.htmlbody= strbody & "<BR>" & .htmlbody
.send
End with

On error go-to 0

Set outmail= nothing
Set outapp=nothing
End sub

 

Não faço ideia do que falta ou se está certo, é a primeira vez que eu tento criar uma macro.