Merhabalar.
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 arasını bulamadım. Neyi eksik yapıyorum. Teşekkürler

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