DoCmd.SendObject acQuery, "mail", "ExcelWorkbook(*.xlsx)", "alici@gmail.com", "[email protected]", "", "Deneme", "Bu Bir Deneme Yazısıdır", True, ""bu kod, sizin katıştırılmış makronun visual basic koduna dönüştürülmüş halidir.
DoCmd.RunSQL "UPDATE mail SET mail.durum = 'Gönderildi'"
bu kod, erdenerbey tablosundaki durum alanını Gönderildi olarak günceller.
DoCmd.RunSQL "INSERT INTO mailolarakgidenler ( kod, kaynak, tarih, tesis, bolum, tespit_eden, gozlem, oneriler, sorumlu, termin_tarihi, sorumlu_gorusu, tamamlama_tarihi, durum ) SELECT kod, kaynak, tarih, tesis, bolum, tespit_eden, gozlem, oneriler, sorumlu, termin_tarihi, sorumlu_gorusu, tamamlama_tarihi, durum FROM mail;"
bu kod ise sorgu sonucundaki verileri mailolarakgidenler tablosuna aktarır.
Benim bahsettiğim smtp olayı, herhangi bir eposta istemcisi olmadan mailleri direkt gönderme ile alakalı.
