Skip to main content

AccessTr.neT


Raporu Pdf Olarak Mail Atmak.

Raporu Pdf Olarak Mail Atmak.

Çözüldü #1
Hayırlı günler arkadaşlar. Atoykan hocam raporda çift tıklama moduyla pdf ye çeviriyor. Bu raporu pdf olarak nasıl mail atabilirim. Mailin uzantısı ne olursa olsun göndersin. Hotmail , gmail gibi.
teşekkür ederim.
.rar hegu.rar (Dosya Boyutu: 46,33 KB | İndirme Sayısı: 6)
Cevapla
#2
Siteyi araştırdınız mı tam bu konu ile ilgili cevaplanmış sorular var? Bu konuyu inceleyin
Çözümlenmiş konuları incelemek hem size vakit kazandırır hem de site içinde gereksiz trafik oluşmasını sizin ve/veya bir başka arkadaşımızın geç yardım almasını engeller.


ACCESSTR.NET FORUMLARINDA UYULMASI GEREKEN GENEL KURALLAR'ı lütfen dikkate alın.

4-) Bir konu açmadan önce o konunun forumumuzda mevcut olup olmadığını lütfenaramayaparak araştırınız. Benzeri konu daha önceden sorulmuş olabilir.
Sürekli ihlalde uyarı puanı verilecektir.
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +2
Cevapla
#3
Yazmış olduğunuz konuyu indirdim incelemek için fakat ben de 2007 office olunca açmadı. Teşekkür ederim. Araştırma yaptım ve hala yapmaktayım. Konuyu buraya yazınca beklemiyorum. Araştırıyorum. Sonuçlandırırsam cevabını ve örneğini ekliyorum. İlginize teşekkür ederim.
Son Düzenleme: 18/04/2021, 10:10, Düzenleyen: hegu.
Cevapla
#4
Merhaba Sayın @hegu

Fikir vermesi açısından basit bir şekilde aşağıdaki kodu uygulayabilirsiniz.

Raporunuzun çift tıklanma olayına yazılan kodu aşağıdaki ile değiştirin

Visual Basic Code
Private Sub Report_DblClick(Cancel As Integer)

 DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\PDF\" & [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
 MsgBox "PDF Aktarımı Tamamlandı", vbInformation, "Report Exported as PDF"
 Dim appOutLook As Outlook.Application
 Dim MailOutLook As Outlook.MailItem
 Dim RptName As String
    RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

 If Len(Dir(RptName)) > 0 Then

  Kill RptName

 End If

 DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, RptName

 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 RptName
        .Send
    End With
    MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub

to kısmına göndermek istediğiniz mail adresini, subject kısmına mailinizin konusunu, HTMLbody kısmına yazmak istediğiniz mesajı yazın. Çift tıkladığınızda Outlook üzerinden mailinizi gönderecektir. Mail adreslerini, konu ve mesaj içeriklerini sağlayacağınız tablo ve form tasarımı yaparsanız her seferinde kodlara müdahale edip değiştirmek yerine ilgili alanlar kodlarda kullanılarak mail göndermeyi sağlayacak bir tasarım üzerinde çalışabilirsiniz.
Cevapla
#5
(21/04/2021 18:54)atoykan Adlı Kullanıcıdan Alıntı: Merhaba Sayın @hegu

Fikir vermesi açısından basit bir şekilde aşağıdaki kodu uygulayabilirsiniz.

Raporunuzun çift tıklanma olayına yazılan kodu aşağıdaki ile değiştirin

Visual Basic Code
Private Sub Report_DblClick(Cancel As Integer)

 DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "C:\PDF\" & [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"
 MsgBox "PDF Aktarımı Tamamlandı", vbInformation, "Report Exported as PDF"
 Dim appOutLook As Outlook.Application
 Dim MailOutLook As Outlook.MailItem
 Dim RptName As String
    RptName = [Forms]![MUSTERILER2]![FIRMAADI].Value & "_" & Format(Date, "dd_mm_yyyy") & ".pdf"

 If Len(Dir(RptName)) > 0 Then

  Kill RptName

 End If

 DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, RptName

 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 RptName
        .Send
    End With
    MsgBox "Mail Gönderildi", vbInformation, "Report Sent as PDF"
End Sub

to kısmına göndermek istediğiniz mail adresini, subject kısmına mailinizin konusunu, HTMLbody kısmına yazmak istediğiniz mesajı yazın. Çift tıkladığınızda Outlook üzerinden mailinizi gönderecektir. Mail adreslerini, konu ve mesaj içeriklerini sağlayacağınız tablo ve form tasarımı yaparsanız her seferinde kodlara müdahale edip değiştirmek yerine ilgili alanlar kodlarda kullanılarak mail göndermeyi sağlayacak bir tasarım üzerinde çalışabilirsiniz.

Dediğinizi yaptım fakat hata verdi.

[Resim: do.php?img=10934]
Cevapla
#6
Referanslardan Microsoft Outlook xx.x Object Library'yi ekleyin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da