+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Teklif Formu (/konu-teklif-formu--88445.html)
Teklif Formu - hegu - 23/05/2021
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.
RE: Teklif Formu - feraz - 23/05/2021
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 = "hegukonya@hotmail.com"
.Subject = "Teklif"
.HTMLBody = "Emirsan Teklif Formu"
.Attachments.Add FilePath2 & RptName
.Send
End With
MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End SubRE: Teklif Formu - derzulya - 24/08/2021
Elinize sağlık..
çift tıklama bende çalışmadı nedense...