Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
14/12/2018 17:32
Konu Sahibi
Oğuz Türkyılmaz
Yorumlar
2
Okunma
355
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 108
 563
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 Bugün,15:52
Çözüldü 
Ozur Merhabalar

Teklif Giriş Formum var ve burdan firmalara verilecek tekliflerin girişini yapıyor ve kayda alıyorum. Form üzerindeki önizle - yazdır seçenekleri ile de bu teklifin R_02_VerilenTeklifler adlı raporunu çalıştırabiliyorum. Amacım bu raporun E-Mail Gönder butonuna basıldığında form üstünde görülen alıcısına Ek olarak gönderilmesini sağlamak.( Mail Trafiği info@.........com uzantılı adres tarafından  OUTLOOK üzerinden gerçekleştiriliyor ) Forumdaki OUTLOOK üzerinden Ek olarak gönderilmesi ile ilgili konudaki ozan beyin örneğini butonun olay yordamına ekledim, İki projemdeki farklılıklardan anladığım kadarını bir iki yerde doğru yanlış kendime uyarlamaya  çalıştım ,ortaya çıkacak hataları da birer birer çözerek ilerlemek istiyorum. Yardımlarınız için teşekkür ederim. ( Bu arada bu istediğimi alınan rapor üstünde sağ tıklayarak  gönder seçeneği ile outlooka gönderebiliyorum ama dediğim gibi amacım tek tuşla kullanıcıya  kolaylık sağlamak. İlk hata geçerli kayıt yok şeklinde karşıma çıktı.
[Resim: do.php?imgf=154479773276611.jpg]
[Resim: do.php?imgf=154479773296042.jpg]



Access Çekirgesi 
[Resim: img-cray.gif]



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.136
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Merhaba, eklediğiniz örnekteki kod, tabloya ek olarak eklenen belgenin dizine kaydedilip outlook'a ek olarak ekleme için tasarlanmış. Sizin raporu pdf uzantılı kaydedip outlook'a ek olarak eklemeniz gerekiyor.

Kod yapısının

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

Dim GDosyaAdi  As String
'Dim rsKayit As DAO.Recordset2
'Dim GEk

'Set rsKayit = Me.Recordset
'Set GEk = rsKayit.Fields("EK").Value

GDosyaAdi = Environ("Temp") & "\" & Me.FirmaUnvan & " - " & Me.Kimlik & ".pdf"

If Len(Dir(GDosyaAdi)) > 0 Then

    Kill GDosyaAdi

End If

DoCmd.OutputTo acOutputReport, "R_02_VerilenTeklifler", acFormatPDF, GDosyaAdi


Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
    With MailOutLook

            .to = Me.txtE_Mail
            .Subject = "ISSE GROUP Fiyat Teklifi"
            '.HTMLBody = Me.mess_text
'            GEk.Fields("FileData").SaveToFile Environ("Temp")
            .Attachments.Add GDosyaAdi
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
'            DoCmd.Close
            'MsgBox MailOutLook.Body
            Exit Sub
'email_error:
'            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
'            Resume Error_out
'Error_out:


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
Oğuz Türkyılmaz

Oğuz Türkyılmaz

Aktif Üye
95272
Oğ.... Tü....
 51
 108
 563
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 Bugün,15:52
(15/12/2018 11:59)ozanakkaya Adlı Kullanıcıdan Alıntı: Merhaba, eklediğiniz örnekteki kod, tabloya ek olarak eklenen belgenin dizine kaydedilip outlook'a ek olarak ekleme için tasarlanmış. Sizin raporu pdf uzantılı kaydedip outlook'a ek olarak eklemeniz gerekiyor.

Kod yapısının

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

Dim GDosyaAdi  As String
'Dim rsKayit As DAO.Recordset2
'Dim GEk

'Set rsKayit = Me.Recordset
'Set GEk = rsKayit.Fields("EK").Value

GDosyaAdi = Environ("Temp") & "\" & Me.FirmaUnvan & " - " & Me.Kimlik & ".pdf"

If Len(Dir(GDosyaAdi)) > 0 Then

    Kill GDosyaAdi

End If

DoCmd.OutputTo acOutputReport, "R_02_VerilenTeklifler", acFormatPDF, GDosyaAdi


Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
    With MailOutLook

            .to = Me.txtE_Mail
            .Subject = "ISSE GROUP Fiyat Teklifi"
            '.HTMLBody = Me.mess_text
'            GEk.Fields("FileData").SaveToFile Environ("Temp")
            .Attachments.Add GDosyaAdi
            '.DeleteAfterSubmit = True   'This would let Outlook send th note without storing it in your sent bin
            .Send
            End With
'            DoCmd.Close
            'MsgBox MailOutLook.Body
            Exit Sub
'email_error:
'            MsgBox "An error was encountered." & vbCrLf & "The error message is: " & Err.Description
'            Resume Error_out
'Error_out:


Ozan Bey Teşekkür ederim. Sorunsuz çalışıyor.


Access Çekirgesi 
[Resim: img-cray.gif]




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Access Raporu Göründüğü Gibi Excele Aktarma Akın Yıldız Usta 1 149 04/08/2019, 19:25
Son Yorum: berduş
Çözüldü Metin Olarak Belirtilen Formülün Çalıştırılması? damacanasu 1 225 14/07/2019, 12:43
Son Yorum: berduş
Çözüldü 3 Farklı Raporu Bir Pdf Te Toplamak aliyuzen 7 281 09/05/2019, 16:57
Son Yorum: aliyuzen
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 338 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi mmert06 2 548 19/04/2019, 22:50
Son Yorum: mmert06

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.