Invia ogni foglio di lavoro con l'indirizzo nella cella A1 utilizzando VBA in Microsoft Excel

Questa macro invierà ogni foglio a una persona.

• Crea una nuova cartella di lavoro con il foglio.
• Salva la cartella di lavoro prima di spedirla per posta
• Eliminare il file dal disco rigido dopo che è stato inviato.

Sub Mail_every_Worksheet() Dim strDate As String Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Range("a1").Value Like "*@*" Then sh.Copy strDate = Format(Date , "gg-mm-aa") & " " & Formato(Ora, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range("a1").Value, _ "Questa è la riga dell'oggetto" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub