Excel Sayfasını Metin Olarak Otomatik Mail Gönderme

[asikartal05]

Merhaba;

Ekte bulunan dosyanın sayfalarını Pivot ve Stok sayfasının görüntüsünü her gün belli bir saatte belli bir saatte mail olarak nasıl gönderebiliriz.

Teşekkürler...

 

[asikartal05]

Bu kod işimi gördü, sadece otomatik hale nasıl getireceğiz bilemedim.


Sub mail_gonder()
Application.ScreenUpdating = False
If ActiveCell Then

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = "mail içeriği"

.Item.To = "deneme@gmail.com"

.Item.Subject = "mail başlığı"

.Item.Send

End With
End If
Application.ScreenUpdating = True
End Sub