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