Aşağıda yazdığım kod dizisinin sonucunda çıkan pencerede evet seçtiğimde mail gönderme işleminin yapılması, hayır seçeneğinde ise yapılmaması gerekiyor. Fakat şu haliyle evet seçtiğimde de gönderiyor hayır seçtiğimde de gönderiyor
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Private Sub btnE_MailGonder_Click()
If MsgBox("Mail Gönderilecek , Onaylıyormusunuz?", vbExclamation + vbYesNo) = vbYes Then
End If
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim GDosyaAdi As String
GDosyaAdi = Environ("Temp") & "\" & Me.FirmaUnvan & " - " & Me.Kimlik & ".pdf"
If Len(Dir(GDosyaAdi)) > 0 Then
Kill GDosyaAdi
End If
DoCmd.OutputTo acOutputReport, "R_02_VerilenTeklifler", acFormatPDF, GDosyaAdi
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.to = Me.txtE_Mail
.Subject = "ISSE GROUP TECNOLOGIE Fiyat Teklifi"
.Attachments.Add GDosyaAdi
.Send
End With
Exit Sub
End Sub