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"
butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.
