Microsoft Excel'de VBA kullanarak her Çalışma Sayfasını A1 hücresindeki adresle postalayın

Anonim

Bu makro, her sayfayı bir kişiye gönderir.

  • Sayfa ile yeni bir çalışma kitabı oluşturun.
  • Çalışma kitabını postalamadan önce kaydedin
  • Dosyayı gönderildikten sonra sabit diskinizden silin.
Sub Mail_every_Worksheet() Dim strDate As String Dim sh As Worksheet Application.ScreenUpdating = BuÇalışma Kitabındaki Her sh İçin False.Worksheets If sh.Range("a1").Value Like "*@*" Sonra sh.Copy strDate = Format(Date , "gg-aa-yy") & " " & Format(Time, "s-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range("a1").Value, _ "Bu Konu satırı" ActiveWorkbook.ChangeFileAccess xlReadOnly ActiveWorkbook'u öldür.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub