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> Malzeme </b></td>"
strBody = strBody & "<td><b> Miktar </b></td>"
strBody = strBody & "</tr>"
strBody = strBody & "<tr>"
strBody = strBody & "<td> " & RS.Fields("MLZ_TANIMI") & " </td>"
strBody = strBody & "<td align=right> " & RS.Fields("MLZ_TALEP_MIKTARI") & " " & RS.Fields("MLZ_BIRIMI") & " </td>"
strBody = strBody & "</tr>"
strBody = strBody & "</table>"
strBody = strBody & "</font><br><br>"