Usuário com melhor resposta
Anexar Apenas Area de impressão ou Salvar como PDF e enviar via Outlook Application

Pergunta
-
Bom dia (tarde ou noite), amigos.
Preciso de uma ajuda pois queria(preciso) enviar um formulário feito no Excel para e-mail, usei o Outlook application para enviar porem não estou conseguindo anexar o conteúdo dela no corpo do email.
Como eu fiz ele anexa a planilha toda, (.Attachments.Add WorkBook.FullName) mas não pode ser assim, preciso que conste no anexo apenas a área de impressão ( que corresponde ao formulário em si ) ou que ele gere um arquivo PDF com a area de impressão( que corresponde ao formulário) e anexe no e-mail.
Já esta feito a seleção da área de impressão, ja esta enviando por e-mail certinho, somente essa questão que ainda não consegui resolver.
Dim mensagemC, estiloC, tituloC, respostaC, stringC mensagemC = "Deseja enviar para comercial" tituloC = "Enviar Ocorrencia" estiloC = vbYesNo + vbDefaultButton2 respostaC = MsgBox(mensagemC, estiloC, tituloC) If respostaC = vbYes Then stringC = "Yes" ActiveWorkbook.Save Dim OutAppC As Outlook.Application Dim OutMailC As Outlook.MailItem Set OutAppC = CreateObject("Outlook.Application") Set OutMailC = OutAppC.CreateItem(olMailItem) Application.DisplayAlerts = False With OutMailC .To = "ti@luxashade.com.br" .CC = "" .BCC = "" .Subject = "Esta verificando a seleção comercial" .HTMLBody = "ISSO SO DEVE CHEGAR SE TIVER PASSADO PELA CONDIÇÃO COMERCIAL" .Send End With Set OutMailC = Nothing Set OutAppC = Nothing MsgBox "Enviado com sucesso" Else stringC = "No" End If End Select Select Case producao Case Is = True Dim mensagemP, estiloP, tituloP, respostaP, stringP mensagemP = "Deseja enviar para produção" estiloP = vbYesNo + vbDefaultButton2 tituloP = "Enviar Ocorrencia" respostaP = MsgBox(mensagemP, estiloP, tituloP) If respostaP = vbYes Then stringP = "Yes" ActiveWorkbook.Save Dim OutAppP As Outlook.Application Dim OutMailP As Outlook.MailItem Set OutAppP = CreateObject("Outlook.Application") Set OutMailP = OutAppP.CreateItem(olMailItem) Application.DisplayAlerts = False With OutMailP .To = "email@destino.com.br" .CC = "" .BCC = "" .Subject = "Esta verificando a seleção produção" .HTMLBody = "ISSO SO DEVE CHEGAR SE TIVER PASSADO PELA CONDIÇÃO PRODUÇÃO" .Attachments.Add ActiveSheet.FullName .Send End With Application.DisplayAlerts = True Set OutMailP = Nothing Set OutAppP = Nothing MsgBox "Enviado com sucesso" Else stringP = "No" End If
Respostas
-
https://youtu.be/gkpJlllyKqA
A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com
- Sugerido como Resposta AndersonFDiniz2 sexta-feira, 31 de julho de 2020 12:23
- Marcado como Resposta Aramis Souza Farias sexta-feira, 31 de julho de 2020 12:34
Todas as Respostas
-
https://youtu.be/gkpJlllyKqA
A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com
- Sugerido como Resposta AndersonFDiniz2 sexta-feira, 31 de julho de 2020 12:23
- Marcado como Resposta Aramis Souza Farias sexta-feira, 31 de julho de 2020 12:34
-