Skip to main content

AccessTr.neT


access üzerinden outlook ile excel formatında toplu veri gönderme

access üzerinden outlook ile excel formatında toplu veri gönderme

Çözüldü #1
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-dosyasin...derme.html)
Ben forumdaki verileri göndermek istiyorum.


İlgiliniz için teşekkür ederim.
.rar eposta_sld2.rar (Dosya Boyutu: 33,59 KB | İndirme Sayısı: 9)
Cevapla
#2
(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-dosyasin...derme.html)
Ben forumdaki verileri göndermek istiyorum.


İlgiliniz için teşekkür ederim.
Cevapla
#3
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
Cevapla
#4
Ç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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da