Skip to main content

AccessTr.neT


Mail Olarak Gidenlerin Yanına Yazdırma

Mail Olarak Gidenlerin Yanına Yazdırma

Çözüldü #1
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
.rar Mail Gönderme.rar (Dosya Boyutu: 169,11 KB | İndirme Sayısı: 4)
Cevapla
#2
Merhaba, mail gönder butonuna eklediğiniz katıştırılmış makro yerine,

1- Sorgu sonucunu excel'e aktaracak kod eklenmeli.

Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
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
Cevapla
#4
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.
Cevapla
#5
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,

Visual Basic Code
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.

Visual Basic Code
DoCmd.RunSQL "UPDATE mail SET mail.durum = 'Gönderildi'"

bu kod, erdenerbey tablosundaki durum alanını Gönderildi olarak günceller.

Visual Basic Code
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ı.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#6
Teşekkürler hocam macroda direk outlook 'a ekleyip gönderiyor zaten verdiğiniz kodları ekliyorum hemen
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da