none
Anexar Apenas Area de impressão ou Salvar como PDF e enviar via Outlook Application RRS feed

  • 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
    


    sexta-feira, 31 de julho de 2020 12:21

Respostas

Todas as Respostas