Enviar visualização de planilha por e-mail - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



Enviar visualização de planilha por e-mail

Recebi um questionamento sobre como enviar a visualização de uma planilha, por e-mail. Claro, pode ser na forma de imagem, mas eu considero como melhor forma, o envio como PDF.

Desta forma vamos à solução!

A primeira etapa é definir a área de impressão de sua planilha e os ajustes de página, como a Orientação (Retrato ou Paisagem) e se deseja que imprimi em múltiplas páginas ou ajuste o conteúdo a uma única página, depois é executar a macro abaixo que ela faz o resto, mas claro que você precisa ajustar o que coloquei em negrito antes de roda-la:

Sub eMailActiveWorksheet()
    ' esta macro envia apenas a planilha como PDF
    Dim OL              As Object
    Dim EmailItem       As Object
    Dim Wb              As Workbook
    Dim Arquivo        As String
    
    Application.ScreenUpdating = False
    Set OL = CreateObject("Outlook.Application")
    Set EmailItem = OL.CreateItem(olMailItem)
    Arquivo = "C:\Temp\" & Replace(ActiveSheet.Name & " - " & ActiveWorkbook.Name, ".xlsm", ".pdf")
    ActiveSheet.Copy
    Set Wb = ActiveWorkbook
    Wb.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
        Arquivo, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    With EmailItem
        .Subject = "Assunto_do_e-mail"
        .Body = "Mensagem_do_e-mail"
        .To = "destinatário_do_email"
        .Importance = olImportanceNormal
        .Attachments.Add Arquivo
        .Send
    End With
    Wb.Close False
    
    Application.ScreenUpdating = True
    
    Set Wb = Nothing
    Set OL = Nothing
    Set EmailItem = Nothing
    
End Sub

 

Substitua “C:\Temp\” pela pasta de sua preferência.

Published quinta-feira, 8 de maio de 2014 11:26 by Paleo

Comments

No Comments

Leave a Comment

(required) 
(required) 
(optional)
(required)