Sub MailGonder(DisplayMsg As Boolean)
Dim stDocName As String
Dim stDocName2 As String
'-------İrsaliye ve HATA LİSTESİ------------- göndermek istediğim raporlar.
    stDocName = "İrsaliye"
    stDocName2 = "HATA_LISTESI"
 
'-----------İrsaliye ve HATA LISTESINİ--------- AŞAĞIDAKİ GİBİ PDF OLARAK D:\ SÜRÜCÜSÜNE KAYIT YAPIYORUM
 
DoCmd.OpenReport stDocName, acViewPreview, , , acWindowNormal
DoCmd.OutputTo acOutputReport, "İrsaliye", "PDFFormat(*.pdf)", "D:\İrsaliye.pdf", False
DoCmd.Close acReport, "İrsaliye"
 
 
DoCmd.OpenReport stDocName2, acViewPreview, , "IRS_KODU In(" & Kosul & ")", acWindowNormal
DoCmd.OutputTo acOutputReport, "HATA_LISTESI", "PDFFormat(*.pdf)", "D:\HATA_LISTESI.pdf", False
DoCmd.Close acReport, "HATA_LISTESI"
 
 
Dim oItem As Outlook.MailItem
Dim oitems As Items
Set oOutlook = New Outlook.Application
Set oItem = oOutlook.CreateItem(olMailItem)
With oItem
.Subject = "İrsaliye ve Hata Raporu Ektedir"
'-----------ME.MAIL yazan kısım mail göndereceğim kişilerin olduğu metin kutusu, istersen bu alana istediğin maili çift tırnak içinde de yazabilirsin., yada benim yaptığım gibi METİN KUTUSUNDAN ALDIRABİLİRSİN.
.To = Me.MAIL
'.CC = ""
'.Body = ""
 
Set myAttachments = oItem.Attachments
    '-------------AŞAĞIDAKİLER D:\ SÜRÜCÜSÜNDEKİ DOSYALAR PDF OLARAK GİDECEK OLANLAR
    .Attachments.Add ("D:\İrsaliye.pdf")
      .Attachments.Add ("D:\HATA_LISTESI.pdf")
 
Set myAttachments = Nothing
.ReadReceiptRequested = False
.DeleteAfterSubmit = True
'-----DİSPLAY MAİL GİTMEDEN GÖRMEK İSTERSEN MAİL OLARAK AÇAR, SEND ARKA PLANDA GÖNDERİR.
.Display
'.Send
End With
Set oOutlook = Nothing
Set oItem = Nothing
 
'---------GÖNDERDİKTEN SONRA SİLDİRİYORUM.
    Kill ("D:\HATA_LISTESI.pdf")
   Kill ("D:\İrsaliye.pdf")
END SUB

'--------------AŞAĞIDAKİ KODU BUTON TIKLAMA OLAY YORDAMINA TAŞIYINIZ.
Private Sub hata_raporu_Click()
'----SADECE AŞAĞIDAKİ KODU TAŞIYINIZ
Call MailGonder(True)
End Sub