Maria99

Boa noite estou criando uma planilha 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 vba. Esse é o código. 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. Se alguém conseguir me ajudar agradeço muito

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.