Usuário com melhor resposta
Salvar .PDF

Pergunta
-
Respostas
Todas as Respostas
-
Olá,
Verifique o link: http://ambienteoffice.com.br/blog/ambientexl/#mailxl
http://www.ambienteoffice.com.br - http://www.clarian.com.br
-
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. -