Skip to main content

AccessTr.neT


Raporu Pdf Olarak Mail Atmak.

Raporu Pdf Olarak Mail Atmak.

#7
Sayın Atoykan ekteki hatayı verdi.
[Resim: do.php?img=10937]
[Resim: do.php?img=10938]
Cevapla
#8
Dosya yolunuz hatalı c:\pdf benim örnek için kullandığım yol, siz ' ile by-pass ettiğiniz üstteki kodda yer alan dosya yolunu kullanın
Cevapla
#9
Sayın atoykan haklısınız dediğiniz gibi yol yazdım bu sefer ekteki hatayı verdi.
[Resim: do.php?img=10939]
[Resim: do.php?img=10940]
Cevapla
#10
Ekli dosyada kodlarda to, subject ve body'yi düzenleyip dener misiniz?
.rar hegu_editted.rar (Dosya Boyutu: 55,97 KB | İndirme Sayısı: 8)
Cevapla
#11
Sayın atoykan yine üsteki resmini eklediğim hatayı verdi.
Cevapla
#12
Kodu aşağıdaki ile değiştirip dener misiniz lütfen?

Private Sub Report_DblClick(Cancel As Integer)

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

RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
FilePath = "C:\Users\Hegu\OneDrive\Masaüstü\Emirsan\Teklifler\"
DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, FilePath & 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 = "BURAYA ALICININ E-MAIL ADRESİ YAZILACAK"
        .Subject = "BURAYA KONU YAZILACAK"
        .HTMLBody = "E-MAIL METNİNİZ YAZILACAK"
        .Attachments.Add FilePath & RptName
        .Send
    End With
    MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da