AccessTr.neT

(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.

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