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.