Merhabalar,

Kayıtlarım arasında termin tarihi gelen kayıtları otomatik olarak mail göndermek istiyorum. Mail gönderme işlemini gerçekleştiriyorum fakat ek olarak tüm kayıt raporlarını gönderiyor. Benim istediğim sadece termin tarihi gelen kaydı ek olarak göndermek. Kodlamam şu şekilde;
Altı çizgili satırda sorun yaşıyorum


Private Sub Form_Open(Cancel As Integer)
 
Dim db As Database
Set db = CurrentDb
Dim re As Recordset2
Set re = db.OpenRecordset("tv", dbOpenDynaset)
Dim d As Date
Dim stDocName As String
 
d = Format(Now(), "Short Date")
 
Do While Not re.EOF
 
If d = re!hatirlatma Then
 
DoCmd.OpenReport "tv", acViewReport, [tv]!id = re!id, , acIcon
 
'DoCmd.SendObject acSendReport, "opl", acFormatPDF, re!mailler.Value, , , re!id, "Merhaba, " & vbCrLf & vbCrLf & "Sorumlu oldugunuz bir OPL olusturuldu. Lutfen termin tarihi ve durumu guncelleyin. " & vbCrLf & vbCrLf & "Bu mail otomatik olusturulmustur.", True
 
End If
 
re.MoveNext
 
Loop
 
End Sub

Bence tarihi gelenler için bir sorgu oluşturup bu sorguyu kullanmanız daha iyi olur.
Sorguda hatırlatma tarih alanı Date() bugüne eşit olanları listeleyecektir. Örnek eklerseniz daha kısa zamanda cevap alabilirsiniz.

Onur Hocam'a ek olarak mail-gonderme konusu yardimci olabilir.

(07-02-2020, 14:58)onur_can demiş ki: Bence tarihi gelenler için bir sorgu oluşturup bu sorguyu kullanmanız daha iyi olur.
Sorguda hatırlatma tarih alanı Date() bugüne eşit olanları listeleyecektir. Örnek eklerseniz daha kısa zamanda cevap alabilirsiniz.

Onur hocam, dediğinizi uyguluyorum ama sonuç olarak termini aynı gün olan kayıtlar sorguda birden fazla olduğunda gönderilecek kişilere tümü gidiyor. Ben sadece ilgili kişiye ilgili kaydı göndermek istiyorum

DoCmd.SendObject komutu Nesne olarak gönderir, Yani tablo form sorgu modül veya rapor olarak gönderebilirsiniz. Yalnız aşağıdaki parametreyi kullanarak Mesaj gövdesine istenilen bilgiler yazdırılabilr. 2 yol izleyebilirsiniz.
1.si yukarıdaki kod örneğinizde  yerine acSendNoObject kullanarak Merhaba yazdırdığınız yerin devamına düz yazı olarak yazdırabilirsiniz (hatırlatma,işlem gibi)
2.si ise sorguya kişi filtresi ekleyerek bir sorgu oluşturup bunu da bir rapora bağlayarak bu raporu gönderebilirsiniz(Kişiler için ayrı ayrı)

(07-02-2020, 14:58)onur_can demiş ki: Bence tarihi gelenler için bir sorgu oluşturup bu sorguyu kullanmanız daha iyi olur.
Sorguda hatırlatma tarih alanı Date() bugüne eşit olanları listeleyecektir. Örnek eklerseniz daha kısa zamanda cevap alabilirsiniz.

Merhaba ;
Access konusunda daha çok yeniyim. Genellikle sihirbazlar üzerinden çalışıyorum.
Yukarıda bahsettiğiniz hatırlatma tarihine göre sorgu ve raporunu yaptım.
Bundan sonra otomatik olarak ilgili kişilere nasıl mail atacağız.

Yardımcı olursanız sevinirim ..Teşekkürler..