Bu örnekteki kodu (sayın direnist'e ait) kendi örneğimin koduna ekleyerek sorunu şimdi çözdüm.
Private Sub Komut52_Click()
Dim i As Byte
Dim yol As String
Dim OutApp As Object
Dim OutMail As Object
If MsgBox("Mail gönderilecek. Devam edilsin mi?", vbQuestion + vbYesNo + vbDefaultButton2, "U Y A R I") = vbYes Then
yol = CurrentProject.Path & "\PDF\Aktif_Şikayetler.pdf"
DoCmd.OutputTo acOutputReport, "Aktif Şikayetler", "PDFFormat(*.pdf)", yol, False
End If
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 9) As String
Dim Satir(1 To 9) 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"
Baslik(8) = "Şikayet"
Baslik(9) = "Cevap"
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 T_SIKAYET WHERE [BOLGE] = '" & [RAPOR_BOLGE] & "' AND [DURUM]= 'AKTİF'"
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) = Nz(KAYIT("TARIH"), "")
Satir(2) = Nz(KAYIT("BASVURU_NO"), "")
Satir(3) = Nz(KAYIT("DURUM"), "")
Satir(4) = Nz(KAYIT("ILCE"), "")
Satir(5) = Nz(KAYIT("ADRES"), "")
Satir(6) = Nz(KAYIT("ADI_SOYADI"), "")
Satir(7) = Nz(KAYIT("TELEFON"), "")
Satir(8) = Nz(KAYIT("SIKAYET"), "")
Satir(9) = Nz(KAYIT("CEVAP"), "")
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.RAPOR_BOLGE
olItem.Subject = Me.RAPOR_BOLGE & "'YE AİT HENÜZ CAVAPLANMAMIŞ " & SatirSayisi - 1 & " ADET ŞİKAYET BULUNMAKTADIR"
olItem.HTMLBody = Join(Govde, vbNewLine) & Chr(10) & Chr(10) & "LÜTFEN EN KISA ZAMANDA CEVAPLAYINIZ"
olItem.Display
olItem.Attachments.Add yol
KAYIT.Close
Set KAYIT = Nothing
End Sub
