[FORM] Sürekli Formu veya sorguyu Mail gövdesinde göstermek
#1
Form üzerinden veriyi mail gönderebiliyorum mailin gövdesine veriyi de yazdırabiliyorum fakat formum sürekli form mailin gövdesine sadece tek satırını ekleyebiliyorum
Mail gövdesine tüm form bilgisini ya da sorguyu liste halinfe nasıl ekleyebilirim



  Alıntı
Bu mesajı beğenenler:
#2
(14-09-2015, 13:51)ersoyyuksel demiş ki: Form üzerinden veriyi mail gönderebiliyorum mailin gövdesine veriyi de yazdırabiliyorum fakat formum sürekli form mailin gövdesine sadece tek satırını ekleyebiliyorum
Mail gövdesine tüm form bilgisini ya da sorguyu liste halinfe nasıl ekleyebilirim

Gonderme orneginizi konuya eklerseniz, daha fazla yardim alabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
Sayın ersoyyuksel'in örneği olan var mı?

Banada Mail gövdesine veriyi tablo olarak ekleyip mail atabileceğim bir kod lazım.




  Alıntı
Bu mesajı beğenenler:
#4
(22-04-2016, 09:33)enteresan demiş ki: Banada Mail gövdesine veriyi tablo olarak ekleyip mail atabileceğim bir kod lazım.
surekli formun kayit kaynagini asagida ki
Set Kyt = CurrentDb.OpenRecordset(me.recordsource) seklinde yazmalisiniz. Formada filitreleme yapiliyorsa Kyt.Filer=Me.Filter ile kayitlar suzdurulebilir.
Veriyi HTML'ye cevirip, mail govdesine alabilirsiniz. "D:\Posta" klasorunu kendinize gore degistirebilirsiniz.
Visual Basic
  1. Option Compare Database
  2. 'Option Explicit
  3. Sub Postala()
  4. Call VeriGonder("TabloAdi", acTable) '** acQery ile sorgu gonderilebilir.
  5. '** veya
  6. 'Call VeriGonder("SorguAdi", acQery)
  7. End Sub
  8.  
  9. Function VeriGonder(Nesne As String, Tipi As Variant)
  10. Const Klasor As String = "D:\Posta"
  11. Kime = ".........@gmail.com; "
  12. Dim Kyt As DAO.Recordset
  13. Set Kyt = CurrentDb.OpenRecordset("SELECT * FROM " & Nesne) '*** Where ... eki ile veri suzdurulebilir.*******
  14. With Kyt
  15. If .EOF And .BOF Then
  16. MsgBox "Kayit Yok"
  17. Else
  18. Do Until .EOF
  19. DoCmd.OutputTo Tipi, Nesne, "HTML(*.html)", Klasor & ".html"
  20. Set Posta = CreateObject("Scripting.FileSystemObject")
  21. Set NesneCevir = Posta.OpenTextFile(Klasor & ".html", 1)
  22. HTMLGovde = NesneCevir.ReadAll
  23. Dim PostaUygula As Object
  24. Dim PostaIleti As Object
  25. On Error Resume Next
  26. Set PostaUygula = GetObject(, "Outlook.Application")
  27. If Err Then
  28. Set PostaUygula = CreateObject("Outlook.Application")
  29. End If
  30. Set PostaIleti = PostaUygula.CreateItem(olMailItem)
  31. With PostaIleti
  32. .BodyFormat = olFormatHTML
  33. .To = Kime
  34. .CC = ""
  35. .Subject = "DENEME"
  36. .HTMLBody = HTMLGovde
  37. .Send
  38. End With
  39. .MoveNext
  40. Loop
  41. End If
  42. Kill Klasor & ".html"
  43. Set PostaUygula = Nothing
  44. Set PostaIleti = Nothing
  45. Set NesneCevir = Nothing
  46. Set Posta = Nothing
  47. NesneCevir.Close
  48. MsgBox "tamam"
  49. End With
  50. End Function





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Altformda Kayıt Tıklayınca Sürekli Ilk Kayda Gidiyor. M_Kemal_Askeri 6 148 11-04-2026, 02:28
Son Mesaj: M_Kemal_Askeri
  [SORGU] Birden Fazla Sorguyu Tek Ekranda Görebilme MERAK 1 266 03-11-2025, 08:27
Son Mesaj: dsezgin
  [FORM] Sürekli Form Filtrelemede Boş Kayıtların Getirmeme kral8596 4 338 03-02-2025, 12:41
Son Mesaj: halily
  Sorgudaki Bilgileri Otomatik Tek Tek Mail Gönderme cirdakc 3 445 08-11-2024, 21:40
Son Mesaj: dsezgin
  [FORM] Mouse Ile Açık Formu Kapatmak hmuratg 1 317 06-11-2024, 16:08
Son Mesaj: kahramanselim
  Sürekli Formda Alt Toplam Alma ates2014 2 359 10-07-2024, 09:33
Son Mesaj: ates2014
  Ilgili Raporu Mail Gönderme Mtaner 6 1.490 21-05-2024, 07:09
Son Mesaj: dsezgin
  [TABLO] Formu Tabloda Filtreleme soss 2 475 27-03-2024, 20:04
Son Mesaj: soss

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi