AccessTr.neT

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

If MsgBox("Mail Gönderilecek , Onaylıyormusunuz?", vbExclamation + vbYesNo) = vbYes Then

 End If


Burdaki end if..en sona yazmalısın


  Exit Sub

........................  buraya
End Sub

(24/12/2018, 16:30)C*e*l*o*y*c*e yazdı: [ -> ]If MsgBox("Mail Gönderilecek , Onaylıyormusunuz?", vbExclamation + vbYesNo) = vbYes Then

 End If


Burdaki end if..en sona yazmalısın


  Exit Sub

........................  buraya
End Sub

Teşekkür ederim nedeni konusunda bir şey söyleyebilirmisiniz, tam anlayabilmem için.

neden:
Kod gayet açık,evet yani = vbYes  ise 
işlemi yap
değilse,çıkacak yani    End if diyecek  ve end sub yaparak işlemden çıkacak 
ama sen önce if ile sormuşsun,sonra hemen end if ile kapatmışsın aradaki işlem diışarıda kaldıgı için evette,hayırda desen if dışı oldugu için yinede gönderiyor

yani.....


if ile başlayacak
end if ile bitecek 

(24/12/2018, 16:48)C*e*l*o*y*c*e yazdı: [ -> ]neden:
Kod gayet açık,evet yani = vbYes  ise 
işlemi yap
değilse,çıkacak yani    End if diyecek  ve end sub yaparak işlemden çıkacak 
ama sen önce if ile sormuşsun,sonra hemen end if ile kapatmışsın aradaki işlem diışarıda kaldıgı için evette,hayırda desen if dışı oldugu için yinede gönderiyor

yani.....


if ile başlayacak
end if ile bitecek 

End if ile bitirdim de koordinatlarda hata varmış Çok teşekkür ederim.