none
Salvar .PDF RRS feed

  • Pergunta

  • Pessoal,

    Como salvo um arquivo em .pdf de uma determinada planilha do excel nos arquivos temporários para enviá-los por e-mail?

    terça-feira, 19 de abril de 2016 16:50

Respostas

  • Salve o arquivo em alguma pasta do computador e depois exclua o arquivo usando a instrução Kill.

    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    • Marcado como Resposta matmendes terça-feira, 17 de maio de 2016 23:43
    sexta-feira, 29 de abril de 2016 13:14
    Moderador

Todas as Respostas

  • Olá,

    Verifique o link: http://ambienteoffice.com.br/blog/ambientexl/#mailxl


    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    terça-feira, 19 de abril de 2016 21:13
    Moderador
  • Dim MyOlapp As Object, MeuItem As Object
    Set MyOlapp = CreateObject("Outlook.Application")
    Set MeuItem = MyOlapp.CreateItem(olMailItem)
    With MeuItem
    
    'Para:
        .To = a@gmail.com
    'Com cópia para:
        .Cc = ba@gmail.com
    'Assunto:
        .Subject = "Resultados"
    'Corpo do e-mail:
        '.Body = 
    'Anexa o arquivo
        .Attachments.Add ActiveWorkbook.Path & "\Feedback Mensal de Resultados" & " - " & Application.WorksheetFunction.Proper((MonthName(Month(Date)))) & " - " & Range("D8") & ".pdf"
    'Abre a janela do e-mail para editálo:
        .Display
        
    '.Send
    'MsgBox "Finalizado com sucesso.", vbInformation, "Confirmação"
    End Sub
    
    Sub SalvarPDF()
    
    'Cria o arquivo em .PDF
    Dim nArquivo As String
    
    'sPasta: Pasta que será salvo o arquivo e gera o nome do arquivo
    'nArquivo: Nome que será salvo o arquivo .pdf:
    sPasta = ThisWorkbook.Path
    nArquivo = sPasta & "\" & "Feedback Mensal de Resultados" & " - " & Application.WorksheetFunction.Proper((MonthName(Month(Date)))) & " - " & Range("D8") & ".pdf"
    'Debug.Print nArquivo
    Sheets("Front").Range("A1:V105").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=nArquivo, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    'Após salvar o arquivo em .PDF, inicia a macro para enviar via e-mail
    Call eEmail
    
    End Sub
    
    Consegui o seguinte código para salvar o arquivo e enviar via e-mail. Mas minha dúvida é, para anexar, preciso salvar em alguma pasta do computador, porém, gostaria de anexar sem salvar o arquivo no PC.
    sexta-feira, 29 de abril de 2016 12:31
  • Salve o arquivo em alguma pasta do computador e depois exclua o arquivo usando a instrução Kill.

    http://www.ambienteoffice.com.br - http://www.clarian.com.br

    • Marcado como Resposta matmendes terça-feira, 17 de maio de 2016 23:43
    sexta-feira, 29 de abril de 2016 13:14
    Moderador