AccessTr.neT

İstediğin örnek bu konunun 3.sayfasındaki 14. nolu mesajda var.

Seruz kardeş, gönderdiğiniz kodlarla eposta gönderebiliyorum....

Yalnız gönedirilen bilgiler sıralı tek satıra yazıyor... Bunu bir tablo haline dönüştürebilirmiyim?

Yada veriler alt alta yazılabilir mi? Basit bişeydir muhtemelen sizin için...

Aile Hekimliği işlemlerinde kullanıyorum. Çok işimize yaradı.

Teşekkür ederim yardımların için...

Sn. yturan,

Sanırım siz belirttiğim 14 nolu mesajın tamamını okumadınız veya bir şekilde gözünüzden kaçtı.

Mesajın sonundaki Html örneğinde tam da sizin istediğiniz gibi tablo şeklinde mail gönderme örneği var.

Göremediğiniz için aynı örneği tekrar buraya ekliyorum.

---

Biraz Html bilgisi ile, strBody değişkenini istediğiniz şekilde Html kodları ile doldurarak, mesaj içeriğini güzelleştirebilirsiniz.

Örneğin:

strBody = ""

strBody = strBody & "<p>"

strBody = strBody & "<font face='Verdana' size='2'>"

strBody = strBody & "Sn. " & Me.Yetkili.Column(1)

strBody = strBody & "<br><br>"

strBody = strBody & "Satınalma Yetkilisi olduğunuz " & Me.TALEP_EDENIN_ADI & " malzeme satınalma talebinde bulunmuştur."

strBody = strBody & "<br><br>"

strBody = strBody & "Concorde Menü'de 'MALZEME TALEPLERİ' programındaki 'Yetkili Onayı' formunda"

strBody = strBody & "<br>"

strBody = strBody & "  malzeme talebine onay verebilir veya talebi iptal edebilirsiniz."

strBody = strBody & "<br><br><br>"

strBody = strBody & "Talep Edilen Malzemeler: (No:" & Me.TALEP_NO & ")"

strBody = strBody & "</font>"

strBody = strBody & "</p>"

strBody = strBody & "<table border='1' cellspacing='0' cellpadding='1' font face='Verdana' size='1' bgcolor='LightBlue'>"

strBody = strBody & "<tr>"

strBody = strBody & "<td><b>&nbsp;Malzeme&nbsp;</b></td>"

strBody = strBody & "<td><b>&nbsp;Miktar&nbsp;</b></td>"

strBody = strBody & "</tr>"

strBody = strBody & "<tr>"

strBody = strBody & "<td>&nbsp;" & RS.Fields("MLZ_TANIMI") & "&nbsp;</td>"

strBody = strBody & "<td align=right>&nbsp;" & RS.Fields("MLZ_TALEP_MIKTARI") & " " & RS.Fields("MLZ_BIRIMI") & "&nbsp;</td>"

strBody = strBody & "</tr>"

strBody = strBody & "</table>"

strBody = strBody & "</font><br><br>"

Kusura bakmayın görmemişim....
Teşekkürler...

Sorununuzun çözülmesine sevindim.

(26/10/2010, 13:54)mustafa_atr yazdı: [ -> ]Sorununuzun çözülmesine sevindim.

Sayın Mustafa_atr, sorunum çözüldü, aile hekimlerinin maaşlarını bu şekilde gönderebiliyorum artık... Ancak, giden e-posta outlook expresten açıldığında bir sorun yok, sistemden yani e-postanın kendinden açtığın zaman türkçe karakterler görünmüyor. Html kodları ile ilgili bir sorun sanırım. Html kodlarına türkçe karakter sorunu ile ligili bir kod eklemek mi gerekiyor? Bu hususta bilginiz varmıdır Teşekkür ederim...