Mail Olarak Gidenlerin Yanına Yazdırma

Merhabalar,

Yapmış olduğum sorguyu mail olarak göndermek istiyorum ve mail olarak gönderdiklerimin karşısında mail gönderildi yazıp farklı bir tabloya aktarmak istiyorum yardım eder misiniz ? ayrıca mail içeriğini tam istediğim şekilde nasıl yazabilirim

Teşekkürler

Merhaba, mail gönder butonuna eklediğiniz katıştırılmış makro yerine,

1- Sorgu sonucunu excel'e aktaracak kod eklenmeli.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "mail", CurrentProject.Path & "\ExcelVeriler.xlsx", True

Kodu uygulama ile aynı dizine ExcelVeriler.xlsx adında Excel belgesi oluşturur.

2-) Gmail veya SMTP mail göndermeli, ExcelVeriler isimli belgeyi maile ek olarak ekletmelisin. Acessten Mail Gönderme(SMTP+GMAİL). Eğer kurumsal mail kullanıyorsanız smtp mail gönderebilirsiniz.
3-) Güncelleme sorgusu ile sorgu sonucundaki verilerin erdenbey isimli tablodaki ilgili alana "Mail Gönderildi" şeklinde veri aktarmalısın.
4-) Ekleme sorgusu ile, mail isimli sorgudaki verileri mailolarakgidenler tablosuna aktarmalısın.

Hocam Merhaba,

Makroda yaptığım gibi bir şekilde olamaz mı ? Sorguda ne varsa onu mail gönderiyor tek yapması gereken onların karşısına Gönderildi yazıp farklı bir tabloya kaydetmesi bu işlem çok uzun oluyor dosyayı kaydet sonra tekrardan seç mail gönder

ben bu islem icin rapor olusturuyorum ve raporu pdfye cevirip pdfyi maile attachment ediyorum, mail gonderme kodundada body kismina istedigim degisikligi yapabiliyorum, mail icin smtp ayarlarini daha once sayin admin yapmisti, neredeyse 3 yildir sorunsuz kullaniyorum.

Merhaba, sizin katıştırılmış makrodaki kodda sorununuz yok ise, yani mail.xls belgesini eposta istemcisine göndermesinde, sizin onaylamanızda sorun yok ise,

DoCmd.SendObject acQuery, "mail", "ExcelWorkbook(*.xlsx)", "alici@gmail.com", "bilgi@accesstr.net", "", "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ı.

Teşekkürler hocam macroda direk outlook 'a ekleyip gönderiyor zaten verdiğiniz kodları ekliyorum hemen