(25/04/2016, 12:41)kadirdursun yazdı: Bu örneği inceledim ve 1. mesaja uyarlamıştım.
Bu haliyle işimi pek görmedi.
Mail gövdesine tablo şeklinde eklenmesini istiyorum.
Kadir bey, 1. mesajdaki örnek uygulamanızda
.Body = "TARİH: " & Me.TARIH & "" _
& Chr(10) & Chr(10) & "Başvuru No: " & Me.BASVURU_NO & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & "Durum : " & Me.DURUM & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & "İlçe: " & Me.ILCE & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & "Adı Soyadı: " & Me.ADI_SOYADI & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & "Telefon: " & Me.TELEFON & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & "Adres: " & Me.ADRES & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & "Şikayet: " & Me.SIKAYET & "" _
& Chr(10) & "__________________________________________________________________________________________________________________________________________________" & "" _
& Chr(10) & Chr(10) & " Cevap Tarihi: " & Me.CEVAP_TARIHI & "" _
& Chr(10) & Chr(10) & " Cevap : " & Me.CEVAP & "" _
& Chr(10) & Chr(10) & "LÜTFEN EN KISA ZAMANDA CEVAPLAYINIZ"
şeklinde kodlama bulunmaktadır.Ancak, benim bağlantısını verdiğim uygulamadaki çözümde ilgili kodlama aşağıdaki gibi,
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
Yani body kısmına Html tablo tagları ekliyor.