AccessTr.neT

Bul · 03/03/2019, 18:00

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"

Bul · 03/03/2019, 20:26

(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

Bul · 03/03/2019, 20:30

Benim yazdığım cevaplar okunmuyor mu??

Bul · 03/03/2019, 23:01

(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.

AccessTr.neT

Pdf Adını Veriye Göre Oluşturmak

Pdf Adını Veriye Göre Oluşturmak

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri