access üzerinden outlook ile excel formatında toplu veri gönderme

04/01/2016, 20:36

mehmetb84

Selam arkadaşlar;
Ekteki veritabanımdaki bilgilerin mail olarak adresime gönderilmesini istiyorum.
Bununla ilgili  sağolsun OzanBey'in hazırladığı kod, hotmail ve diğer web tabanlı maillerde istediğim gibi
fiyatsorgu anaformumda bulunan altforumdaki  verileri aşağıdaki;
kalite:   en:  metraj:
kalite1  en1  3500
kalite2  en2  2200    
şeklinde alınıyor. Fakat outlookta nedenini anlamadığım (kod bilmeden de anlamanın zor olduğunu düşündüğüm) bir nedenden dolayı tablodaki veriler kayıyor.
Kesin çözüm olarak Excel sayfası olarak göndermeyi istiyorum. Bununla ilgili formda yapılmış bir çalışma var fakat bu rapor gönderiyor (https://accesstr.net/konu-excel-dosyasin...derme.html)
Ben forumdaki verileri göndermek istiyorum.


İlgiliniz için teşekkür ederim.
05/01/2016, 15:22

mehmetb84

(04/01/2016, 20:36)mehmetb84 yazdı: Selam arkadaşlar;
Ekteki veritabanımdaki bilgilerin mail olarak adresime gönderilmesini istiyorum.
Bununla ilgili  sağolsun OzanBey'in hazırladığı kod, hotmail ve diğer web tabanlı maillerde istediğim gibi
fiyatsorgu anaformumda bulunan altforumdaki  verileri aşağıdaki;
kalite:   en:  metraj:
kalite1  en1  3500
kalite2  en2  2200    
şeklinde alınıyor. Fakat outlookta nedenini anlamadığım (kod bilmeden de anlamanın zor olduğunu düşündüğüm) bir nedenden dolayı tablodaki veriler kayıyor.
Kesin çözüm olarak Excel sayfası olarak göndermeyi istiyorum. Bununla ilgili formda yapılmış bir çalışma var fakat bu rapor gönderiyor (https://accesstr.net/konu-excel-dosyasin...derme.html)
Ben forumdaki verileri göndermek istiyorum.


İlgiliniz için teşekkür ederim.
09/01/2016, 02:02

ozanakkaya

Bu sorunun raporu Excel yoluyla mail ile gönderirken oluşan sorun bağlantısındaki sorudan farkı nedir?

İlgili kodu aşağıdaki ile değiştirip tekrar deneyiniz.


Sub BodyYenile()
Dim SatirSayisi, a As Integer
mtn_body = ""
mtn_body = " Sn. " & Me.g_kimlik & "<br />"
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acFirst

SatirSayisi = Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1

mtn_body = mtn_body & "<table><tbody><tr><td style='width:100px;'>Kalite:</td><td style='width:100px;'>En:</td><td style='width:100px;'>Metraj:</td></tr><tr>"

For a = 0 To SatirSayisi
mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_kalite] & "</td>"
mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_metraj] & "</td>"
mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_en] & "</td>"
If a <> SatirSayisi Then
mtn_body = mtn_body & "</tr><tr>"
End If
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acNext
Next a
mtn_body = mtn_body & "</tr></tbody></table>"
mtn_body = mtn_body
Me.g_musteri.SetFocus

End Sub
09/01/2016, 02:32

mehmetb84

Çok teşekkürler Ozan bey, sonunda kod istediğim gibi çalıştı. Diğer konudan farkı şuydu;buradan sonuç alamayınca doğrudan mail yoluyla değil de Excel ile outlook üzerinden yapmayı denemiştim,onunla ilgili rapor güncelleme sorunum vardı onu da cevaplamışsınız, tekrar teşekkür ederim.