List pošte pomoću Array VBA u Microsoft Excelu

Anonim
  • Izradite novu radnu knjigu s SheetsArray.
  • Spremite radnu knjigu prije nego što je pošaljete.
  • Izbrišite datoteku s tvrdog diska nakon što je poslana.
Sub Mail_SheetsArray () Dim strDate kao nizovi (Array ("Sheet1", "Sheet3")). Copy strDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Dio "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Ovo je redak predmeta "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Zatvori False End Sub