VBA EXCEL - ENVIAR FOLHA DE CÁLCULO POR EMAIL (Emailing Worksheet)
Enviar por Email uma folha de cálculo (criando um novo ficheiro) Email a spreadsheet (creating a new file) Sub Mail_ActiveSheet() Dim strDate As String ActiveSheet.Copy strDate = Format (Date, "dd-mm-yy") & " " & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail "nome@domain.com", _ "Assunto" 'Subject Line ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End Sub ...