Kod:
objCDOMailz.Addattachment CurrentProject.path & "\RYENiNESiL.pdf" ' eğer isterseniz eklenecek dosya
yukardaki satırı aşağıdaki kodla değiştirip dener misiniz
Kod:
klasorAdres = CurrentProject.path & "\gonderi" 'dosya yolu
If Dir(klasorAdres,vbDirectory ) = "" Then MkDir klasorAdres ' klasör yoksa oluştur
objCDOMailz.Addattachment CurrentProject.path & "\gonderi\" & Me.Metin50 & "-" & Now() & ".pdf"