Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Maili tablo halinde gönderme

mehmetb84
mehmetb84
Access Cevaplanmış Soruları
17
4443

Maili tablo halinde gönderme

#7
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,12:50
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Özgür'ün dediği gibi, programlama dillerinde bazı kodlar ortak. Ancak bu kodda epostanın HTMLBody alanına veri aktarıldığı için Html kodlaması istiyor.

Ben deneme yapmadığımdan alt satıra geçmesi için "& Chr(13) & Chr(10)" kodu ekledim. Ancak bu kod HTMLBody alanında işlemiyor.

BodyYenile kodunun aşağıdaki gibi Html tagları ile düzenlenirse tablo halinde mail gönderir.



Sub BodyYenile()



mtn_body = ""

mtn_body = " Sn. " & Me.g_kimlik & "<br />"

Me.fiyat_dalt.SetFocus

DoCmd.GoToRecord , , acFirst



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 Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1

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>"

mtn_body = mtn_body & "<tr></tr>"

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


[Resim: do.php?img=5297]
Cevapla
#8
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 40
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
(03/01/2016, 17:59)ozanakkaya yazdı: Özgür'ün dediği gibi, programlama dillerinde bazı kodlar ortak. Ancak bu kodda epostanın HTMLBody alanına veri aktarıldığı için Html kodlaması istiyor.

Ben deneme yapmadığımdan alt satıra geçmesi için "& Chr(13) & Chr(10)" kodu ekledim. Ancak bu kod HTMLBody alanında işlemiyor.

BodyYenile kodunun aşağıdaki gibi Html tagları ile düzenlenirse tablo halinde mail gönderir.



Sub BodyYenile()



mtn_body = ""

mtn_body = " Sn. " & Me.g_kimlik & "<br />"

Me.fiyat_dalt.SetFocus

DoCmd.GoToRecord , , acFirst



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 Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1

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>"

mtn_body = mtn_body & "<tr></tr>"

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


[Resim: do.php?img=5297]

Kod:
Private Sub ePOSTA_Gonder()
On Error GoTo Hata
'---------------------------------------------------------------
Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2
Dim objMessage As Object
Dim SMTP_Sunucu, Gonderenin_Mail_Adresi, Gonderenin_Mail_Sifresi, Gonderilecek_Mail_Adresi, strBody
'---------------------------------------------------------------
SMTP_Sunucu = "********"
Gonderenin_Mail_Adresi = "******"
Gonderenin_Mail_Sifresi = "*******"
Gonderilecek_Mail_Adresi = Me.g_eposta
If Gonderenin_Mail_Adresi = "" Or Gonderenin_Mail_Sifresi = "" Or Gonderilecek_Mail_Adresi = "" Then
    MsgBox "Bilgileriniz eksik olduğu için e-posta gönderilemiyor !", vbCritical, "Hata oluştu."
    Exit Sub
End If
'---------------------------------------------------------------
mtn_body = ""
mtn_body = " Sn. " & Me.g_kimlik & "<br />"
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acFirst


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 Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1
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>"
mtn_body = mtn_body & "<tr></tr>"
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acNext
Next a
mtn_body = mtn_body & "</tr></tbody></table>"
mtn_body = mtn_body
Me.g_musteri.SetFocus
'---------------------------------------------------------------
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Fiyat Talebi"
objMessage.From = Gonderenin_Mail_Adresi
objMessage.To = Gonderilecek_Mail_Adresi
objMessage.HTMLBody = strBody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Gonderenin_Mail_Adresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Gonderenin_Mail_Sifresi
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTP_Sunucu
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objMessage.Configuration.Fields.Update
objMessage.Send
MsgBox "İlgili kişiye e-posta gönderilmiştir.", vbInformation, "İşlem tamam"
Exit Sub
'---------------------------------------------------------------
Hata:
    MsgBox "E-posta gönderimi başarısız oldu!", vbCritical, "Hata oluştu."
    
End Sub
Teşekkürler Ozan Bey, verdiğiniz kodu body bölümüne ekledim. Fakat boş mail geliyor. Bir hata yaptım sanırım?
Cevapla
#9
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,12:50
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Benim yazdığım kodda sub bodyyenile() adında kod var. Ancak siz bu kodu epostagonder () kodunun içine eklemişsiniz.
Sizce kodlar aynı mı?
Cevapla
#10
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 40
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
(04/01/2016, 01:30)ozanakkaya yazdı: Benim yazdığım kodda sub bodyyenile() adında kod var. Ancak siz bu kodu epostagonder () kodunun içine eklemişsiniz.
Sizce kodlar aynı mı?

Farklı tabiki ama tek başına sub bodyyenile kodu mail göndermeye yaramayacağı için epostagonder ile ilişkilendirilmesi gerektiğini düşündüm. En azından sub bodyyenileyi çalıştırması için bir komut yazmam gerek değil mi?
Cevapla
#11
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,12:50
Yorumları: 13.536
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
1. mesaja eklediğiniz uygulamadaki kodu düzenlemiştim. 1. mesajdaki
Private Sub ePOSTA_Gonder()
kodu içerisinde

BodyYenile
strBody = ""
strBody = Me.mtn_body

şeklinde kod bulunmaktadır.

siz son cevabınızda "BodyYenile" kodunu silmişsiniz.
Cevapla
#12
mehmetb84
Aktif Üye
mehmetb84
Bul
Aktif Üye*
Adı Soyadı: Me.... Ba....
Yaşı: 40
Konum: Denizli
Ofis Versiyonu: Ofis 2013 64 Bit
Son Oturumu: 13/12/2020,02:55
Yorumları: 519
Konuları: 136
Kayıt Tarihi: 29/12/2010
Teşekkür Puanı: 0
Ozan Bey, gerçekten kafam allak bullak oldu. Neyi nereye eklemleyeceğimi şaşırdım.
Şöyle anlatayım; Sizin son gönderdiğiniz kodu olduğu gibi yapıştırdığımda mail göndermiyor, çünkü email göndermesi için gerekli kodlar yok. Çünkü söylediğiniz gibi body kısmını düzenleyen bir kod yazmışsınız.
Lütfen ilk örnekle birlikte kod nihai olarak nasıl olmalı onu gönderebilir misiniz? (yordum sizi kusura bakmayın)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task