Sayın sadikkavakli,

Aşağıdaki açıklamaların yapılması uygun görülmüştür.

Öncelikle,eklediğiniz örnek uygulamayı kendi adıma inceleme imkanım söz konusu olmadığı gerekçesi ile,fakat bir fikir vermesi adına,

1)

Alıntı:Saatlik mail göndermek istiyorum. Saat 10:00 12:00 ... gibi otomatik gitmesi gerekmektedir.

İfadenize yönelik olarak;

Dim gununtarihi As String

gununtarihi = Format(Now(), "hh:mm:ss")

 

If gununtarihi = ("10:00:00") Or gununtarihi = ("12:00:00") Then 'buraya,varsa eklemek istediğiniz saatleri yazabilirsiniz.

'mail gönderme için kullandığınız kod satırını ekleyiniz

'ÖRNEK:

'Call mail_gonder

Exit Sub

Else

End If

Kod kalıbı satırlarını kullanarak deneyebilirsiniz.

2)

Alıntı:"Raporla" Raporunda sorgu1 de tanımlı bugün'e ait bilgiler raporlanacak ve Outlook'a ek olarak gelecek

İfadenize yönelik olarak;

a) Öncesinde,güne dair sorguda belirlemek için sorgu üzerinde tarih alanının Kriter satırına =Date() ya da =Format(Now();”dd.mm.yyyy”) ifadesini yazmak sureti ile günün kayıtlarını elde edebilirsiniz.

b) Site arama sayfasında benzer nitelikte konular mevcut,örnekleri ile beraber.araştırmak sureti ile edinebilirsiniz.

Bilginize…iyi çalışmalar,saygılar.