AccessTr.neT

Tam Versiyon: Teklif Formu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Accesstr ustalarının katkısı ile teklif formu hazırladım. Belki birilerinin işine yarar. Teklif raporunu açtığınızda çift tıklama yapınca hem pdf dosyası oluşturuyor hem de kişinin mail adresine mail gönderiyor. İnşallah işinize yarar.

Not:  Masaüstüne "Emirsan" diye dosya oluşturmanız ve onun içine de "Teklifler" dosyası oluşturmanız gerekir. Siz isterseniz isimleri değiştirebilirsiniz. bunun içinde çift tıklama modülünün içindeki FilePath = "C:\Users\Hegu\OneDrive\Masaüstü\Emirsan\Teklifler\" isimleri de değiştirmeniz lazım.
Elinize sağlık.
Eğer alttaki gibi değiştirirseniz klasörler yoksa kod ekler ve otomatik olur her bilgisayar için.

Private Sub Report_DblClick(Cancel As Integer)

'DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\Users\Hegu\OneDrive\Masaüstü\Emirsan\Teklifler\" & [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
'MsgBox "PDF Aktarýmý Tamamlandý", vbInformation, "Report Exported as PDF"


Dim RptName, FilePath As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

MailAdr = [Forms]![MUSTERILER2]![MAIL].Value
RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"


FilePath = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Emirsan\"
Dim FilePath2 As String
FilePath2 = FilePath & "\Teklifler\"

If Dir(FilePath, vbDirectory) = "" Then MkDir FilePath
If Dir(FilePath2, vbDirectory) = "" Then MkDir FilePath2

DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, FilePath2 & RptName
MsgBox "PDF Aktarýmý Tamamlandý", vbInformation, "Report Exported as PDF"

If Len(Dir(RptName)) > 0 Then
  Kill RptName
End If

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .To = "[email protected]"
    .Subject = "Teklif"
    .HTMLBody = "Emirsan Teklif Formu"
    .Attachments.Add FilePath2 & RptName
    .Send
End With
MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub
Elinize sağlık..

çift tıklama bende çalışmadı nedense...