Özgür'ün dediği gibi, programlama dillerinde bazı kodlar ortak. Ancak bu kodda epostanın HTMLBody alanına veri aktarıldığı için Html kodlaması istiyor.

Ben deneme yapmadığımdan alt satıra geçmesi için "& Chr(13) & Chr(10)" kodu ekledim. Ancak bu kod HTMLBody alanında işlemiyor.

BodyYenile kodunun aşağıdaki gibi Html tagları ile düzenlenirse tablo halinde mail gönderir.

Sub BodyYenile()



mtn_body = ""

mtn_body = " Sn. " & Me.g_kimlik & "<br />"

Me.fiyat_dalt.SetFocus

DoCmd.GoToRecord , , acFirst



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 Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1

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>"

mtn_body = mtn_body & "<tr></tr>"

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