Excel,Desenvolvimento - Tecnologias

Tecnologias

Assuntos diversos ligados à tecnologia.

Syndication

Receive Email Updates



Browse by Tags

All Tags » Excel » Desenvolvimento (RSS)
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.

Posted quinta-feira, 8 de maio de 2014 11:26 by Paleo | with no comments