Option Compare Database
'Option Explicit
Sub Postala()
Call VeriGonder("TabloAdi", acTable) '** acQery ile sorgu gonderilebilir.
'** veya
'Call VeriGonder("SorguAdi", acQery)
End Sub
 
Function VeriGonder(Nesne As String, Tipi As Variant)
Const Klasor As String = "D:\Posta"
Kime = ".........@gmail.com; "
Dim Kyt As DAO.Recordset
Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM " & Nesne) '*** Where ... eki ile veri suzdurulebilir.*******
With Kyt
    If .EOF And .BOF Then
        MsgBox "Kayit Yok"
    Else
        Do Until .EOF
    DoCmd.OutputTo Tipi, Nesne, "HTML(*.html)", Klasor & ".html"
    Set Posta = CreateObject("Scripting.FileSystemObject")
    Set NesneCevir = Posta.OpenTextFile(Klasor & ".html", 1)
    HTMLGovde = NesneCevir.ReadAll
   Dim PostaUygula As Object
   Dim PostaIleti As Object
   On Error Resume Next
   Set PostaUygula = GetObject(, "Outlook.Application")
    If Err Then
       Set PostaUygula = CreateObject("Outlook.Application")
    End If
   Set PostaIleti = PostaUygula.CreateItem(olMailItem)
        With PostaIleti
          .BodyFormat = olFormatHTML
          .To = Kime
          .CC = ""
          .Subject = "DENEME"
          .HTMLBody = HTMLGovde
          .Send
        End With
    .MoveNext
    Loop
    End If
    Kill Klasor & ".html"
    Set PostaUygula = Nothing
    Set PostaIleti = Nothing
    Set NesneCevir = Nothing
    Set Posta = Nothing
    NesneCevir.Close
  MsgBox "tamam"
End With
End Function