Sayfayı Otomatik Mail Atma..

[oburs]

Selamlar forumda bulduğum mail atma sorgularını çalıştıramadım ne yazık ki
değerli üstatlarımdan yardımlarını beklemekteyim..

Excel sayfasında Formüllü olarak aşağıdaki sorgudaki gibi sadece sayfadaki değerleri ve biçimi başka bir sayfaya kopyalayarak belirli kişilere her gün saat gündüz 10.00'da mail atmasını istiyorum..

--------------------------------------------------------------------------------
Sub mailgonder()
ActiveSheet.Copy 'aktif sayfayı kopyalar
With ActiveWorkbook
.SendMail Recipients:=Array("ahmet@gmail.com", "ahmet@gmail.com", "ahmet.ozgur@gmail.com"), _
Subject:="Sipariş Genel Durum "
.Close SaveChanges:=False 'aktif sayfayı kaydetmeden kapatır
End With
MsgBox "Mail gönderildi"
End Sub
--------------------------------------------------------------------------------