AccessTr.neT

butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

 Dim objCDOMailz As Object

 Dim klasorAdres, GBelge, GZaman As String

    Set objCDOMailz = CreateObject("CDO.Message")

    

    

    klasorAdres = CurrentProject.path & "\gonderi" 'dosya yolu

    GBelge = CurrentProject.path & "\RYENiNeSiL.pdf"

    GZaman = Replace(Metin10, ":", ".")

    

    

    If Dir(klasorAdres, vbDirectory) = "" Then MkDir klasorAdres

    

    objCDOMailz.Addattachment GBelge   ' eğer isterseniz eklenecek dosya

    

    FileCopy GBelge, CurrentProject.path & "\gonderi\" & Me.Metin50 & "-" & GZaman & ".pdf"

    

    Kill GBelge

       

 

    Set objCDOMailz = Nothing

MsgBox "pdf ok"

(03/03/2019, 09:30)haliliyas yazdı: [ -> ]siz herhangi bir eklenti yüklediniz mi ben de şimdi de CDO referans hatası verdi
bende yüklü accesste "microsoft cdo 1.2 library" yok maalesef?

hayır hocam sadece yukarıda verdiğim 2 tane dll  yükledim sistem32 ye attım.
ama örnek içinde modReportToPDFX  modülü var. 
 
modülde kodun bir kısmında aşağıdaki kod var bilginize


    Else
        sOutFile = CurrentProject.path & "\RYeniNesil.pdf"
        'CurrentProject.Path & "\YeniNesil.pdf"
    End If

Benim yazdığım cevaplar okunmuyor mu??

(03/03/2019, 20:30)ozanakkaya yazdı: [ -> ]Benim yazdığım cevaplar okunmuyor mu??

Estafurullah Ozan Hocam aksine,Hocam  yıllarca verdiğiniz kodlardan çok faydalandım.
Cevap vermeme bir yana sizin benim sorumu cevaplama nezaketiniz için teşekkür ederim.

Verdiğiniz kod ile pdf adını verilere göre kaydedebiliyorum sorun çözülmüştür.

örneği düzenlenmiş haliye değiştiriyorum.

Ellerinize sağlık teşekkür ederim.