Mailblad met behulp van Array VBA in Microsoft Excel

Anonim
  • Maak een nieuwe werkmap met de SheetsArray.
  • Sla de werkmap op voordat u deze verzendt.
  • Verwijder het bestand van uw harde schijf nadat het is verzonden.
Sub Mail_SheetsArray() Dim strDate As String Sheets(Array("Blad1", "Blad3")).Kopieer strDate = Format(Date, "dd-mm-jj") & " " & Format(Tijd, "h-mm- ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail "[email protected]", _ "This is the Subject line" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub