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
