AccessTr.neT

Arkadaşlar merhaba; 

Öncelikle 23 Nisan Ulusal Egemenlik ve Çocuk Bayramınız kutlu olsun.

Ekteki örnekte bulunan F_SIKAYET formunda YENİ ŞİKAYETİ MAİL AT ve AKTİF ŞİKAYETLERİ MAİL AT adında iki butonum var. 

Bu butonlara tıklayınca mail bilgisindeki gruba mail atmasını istiyorum. (Bu grubu outlook’tan oluşturdum.) 

Mail atma ile ilgili sitemizden bulduğum örnekleri inceleyerek her iki buton içinde bir kod uyarladım. 

İstediğim atılan maillerin body kısmına Excel tablosu şeklinde sütunlu olarak eklenmesi. Hatta sondada boş bir sütun kalması. (Bu son sütunu mail attığım kişi doldurup bana mailleyecek.) 

Her iki buton içinde bu tip bir Excel tablosunu ek olarak değilde mailin gövdesinde nasıl gönderebiliriz?

https://accesstr.net/konu-maili-tablo-ha...derme.html Bağlantısındaki konuyu inceleyiniz.

Bu örneği inceledim ve 1. mesaja uyarlamıştım.
Bu haliyle işimi pek görmedi.
Mail gövdesine tablo şeklinde eklenmesini istiyorum.

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

Yukarıdaki kodları örneğime uyguladım.
Outlook sayfasını açıyor fakat bilgileri eklemiyor.

(Ekteki örnekte bulunan F_SIKAYET formunda Gönder sekmesindeki MAİL GÖNDER butonu)

Merhaba,

Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştiriniz.

    Dim olApp As Object

    Dim olItem As Variant

    Dim db As DAO.Database

    Dim Kayit As DAO.Recordset

    Dim Sorgum As String

    Dim Baslik(1 To 7) As String

    Dim Satir(1 To 7) As String

    Dim Govde() As String

    Dim SatirSayisi As Long



    Baslik(1) = "Tarih"

    Baslik(2) = "Başvuru No"

    Baslik(3) = "Durum"

    Baslik(4) = "İlçe"

    Baslik(5) = "Adres"

    Baslik(6) = "Adı Soyadı"

    Baslik(7) = "Telefon"



    SatirSayisi = 1

    ReDim Govde(1 To SatirSayisi)

    Govde(SatirSayisi) = "<HTML><body><table border='2'><tr><th>" & Join(Baslik, "</th><th>") & "</th></tr>"



    Sorgum = "SELECT * From Sorgu1"

    Set db = CurrentDb

    Set Kayit = CurrentDb.OpenRecordset(Sorgum)



    If Not (Kayit.BOF And Kayit.EOF) Then

        Do While Not Kayit.EOF

            SatirSayisi = SatirSayisi + 1

            ReDim Preserve Govde(1 To SatirSayisi)

            Satir(1) = Kayit("TARIH")

            Satir(2) = Kayit("BASVURU_NO")

            Satir(3) = Kayit("DURUM")

            Satir(4) = Kayit("ILCE")

            Satir(5) = Kayit("ADRES")

            Satir(6) = Kayit("ADI_SOYADI")

            Satir(7) = Kayit("TELEFON")

            Govde(SatirSayisi) = "<tr><td>" & Join(Satir, "</td><td>") & "</td></tr>"

            Kayit.MoveNext

        Loop

    End If



    Govde(SatirSayisi) = Govde(SatirSayisi) & "</table></body></html>"



    Set olApp = CreateObject("Outlook.application")

    Set olItem = olApp.CreateItem(0)



    olItem.Display

    olItem.To = Me.BOLGE

    olItem.Subject = Me.BOLGE & " 'YE AİT " & Me.BASVURU_NO & " NOLU ŞİKAYET BAŞVURUSU"

    olItem.HTMLBody = Join(Govde, vbNewLine)

    olItem.Display