Private Sub izindokumgonder()
DoCmd.OutputTo acOutputReport, "RP_IZINDOKUM", "PDFFormat(*.pdf)", yol & "İzin Talep Formu_" & Form_FRM_ANA.prs_tc & "_" & Format(Date, "ddmmyyyy") & ".pdf", False, "", , acExportQualityPrint
 
Dim gidecekeposta, mesaj As String
Set objCDOMail = CreateObject("CDO.Message")
 
gidecekeposta = eposta
 
If gidecekeposta = "" Then
Exit Sub
Else
gidecekeposta = gidecekeposta
End If
 
konu = "İzin Talep Formu " & DLookup("prs_kadro", "tbl_personel", "[prs_id]=" & Form_FRM_IZIN.prs_id2)
 
ana = ana & vbNewLine & "Tarafınıza gönderilen izin telep formu *.PDF formatında ektedir. " & vbNewLine
ana = ana & vbNewLine & "İzin talep eden bölümünü imzaladıktan sonra Birim Sorumlusu ve İlgili Müdüre imzalattıktan sonra İzin İşlerine teslim etmeyi unutmayınız. " & vbNewLine
ana = ana & vbNewLine & "İy Çalışmalar Dileriz." & vbNewLine & vbNewLine
ana = ana & vbNewLine & "NOT: Bu e-posta otomatik olarak gönderilmiştir. Lütfen cevaplamayın." & vbNewLine
 
 
objCDOMail.To = gidecekeposta
objCDOMail.From = DFirst("smtp_username", "tbl_tanimlamalar")
 
objCDOMail.Subject = konu
 
objCDOMail.AddAttachment yol & "İzin Talep Formu_" & Form_FRM_ANA.prs_tc & "_" & Format(Date, "ddmmyyyy") & ".pdf"
 
objCDOMail.TextBody = ana
 
 
With objCDOMail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = DFirst("smtp_ssl", "tbl_tanimlamalar")
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = DFirst("smtp_sendusing", "tbl_tanimlamalar")
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = DFirst("smtp_server", "tbl_tanimlamalar")
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = DFirst("smtp_authenticate", "tbl_tanimlamalar")
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = DFirst("smtp_username", "tbl_tanimlamalar")
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = DFirst("smtp_password", "tbl_tanimlamalar")
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = DFirst("smtp_port", "tbl_tanimlamalar")
.Update
End With
objCDOMail.Send
 
Set objCDOMail = Nothing
mesaj = MsgBox("Eposta başarılı şekilde gönderildi.", vbOKOnly, "Bilgilendirme")
If mesaj = vbOK Then DoCmd.Close
End Sub