Mailark ved hjælp af Array VBA i Microsoft Excel

Anonim
  • Opret en ny projektmappe med SheetsArray.
  • Gem projektmappen, før du sender den.
  • Slet filen fra din harddisk, efter at den er sendt.
Sub Mail_SheetsArray () Dim strDate As String Sheets (Array ("Sheet1", "Sheet3")). Copy strDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Del af "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Dette er emnelinjen "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub