Hocam,

Kodu gerekli yerde kullandım fakat gönderildi yazısını alamadım ayrıca tablodaki mevcut durum yerini değişmesin mailolarakgidenler tablosunda mail kontrol alanına yazsın

Kodu aşağıdaki ile değiştirin.

DoCmd.SendObject acQuery, "mail", "ExcelWorkbook(*.xlsx)", "[email protected]", "[email protected]", "", "Deneme", "Bu Bir Deneme Yazısıdır", True, ""

DoCmd.RunSQL "INSERT INTO mailolarakgidenler ( kod, kaynak, tarih, tesis, bolum, tespit_eden, gozlem, oneriler, sorumlu, termin_tarihi, sorumlu_gorusu, tamamlama_tarihi, durum, mail_kontrol ) SELECT kod, kaynak, tarih, tesis, bolum, tespit_eden, gozlem, oneriler, sorumlu, termin_tarihi, sorumlu_gorusu, tamamlama_tarihi, durum, 'Gönderildi' FROM mail;"

bu kod ile gönderildi mesajı gelmez. Mail istemcisine (Outlook, Thunderbird vs.) yeni mail olarak ekler, siz göndere basarsanız gönderir.