Merhaba bir konu hakkında sizden yardım alabilirmiyim?
Elimde basit ekteki şekilde bir rapor var.Bu raporu mail listesinden göndermek istiyorum.Ben modülü aşağıdaki gibi yazıyorum. Tabii ayrıca aşağıdaki gibi herkese aynı standart mail değil benim "ad" sahasında verdiğim kritere göre gitmesini istiyorum.
Eğer bu şekilde yazarsam mail adreslerini, subject ,mesaj ve ad kriterini tek tek girmem gerekiyor ve bayağı uzun sürüyor.
Buradaki mail adresini,subject ,mesaj ve kriter sahasını tek tek girmeden
bir tabledan okutarak girmenin daha kolay bir yolu olabilirmi?
Forumda biraz inceledim ama tam olarak bana göre bir şey bulamadım.
Teşekkürler saygılar...
Sub mm()
DoCmd.OpenReport "table1", acViewPreview, , "ad = 'aaa'"
DoCmd.SendObject acSendReport, , acFormatSNP, "mm@hotmail.com", , , "deneme", , False
DoCmd.Close
DoCmd.OpenReport "table1", acViewPreview, , "ad = 'bbb'"
DoCmd.SendObject acSendReport, , acFormatSNP, "vvv@hotmail.com", , , "deneme", , False
DoCmd.Close
End Sub
Elimde basit ekteki şekilde bir rapor var.Bu raporu mail listesinden göndermek istiyorum.Ben modülü aşağıdaki gibi yazıyorum. Tabii ayrıca aşağıdaki gibi herkese aynı standart mail değil benim "ad" sahasında verdiğim kritere göre gitmesini istiyorum.
Eğer bu şekilde yazarsam mail adreslerini, subject ,mesaj ve ad kriterini tek tek girmem gerekiyor ve bayağı uzun sürüyor.
Buradaki mail adresini,subject ,mesaj ve kriter sahasını tek tek girmeden
bir tabledan okutarak girmenin daha kolay bir yolu olabilirmi?
Forumda biraz inceledim ama tam olarak bana göre bir şey bulamadım.
Teşekkürler saygılar...
Sub mm()
DoCmd.OpenReport "table1", acViewPreview, , "ad = 'aaa'"
DoCmd.SendObject acSendReport, , acFormatSNP, "mm@hotmail.com", , , "deneme", , False
DoCmd.Close
DoCmd.OpenReport "table1", acViewPreview, , "ad = 'bbb'"
DoCmd.SendObject acSendReport, , acFormatSNP, "vvv@hotmail.com", , , "deneme", , False
DoCmd.Close
End Sub