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
301
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
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
Çö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
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:18
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
 105
 531
 08/02/2018
0
 Antalya
 İşletmeci
 Ofis 2010 64 Bit
 22/04/2019,21:10
(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ü 3 Farklı Raporu Bir Pdf Te Toplamak aliyuzen 7 192 09/05/2019, 16:57
Son Yorum: aliyuzen
Çözüldü Saat 17:00Da Otomatik Mail Atsın haziran4 6 239 26/04/2019, 15:52
Son Yorum: ozanakkaya
Çözüldü Sürekli Formda Yazılacak Verinin Otomatik Olarak Gelmesi mmert06 2 486 19/04/2019, 22:50
Son Yorum: mmert06
Çözüldü Access Formdaki Renkli Alanları Excele Renkli Olarak Aktarma IceMan7 6 423 10/04/2019, 15:27
Son Yorum: IceMan7
Çözüldü Mysql 5.7 Php 7.3 Guncellemesinden Sonra Smtp Mail Gönderemiyorum zetyu 6 295 10/04/2019, 00:19
Son Yorum: zetyu

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