+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: access üzerinden outlook ile excel formatında toplu veri gönderme (/konu-access-uzerinden-outlook-ile-excel-formatinda-toplu-veri-gonderme.html)
access üzerinden outlook ile excel formatında toplu veri gönderme - mehmetb84 - 04/01/2016
Selam arkadaşlar;
Ekteki veritabanımdaki bilgilerin mail olarak adresime gönderilmesini istiyorum.
Bununla ilgili sağolsun OzanBey'in hazırladığı kod, hotmail ve diğer web tabanlı maillerde istediğim gibi
fiyatsorgu anaformumda bulunan altforumdaki verileri aşağıdaki;
kalite: en: metraj:
kalite1 en1 3500
kalite2 en2 2200
şeklinde alınıyor. Fakat outlookta nedenini anlamadığım (kod bilmeden de anlamanın zor olduğunu düşündüğüm) bir nedenden dolayı tablodaki veriler kayıyor.
Kesin çözüm olarak Excel sayfası olarak göndermeyi istiyorum. Bununla ilgili formda yapılmış bir çalışma var fakat bu rapor gönderiyor (https://accesstr.net/konu-excel-dosyasini-mail-gonderme.html)
Ben forumdaki verileri göndermek istiyorum.
İlgiliniz için teşekkür ederim.
Cvp: access üzerinden outlook ile excel formatında toplu veri gönderme - mehmetb84 - 05/01/2016
(04/01/2016, 20:36)mehmetb84 yazdı: Selam arkadaşlar;
Ekteki veritabanımdaki bilgilerin mail olarak adresime gönderilmesini istiyorum.
Bununla ilgili sağolsun OzanBey'in hazırladığı kod, hotmail ve diğer web tabanlı maillerde istediğim gibi
fiyatsorgu anaformumda bulunan altforumdaki verileri aşağıdaki;
kalite: en: metraj:
kalite1 en1 3500
kalite2 en2 2200
şeklinde alınıyor. Fakat outlookta nedenini anlamadığım (kod bilmeden de anlamanın zor olduğunu düşündüğüm) bir nedenden dolayı tablodaki veriler kayıyor.
Kesin çözüm olarak Excel sayfası olarak göndermeyi istiyorum. Bununla ilgili formda yapılmış bir çalışma var fakat bu rapor gönderiyor (https://accesstr.net/konu-excel-dosyasini-mail-gonderme.html)
Ben forumdaki verileri göndermek istiyorum.
İlgiliniz için teşekkür ederim.
Cvp: access üzerinden outlook ile excel formatında toplu veri gönderme - ozanakkaya - 09/01/2016
Bu sorunun raporu Excel yoluyla mail ile gönderirken oluşan sorun bağlantısındaki sorudan farkı nedir?
İlgili kodu aşağıdaki ile değiştirip tekrar deneyiniz.
Sub BodyYenile()
Dim SatirSayisi, a As Integer
mtn_body = ""
mtn_body = " Sn. " & Me.g_kimlik & "<br />"
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acFirst
SatirSayisi = Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1
mtn_body = mtn_body & "<table><tbody><tr><td style='width:100px;'>Kalite:</td><td style='width:100px;'>En:</td><td style='width:100px;'>Metraj:</td></tr><tr>"
For a = 0 To SatirSayisi
mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_kalite] & "</td>"
mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_metraj] & "</td>"
mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_en] & "</td>"
If a <> SatirSayisi Then
mtn_body = mtn_body & "</tr><tr>"
End If
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acNext
Next a
mtn_body = mtn_body & "</tr></tbody></table>"
mtn_body = mtn_body
Me.g_musteri.SetFocus
End Sub
Cvp: access üzerinden outlook ile excel formatında toplu veri gönderme - mehmetb84 - 09/01/2016
Çok teşekkürler Ozan bey, sonunda kod istediğim gibi çalıştı. Diğer konudan farkı şuydu;buradan sonuç alamayınca doğrudan mail yoluyla değil de Excel ile outlook üzerinden yapmayı denemiştim,onunla ilgili rapor güncelleme sorunum vardı onu da cevaplamışsınız, tekrar teşekkür ederim.